Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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¼òµ¥ ¿Þ

ÕâÓïÑÔºÃÄѰ¡  ѧdelphi¼òµ¥ ¿Þ
Ò»¸ödll ºÍÒ»¸ö Ö¸Õ뺯Êýµ÷Óà ¸ãÁËÎÒ2Àñ°Ý »¹ÊÇÔÚÎÒÓÐdelphi»ù´¡µÄÇé¿öÏ ¿Þ
ÄÑ¶È ±È delphi ¸ßºÜ¶à¡£¼ÌÐøÅ¬Á¦Ñ§°¡¡£
ºÃÏñÒ²²¢²»±ÈdelphiÄѶàÉÙ°É

Ö÷Òª´úÂë ²»Ö±¹ÛÁË¡ ......

delphi savediglog¶à´Î±£´æÎÊÌâ

ÎÒÔÚÓÃmainmenu²Ëµ¥¿Ø¼þºÍsavediglog¿Ø¼þÉèÖñ£´æÎļþ¶Ô»°¿òʱ£¬ËäÈ»Äܹ»Ë³Àû±£´æÎļþ£¬µ«ÊÇÎÒ¶ÔÒѾ­±£´æ¹ýµÄÎļþ½øÐÐÔٴα£´æµÄʱºò£¬²¢²»ÄܺͺܶàÈí¼þÒ»ÑùÖ±½Ó±£´æ£¬¶øÊÇÈÔÈ»µ¯³ö±£´æ¶Ô»°¿ò£¬¶øÎÒ²»ÏëËü´ò¿ª£¬¶øÊÇ ......

delphi×Ö·û´®²Ù×÷ ¼±

Ë­ÄܸøÎÒÒ»¸öÅжÏÓÊÏäÊÇ·ñºÏ·¨µÄÀý×Ó

¶àл

ÌṩЩ±ðµÄ£º
µç×ÓÓʼþµØÖ·µÄ¹¹³É
¡¡¡¡µç×ÓÓʼþµØÖ·µÄ¸ñʽÊÇ¡°USER@SERVER.COM¡±£¬ÓÉÈý²¿·Ö×é³É¡£
µÚÒ»²¿·Ö¡°USER¡±´ú±íÓû§ÐÅÏäµÄÕʺţ¬¶ÔÓÚͬһ¸öÓʼþ½Ó ......

delphi 2010 °²×°ÎÊÌ⣿

ÏÂÔØÁË×îеÄdelphi 2010,°²×°£¬
×îа汾£¬°ïÖúÐèÒªµ¥¶À°²×°£¬°ïÖúÎļþ×öµÄ±ÈÒÔǰºÃЩ
ÔÚÎÒ¸öÈ˵çÄÔÉϳɹ¦°²×°£¬Ê¹ÓÃÕý³££»
ÓùâÅ̽«°²×°Îļþ¿½µ½°ì¹«ÊÒ£¬°²×°£¬Ò»ÇÐÕý³££»
°²×°Íê³Éºó£¬Æô¶¯delphi 201 ......

delphi memo¼ÈëÎÊÌâ

ÎÒÏëÒ»¸ö memo Á½¸öbutton  Ò»¸öedit
memoÖе¼ÈëÎı¾ È»ºóµã»÷Ò»´Î button  edit1.txt ×Ô¶¯Ìí¼ÓÒ»ÐÐmemo
Ôٴεã»÷ Ìí¼ÓmemoÏÂÒ»ÐÐÎı¾ ÈçºÎʵÏÖ
ÎҵĴúÂëÊÇ
==
procedure TForm1.Button2C ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ