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

delphiµ÷ÓÃdllÎÊÌ⣬ר¼Ò¾ÈÃü£¬100·ÖÈ«²¿ËÍÉÏ¡£

ÎÒÓÃdelphiµ÷ÓÃÒ»¸öVC++µÄdll
Õâ¸ödllÀïÃæµÄÒ»¸öClsPortº¯Êý£¬dll˵Ã÷˵ÀïÃæÓУ¬ËµÃ÷ÈçÏ£º

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

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

Assigned(FunClsPort)·µ»ØÎªfalse
²¢Î´¼ÓÔØµ½´Ëº¯Êý¡£

ÕâÊÇÎªÊ²Ã´ÄØ£¿

×î¶àÖ»Äܸø100·Ö£¬Çëר¼ÒÖ¸½Ì°¡¡£¡£
LoadLibray³É¹¦Ã»?

ÎÒµ÷ÓÃÕâ¸ödllÀïÃæµÄÆäËûº¯ÊýÊÇÒ»µãÎÊÌⶼûÓеġ£
¾ÍÊÇCloseµÄÕâ¸öº¯ÊýÕÒ²»µ½¡£ÕâÊÇΪʲô£¿

Ë­°ïÎÒ½â¾öÔÙ¿ªÌù¸ø100·Ö¡£¾ÈÃüÀ²¡£¡£


Ìù³öÒýÈë¿â£¬µ÷ÓõĴúÂëÏÈ

ÓÃeXeScope²éһϺ¯Êý£¬Ò»¶¨Òª×¢Òâ´óСдһÖ¡£

  TFun1=function(lpszPortNum: LPCSTR;dwBaudRate: DWORD): DWORD; stdcall;
  TFun2=function(hCom: Thandle): Variant ; 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


Ïà¹ØÎÊ´ð£º

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

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

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

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


ÊÇÄĸö£¿

windowsµÄapi£¿

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

delphi ×ÔÔöedit¿Ø¼þ

³ýÁË×ÔÔöEDIT¿Ø¼þ£¬»¹ÓÐͨ¹ýÁ½¸öRadiobuttonÀ´¿ØÖÆËùÓÐ×ÔÔöµÄEdit¿Ø¼þµÄReadonlyÊôÐÔ£¬°ÝÍиßÊÖÃÇÌæÎÒÕâ¸ö²ËÄñ½â´ð£¬²»Éõ¸Ð¼¤
sorry, Do not understand what you said!

×Ô¼ºÏȶ¥Ï£¬ºÇºÇ

ÎÒ°Ñ´úÂë·¢¸øÄ㣬Äã ......

delphi QQȺ 93282714

»¶Ó­ÈȰ®±à³Ì£¬Ç«ÐéºÃѧµÄÈ˼ÓÈë
ȺÖÐÓÐË­

up

ÒýÓÃ
ȺÖÐÓÐË­

ÓÐÁÄÌìµÄÈË£¬Ì¸¼¼ÊõµÄÈË¡£

¼ÓÈë¡­¡­

up
up
up
up

³õѧÕߣ¬¼ÓÈëÒ»¸ö£¡£¡

Up

UP

¼Ó

ÐÂÊÖ++
......

ÕâÓïÑÔºÃÄѰ¡ ѧdelphi¼òµ¥ ¿Þ

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

Ö÷Òª´úÂë ²»Ö±¹ÛÁË¡ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ