delphiÈçºÎ»ñÈ¡ÆÁÄ»µÄ·Ö±æÂÊ
ÆÁÄ»µÄ·Ö±æÂÊÓÃÕâ¸ö
x=GetSystemMetrics(SM_CXSCREEN)
y=GetSystemMetrics(SM_CYSCREEN)
ͬÉÏ¡£
.¶øÇÒ»ñµÃÆÁÄ»ÉϵÄÏñËغÃÏñÓ¦¸ÃʹÓÃ
screen.pixelsperinchº¯Êý
int GetDeviceCaps(
HDC hdc, //
device-context handle
int nIndex // index
of capability to query
);
LOGPIXELSX
Number of pixels per logical inch along the screen
width.
LOGPIXELSY Number of pixels per logical inch
along the screen height.
µ±ÎÒÃÇÐèÒª»ñÈ¡ËùÔËÐгÌÐòʱ¼ÆËã»úµÄ·Ö±æÂÊʱ£¬ÓÐÁ½ÖÖ·½·¨£º¢Ù¿ÉÒÔͨ¹ý·ÃÎÊDelphiÌṩµÄSCREENÈ«¾Ö±äÁ¿£¬¼´SCREEN.WIDTHºÍ
SCREEN.HEIGHTÒÔÏñËصã¸ø³öÆÁÄ»µÄ·Ö±æÂÊ¡£¢ÚÀûÓÃWindowsµÄAPIº¯ÊýGetDeviceCaps()À´µÃµ½ËùÓÃÏÔʾÆ÷µÄ·Ö±æÂÊ£¬Ô´´ú
ÂëÈçÏ£º
Application.Initialize£»
Application.CreateForm(TForm1£¬ Form1)£»
CASE GetDeviceCaps(GetDC(Form1.Handle)£¬HORZRES) of
640 £º //¶Ô640×480·Ö±æÂʽøÐд¦ÀíµÄ´úÂ룻
800 £º //¶Ô800×600·Ö±æÂʽøÐд¦ÀíµÄ´úÂ룻
1024£º //¶Ô1024×768·Ö±æÂʽøÐд¦ÀíµÄ´úÂ룻
1280£º //¶Ô1280×1024·Ö±æÂʽøÐд¦ÀíµÄ´úÂ룻
END£»
×ܽ᣺лл¸÷λÅóÓѵķîÏ×£¬¿ÉÒÔ·ÅÖÃÒÔshowʼþÖУ¬¶øÇÒÓÃselfÒýÓ㬿ɽµµÍ³ö´í¸ÅÂÊ£¡
Ïà¹ØÎĵµ£º
1) DelphiÏòoracleÖд«µÝ²ÎÊý ÈçoracleÖеIJÎÊýÃûΪerpcx
´ð£ºÈç¹ûÏë´Ó±íÀïÈ¡Öµµ½oracle£¬Ôòerpcx:=trim(aq1.fieldbyname('erpcx').AsString);
·ñÔòÖ±½ÓÓÿؼþÃû×Ö
Óï¾äΪ
with aperp do
begin
connection:=dm.ADOCerp;
parameters.Clear;&nbs ......
Delphi ÊÇÐÂÒ»´ú¿ÉÊÓ»¯¿ª·¢¹¤¾ß£¬Ëü¾ßÓй¦ÄÜÇ¿´ó¡¢¼ò±ãÒ×ÓúʹúÂëÖ´ÐÐËٶȿìµÈÌص㣬ÊÇÈ«Çò¹«ÈϵĿìËÙÓ¦Óÿª·¢¹¤¾ß¼¼ÊõµÄÏÈÇýÕߣ¬ËüÔ½À´Ô½ÔÚ¹¹¼ÜÆóÒµÐÅϢϵͳ·½Ãæ·¢»Ó×ÅÖØÒª×÷Óá£ÓÉÓÚDelphi ÕâЩÏÔÖøÌص㣬Ðí¶à³ÌÐòԱѡÔñDelphi×÷Ϊ¿ª·¢¹¤¾ß±àÖƸ÷ÖÖÓ¦ÓóÌÐò¡£µ«ÊÇ£¬ÁîÈËÍïϧµÄÊÇDelphiûÓÐ×Ô´ø´®¿Ú ......
Ò»¡¢DelphiÖÐÁ÷µÄ»ù±¾¸ÅÄî¼°º¯ÊýÉùÃ÷
ÔÚDelphiÖÐ,ËùÓÐÁ÷¶ÔÏóµÄ»ùÀàΪTStreamÀà,ÆäÖж¨ÒåÁËËùÓÐÁ÷µÄ¹²Í¬ÊôÐԺͷ½·¨¡£ TStreamÀàÖж¨ÒåµÄÊôÐÔ½éÉÜÈçÏÂ: 1¡¢Size:´ËÊôÐÔÒÔ×Ö½Ú·µ»ØÁ÷ÖÐÊý¾Ý´óС¡£ 2¡¢Position:´ËÊôÐÔ¿ØÖÆÁ÷ÖдæÈ¡Ö¸ÕëµÄλÖᣠTstreamÖж¨ÒåµÄÐé·½·¨ÓÐËĸö: 1¡¢Read:´Ë·½·¨ÊµÏÖ½«Êý¾Ý´ÓÁ÷ÖжÁ³ö¡£º¯ÊýÔÐÎΪ: ......
ͬ²½³ÌÐò°¸Àý
procedure TGetOrderThread.PostDB(webnr:WideString);
var
Err: String;
SetWebnr:WideString;
xmlDoc: IXMLDocument;
root: IXMLNode;
rowc: IXMLNode;//¼Ç¼Êý
rows: IXMLNodeList;//Ö÷¼Ç¼Áбí
row: IXMLNode;
drows: IXMLNodeList;// ......
1¡¢ ϵͳ¹¦ÄÜ
1£©¡¢Êý¾ÝѹËõ
ʹÓÃDELPHIÌṩµÄÁ½¸öÁ÷ÀࣨTCompressionStreamºÍTDecompressionStream£©À´Íê³ÉÊý¾ÝµÄѹËõºÍ½âѹËõ¡£
2£©¡¢Êý¾Ý¼ÓÃÜѹËõ
ͨ¹ýDelphi±à³ÌÖГÁ÷”µÄÓ¦ÓÃʵÏÖÊý¾Ý¼ÓÃÜ£¬Ö÷Òª²ÉÓÃTstreamµÄÁ½¸öÅÉÉúÀàTfilestream¡¢Tmemorystream À´Íê³ÉµÄ£»ÆäÖÐÊý¾ÝѹËõ²¿·Ö²ÉÓÃ1£©µÄʵÏÖ· ......