delphiÖÐÔõÑùÕýÈ·µ÷ÓÃunicode°æº¯ÊýºÍ·Çunicode°æº¯Êý
Ò»¸öc++±àдµÄdllÖÐ,ÓÐÁ½¸ö°æ±¾µÄº¯Êý,Ò»¸öÊÇGetTextA,Ò»¸öÊÇGetTextW,ÎÒÏÖÔÚÏëÒ»¸öGetTextÕýÈ·µ÷ÓÃÕâÁ½¸öº¯Êý
ÔÚc++ÖпÉÒÔ
#ifdef unicode
#define GetText GetTextW
#else
#define GetText GetText A
ÔÚdelphiÖÐÔõÑù¸ã?
delphi ÓÖ²»ÄÜÒ»¸ö±àÒëÆ÷ͬʱ±àÒë unicode ºÍ·Ç unicode °æµÄ³ÌÐò£¬Õâ¶Ô delphi À´ËµÃ»É¶ÒâÒå
procedure GetText;stdcall ;external 'ABC.dll';
µ«ÎÒÕâôд:Function GetText(hdc:HDC;rect:PRECT;Astr:Pchar):Boolean;stdcall;external 'EDRLIB.DLL';
³öÏÖÎÞ·¨¶¨Î»µ½GetTextÓÚ¶¯Ì¬Á´½Ó¿âEdrlib.dllÉϵĴíÎó°¡..
¼ì²é'EDRLIB.DLL'ÊÇ·ñµ¼³öGetTextº¯Êý£¡
Èç2LËù˵£¬ÁíÍâÒ²¿ÉÒÔÖ±½Óloadlibrary¶¯Ì¬µ÷ÓÃDLLµ±Öеĺ¯Êý
c++µÄdllµÄµ¼³öº¯ÊýÊÇÎÒ˵µÄÓÐÁ½¸ö°¡,Ò»¸öÊÇGetTextA,ÁíÒ»¸öÊÇGetTextW,ÔÚdelphiµ÷ÓÃʱ,
Function GetTextA(hdc:HDC;rect:PRECT;Astr:Pchar):Boolean;stdcall;external 'EDRLIB.DLL';
ÎÒÊÔ¹ýÕâÑùÊÇÄÜÕýÈ·µ÷ÓõÄ
ÎÒÖ»ÊDz»ÏëÓÃGetTextAº¯ÊýÃû,ÏëÓÃGetText×÷Ϊº¯ÊýÃû
Ïà¹ØÎÊ´ð£º
ÒÑÖªPython ÖУº
s = unicode("²âÊÔ", "gb2312")
s = u'\u6d4b\u8bd5'
print s
²âÊÔ
ÔÚDelphiÀïÃæÈçºÎ½«\u6d4b\u8bd5ÕâÑùµÄ»¹Ô³ÉGb2312µÄºº×ÖÄØ£¿
ÕÒµ½¸ö·½·¨
......
delphiÄÚÖõļÓÃܽâÃܵ¥ÔªÊÇÄĸö£¿
DelphiÓÐÄÚÖüÓÃܽâÃܵ¥Ôª£¿
delphiÀïÓиö¼ÓÃܺͽâÃܵĵ¥Ôª
ÒýÓÃ
delphiÀïÓиö¼ÓÃܺͽâÃܵĵ¥Ôª
ÊÇÄĸö£¿
windowsµÄapi£¿
±ê×¼¼ÓÃܵÄÔ´´úÂë£¬ÍøÉÏ ......
¾ÍÊÇÒ»¸ö·þÎñ¶ËºÍÒ»¸ö¿Í»§¶Ë£¬Àï±ßÓÐһЩ¹²Óõ¥Ôª £¬ÎÒÔÚ ¹¤³ÌµÄSEARCH PATHÀïÉèÖõÄ·¾¶£¬
Àï±ßÓиö½á¹¹Ì壬ÎÒÔÚ·þÎñ¶Ë´ò¿ª£¬¼ÓÁ˳ÉÔ±£¬µ«ÊÇÎÒÔÚ¿Í»§¶ËÆäËûµ¥Ôª·ÃÎʲ»µ½ÎÒмӵģ¬ÎÒÔÚ¿Í»§¶Ë´ò¿ªÄǸöµ¥Ôª£¬È·Êµ¼ÓÁ ......
ÓÉÓÚ¿Í戶¶ËÓеÄÎļþ經³£¸üУ¨遠³ÌµÄ£¬²»ÊǾÖÓò網£©£¬
ËùÒÔÏë寫個×Ô動¸üÐ嵀 ³ÌÐò¡£
¿´網É쵀 ·½·¨資ÁÏ£¬ÖªµÀЩ·½·¨£¬µ«²»ÖªµÀ¾ß體Ôõô寫¡£
......
×òÍíÔÚDelphiÊý¾Ý¿â²éѯÖÐÓöµ½ÁËÒ»¸öÒɻ󡣴úÂëÈçÏ£º
procedure TFormSearchAchievement.ComboBoxXYChange(Sender: TObject);
var
XY : string;
begin
XY := comboboxxy.Items[comboboxx ......