Ò׽ؽØͼÈí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

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ÒýÓ㬿ɽµµÍ³ö´í¸ÅÂÊ£¡


Ïà¹ØÎĵµ£º

asp¡¢delphi¡¢oracleµÄ¼¼ÊõÎĵµ×ܽá

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ÖÐÁ÷µÄ»ù±¾¸ÅÄî¼°º¯ÊýÉùÃ÷

Ò»¡¢DelphiÖÐÁ÷µÄ»ù±¾¸ÅÄî¼°º¯ÊýÉùÃ÷
ÔÚDelphiÖÐ,ËùÓÐÁ÷¶ÔÏóµÄ»ùÀàΪTStreamÀà,ÆäÖж¨ÒåÁËËùÓÐÁ÷µÄ¹²Í¬ÊôÐԺͷ½·¨¡£ TStreamÀàÖж¨ÒåµÄÊôÐÔ½éÉÜÈçÏÂ: 1¡¢Size:´ËÊôÐÔÒÔ×Ö½Ú·µ»ØÁ÷ÖÐÊý¾Ý´óС¡£ 2¡¢Position:´ËÊôÐÔ¿ØÖÆÁ÷ÖдæÈ¡Ö¸ÕëµÄλÖᣠTstreamÖж¨ÒåµÄÐé·½·¨ÓÐËĸö: 1¡¢Read:´Ë·½·¨ÊµÏÖ½«Êý¾Ý´ÓÁ÷ÖжÁ³ö¡£º¯ÊýÔ­ÐÎΪ: ......

DelphiÓëXMLÎĵµ

ͬ²½³ÌÐò°¸Àý
procedure TGetOrderThread.PostDB(webnr:WideString);
var
  Err: String;
  SetWebnr:WideString;
  xmlDoc: IXMLDocument;
  root: IXMLNode;
  rowc: IXMLNode;//¼Ç¼Êý
  rows: IXMLNodeList;//Ö÷¼Ç¼Áбí
  row: IXMLNode;
  drows: IXMLNodeList;// ......

DELPHI ÎļþѹËõ¼ÓÃÜ

1¡¢  ÏµÍ³¹¦ÄÜ
1£©¡¢Êý¾ÝѹËõ
ʹÓÃDELPHIÌṩµÄÁ½¸öÁ÷ÀࣨTCompressionStreamºÍTDecompressionStream£©À´Íê³ÉÊý¾ÝµÄѹËõºÍ½âѹËõ¡£
2£©¡¢Êý¾Ý¼ÓÃÜѹËõ
ͨ¹ýDelphi±à³ÌÖГÁ÷”µÄÓ¦ÓÃʵÏÖÊý¾Ý¼ÓÃÜ£¬Ö÷Òª²ÉÓÃTstreamµÄÁ½¸öÅÉÉúÀàTfilestream¡¢Tmemorystream À´Íê³ÉµÄ£»ÆäÖÐÊý¾ÝѹËõ²¿·Ö²ÉÓÃ1£©µÄʵÏÖ· ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ