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

delphiµ÷ÓÃdllÎÊÌâ,300·ÖÈ«²¿ËÍÉÏ¡£

ÎÒÓÃdelphiµ÷ÓÃÒ»¸öVC++µÄdll
Õâ¸ödLLÎÒûÓÐÔ´Âë¡£´óСд¾ø¶ÔÕýÈ·

dllÀïÃæµÄÒ»¸öCloseCommPortº¯Êý£¬dll˵Ã÷˵ÀïÃæÓУ¬ËµÃ÷ÈçÏ£º

5¡¢CloseCommPort
VOID PASCAL CloseCommPort(HANDLE hCom)
¹¦ÄÜ˵Ã÷£º¹Ø±ÕÖ¸¶¨µÄͨÐŶ˿ڡ£
²ÎÊý˵Ã÷£º
·µ»ØÖµ£ºÎÞ
Ïà¹Øº¯Êý£º

ÎÒÓÃeeXeScope²é¿´Ò²ÓÐÕâ¸öº¯Êý
µ«ÊÇÎÒ¶¯Ì¬,¾²Ì¬µ÷ÓÃCloseCommPortÕâ¸öº¯Êý¶¼»á±¨ÄÚ´æ´íÎó
¶¯Ì¬µ÷ÓÃ
Fun3 := GetProcAddress(FHandle,'CloseCommPort')
if Assigned(Fun3) then

Assigned(Fun3)·µ»ØÎªfalse
Ò²¾ÍÊÇ˵²¢Î´¼ÓÔØµ½´Ëº¯Êý¡£

ÕâÊÇÎªÊ²Ã´ÄØ£¿
ÏÂÃæÊÇÎÒдµÄdelphi´úÂë £¬Ë­ÄܰïÎÒ½â¾öÎÒ»á300·ÖËÍÉÏ

TFun1=function(lpszPortNum: LPCSTR;dwBaudRate: DWORD): DWORD; stdcall;
  TFun2=procedure(hCom: Thandle); stdcall;
  TFun3=function(DevNo: LPCSTR;var pAbout: LPSTR): DWORD ; stdcall;

Var FHandle: THandle;
    Fun1: TFun1; //´ò¿ª¶Ë¿Ú
    Fun2: TFun3; //¶ÁÈ¡°æ±¾ÐÅÏ¢
    Fun3: TFun2; //¹Ø±Õ¶Ë¿Ú
    DevNo: LPCSTR;
    pAbout: LPSTR;
begin
  FHandle :=  LoadLibrary('168netcom.dll');
  try
    if FHandle>0 then
    begin
      Fun1 := GetProcAddress(FHandle,'OpenCommPort'); //´ò¿ª¶Ë¿Ú
      if Assigned(Fun1) t


Ïà¹ØÎÊ´ð£º

delphiÈçºÎÏòAccessÊý¾Ý±íÖÐ×Ô¶¨Òå×Ö¶Î

delphiÈçºÎÏòAccessÊý¾Ý±íÖÐ×Ô¶¨Òå×Ö¶Î?È»ºóÏÔʾµ½DBGridÖÐ
ÔõôûÈËÀíÎÒѽ

·Ö·Ö߯ÉÙßÖ£¬Ò»°ãÈ˶¼ÀÁµÃ½øÀ´¡­¡­*^_^*

SQL
creat table TableName(ID Counter Primary Key,FieldName varchar(20))

ADOQue ......

delphiÄÚÖõļÓÃܽâÃܵ¥ÔªÊÇÄĸö£¿

delphiÄÚÖõļÓÃܽâÃܵ¥ÔªÊÇÄĸö£¿
DelphiÓÐÄÚÖüÓÃܽâÃܵ¥Ôª£¿

delphiÀïÓиö¼ÓÃܺͽâÃܵĵ¥Ôª

ÒýÓÃ
delphiÀïÓиö¼ÓÃܺͽâÃܵĵ¥Ôª


ÊÇÄĸö£¿

windowsµÄapi£¿

±ê×¼¼ÓÃܵÄÔ´´úÂë£¬ÍøÉÏ ......

СµÜ²»»áDELPHI£¬Çë´óÏÀÃǰï¸öæ

Õâ¸öÊÇÀ¹½Ø°´¼üÏûÏ¢²¢²âÊÔÊÇ·ñΪENTER¼ü¡£
  begin
    case wParam of
      WM_KEYDOWN:
      fEatKeystroke := (p.vkCode = VK_RETURN);
  & ......

ÄÄÀïÓÐDelphiµÄÊÓÆµ½Ì³Ì£¿ÐÂÊÖÄÇÖÖµÄ

ÄÄÀïÓÐDelphiµÄÊÓÆµ½Ì³Ì£¿ÐÂÊÖÄÇÖÖµÄ
лл
¼ÓÔÂÁÁQQ£¬È»ºóÈÃÔÂÁÁ¸úÄãÊÓÆµ½²½â£¬Ãâ·ÑµÄÊÓÆµ½²½â

Óкܶ࣬µ«ÌìÏÂûÓÐÃâ·ÑµÄÎç²Í

2Â¥µÄÅóÓÑ ÔÂÁÁÊÇË­£¿

ÒýÓÃ
2Â¥µÄÅóÓÑ ÔÂÁÁÊÇË­£¿


´óÃû¶¥¶¥ ......

DELPHIÊý¾Ý¿âÎÊÌâ

¼ÙÉ迪·¢Ê±Á¬½ÓÁËSQLÊý¾Ý¿â¡£
ÄÇôÔÚ¸ø¿Í»§ÓõÄʱºò£¬Èç¹û¿Í»§»ú×ÓÉÏûÓÐ×°SQLµÄ»°£¬ÄdzÌÐò²»ÊDz»ÄÜÕý³£ÔËÐÐÁËÂð£¿
ÓÐûÓа취ÔÚ¿Í»§»úÉϲ»°´ÕÕSQLµÄÇé¿öÏÂÒ²ÄÜÕý³£ÔËÐгÌÐò¡£

Õâ¸öûÊÔ¹ý¡¢Ó¦¸Ã»áÓнâ¾öµÄ° ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ