ÎÒÓÃ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
ÎÊÌâÒ»¡£ÎÒÔÚ×ö¿Î³ÌÉè¼ÆµÄʱºòŪÁ˸öÖØÐÂÉèÖÃÃÜÂë´°¿Ú£¬µ«ÊÇ°Ñ PasswordChar ¸ÄΪÁË * ,ÏÖÔÚÔõô°ÑÊäÈëºÃµÄÃÜÂë±£´æµ½±íPasswordÀï(Èç¹û PasswordChar ÊÇ #0 µÄ»°ÎÒÖªµÀ)¡£
ÎÊÌâ¶þ¡£ÎÒ±£´æºÃºóÔõô´Ó±íPasswordÀï ......
¾ÍÊÇÒ»¸ö·þÎñ¶ËºÍÒ»¸ö¿Í»§¶Ë£¬Àï±ßÓÐһЩ¹²Óõ¥Ôª £¬ÎÒÔÚ ¹¤³ÌµÄSEARCH PATHÀïÉèÖõÄ·¾¶£¬
Àï±ßÓиö½á¹¹Ì壬ÎÒÔÚ·þÎñ¶Ë´ò¿ª£¬¼ÓÁ˳ÉÔ±£¬µ«ÊÇÎÒÔÚ¿Í»§¶ËÆäËûµ¥Ôª·ÃÎʲ»µ½ÎÒмӵģ¬ÎÒÔÚ¿Í»§¶Ë´ò¿ªÄǸöµ¥Ôª£¬È·Êµ¼ÓÁ ......
delphi Ï¿ÉÓÐÔ´Âë ʵÏÖÄÚ´æ³Ø ¹Ì¶¨·ÖÅäÄÚ´æ³Ø´óСµÄ¡£¡£ÄÚ´æ³ØÂúºó×Ô¶¯×ª´¢Êý¾Ýµ½¡£¡£Ö¸¶¨µÄÒ»¸öÁÙʱÎļþ£¬
²»ÖªµÀ¿É·ñÄÄλÐÖµÜ×ö¹ýÀàËÆµÄÀý×Ó¡£¡£¡£¡£¡£×îºÃÓÐÑÝʾԴÂë¡£¡£¡£Ð»Ð»
ËÑÒ»ËÑ,×Ü»áÓÐ...
......
1¡¢DELPHIÖÐNEWÒ»¸öApplication£¬ÔËÐÐÆðÀ´µÄʱºò¿ÉÒÔÔÚÈÎÎñ¹ÜÀíÆ÷Öв鿴µ½Õâ¸öproject1.exeµÄÏß³ÌÊýΪ3£¬ÎÒÏëÖªµÀÕâÈý¸öÏ̷ֱ߳ðÊÇʲô£¬ÔÚʲôÇé¿öÏ´´½¨µÄ?
2¡¢Èç¹ûÎÒµ±Ç°´ò¿ªÁËN¸öDELPHI»·¾³£¬ÕâʱºòÎÒÏëͨ¹ýË ......