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


Ïà¹ØÎÊ´ð£º

PythonÖеÄUnicodeÔÚDelphiÈçºÎ»¹Ô­³ÉGb2312£¿

ÒÑÖªPython ÖУº
s = unicode("²âÊÔ", "gb2312")
s = u'\u6d4b\u8bd5'
print s
²âÊÔ

ÔÚDelphiÀïÃæÈçºÎ½«\u6d4b\u8bd5ÕâÑùµÄ»¹Ô­³ÉGb2312µÄºº×ÖÄØ£¿
ÕÒµ½¸ö·½·¨
......

delphi Ctrl+×ó¼ü ÎÞ·¨²é¿´ windows.pas Ôõô°ì

ÎÒ°²×°µÄÊÇÆóÒµ°æ¡£¡£¡£ 
ÎÒÎÊÏ£¬ CTRL+×ó¼ü Äܲ鿴 windows.pas Âð£¿
¾ÍÊÇ ½Ó¿ÚÀïµÄwindows¡£

µ±È»¿ÉÒÔ,CTRL+×ó¼üµã»÷Interface²¿·ÖµÄWindows¾Í¿ÉÒÔÁË

ɶɶÆóÒµ°æ£¿È¥°²×°Ä¿Â¼¿´¿´libÎļþ¼ÐÏÂÓÐÃ»Ó ......

ºÃ¾ÃûÓóÌÐòÁË£¬·¢ÏÖdelphiÓеãÂäÎéÁË

ºÃ¾ÃûÓóÌÐòÁË£¬·¢ÏÖdelphi 7 ÓеãÂäÎéÁË¡£
ÏÈÏëѧϰÆäËû±à³Ì¹¤¾ß£¬»òÕß×îаæµÄdelphi£¬Çë´ó¼ÒÍÆ¼öÍÆ¼ö¡£

·½ÏòÓÐûÓж¨ÏÂÀ´?ÓÐÄ¿±ê²ÅºÃÑ¡¹¤¾ß°¡

ÄǾÍѧC££°É

Èí¼þÒªÇó£¬ÀàËÆdelphi7µÄ±à³Ì»·¾³£¬Ï²»¶ ......

¹ØÓÚDELPHIµÄÁ½¸öСÒÉÎÊ Ð»Ð»¸÷λ£¡

1¡¢DELPHIÖÐNEWÒ»¸öApplication£¬ÔËÐÐÆðÀ´µÄʱºò¿ÉÒÔÔÚÈÎÎñ¹ÜÀíÆ÷Öв鿴µ½Õâ¸öproject1.exeµÄÏß³ÌÊýΪ3£¬ÎÒÏëÖªµÀÕâÈý¸öÏ̷ֱ߳ðÊÇʲô£¬ÔÚʲôÇé¿öÏ´´½¨µÄ?
2¡¢Èç¹ûÎÒµ±Ç°´ò¿ªÁËN¸öDELPHI»·¾³£¬ÕâʱºòÎÒÏëͨ¹ýË ......

[¸Úλ]ȱһµ½Á½¸öDelphi¿ª·¢ÈËÔ±

²¿ÃÅȱһµ½Á½¸öDelphi¿ª·¢ÈËÔ±,¾Ý˵×öDelphiºÍC++µÄ¶¼²»ºÃÕÐ,¹«Ë¾ÓÐÒâÕÒÍâ°üÈËÔ±.±¾ÈËÓе㲻̫ÀÖÒâ,Èç¹û·¹ýµÄÅóÓÑ,×Ô¼ºÐèÒªÌø²Û»òÓÐÅóÓÑÐèÒªÌø²ÛµÄ,·½±ãµÄ»°,¿ÉÒÔ·¢¸öÕ¾ÄÚ¶ÌÐÅ,»ò¼ÓQQ 83039548,×¢Ã÷ÇóÖ°/ÍÆ¼ö,лл. ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ