delphi µÄUtf8ToUnicode·½·¨
delphi µÄUtf8ToUnicode·½·¨ÔõôÓÃÄØ£¬
Äܲ»ÄܰÑ"4e2d56fd"Õâ¸ö×Ö·û´®×ªÎªÖÐÎÄ£¿
DelphiÀïÃæÓÐUTF8DecodeÕâ¿ÉÍê³ÉÕâ¸ö¹¤×÷¡£
Äܲ»ÄÜд¸ö¾ßÌåµÄÀý×Ó
mark
Delphi(Pascal) code:
uses EncdDecd;
procedure TForm1.Button2Click(Sender: TObject);
begin
Memo1.Lines.Text := DecodeString('4e2d56fd');
end;
http://bbs.2ccc.com/topic.asp?topicid=339687
Delphi(Pascal) code:
procedure TForm1.Button3Click(Sender: TObject);
var
Dest:Pchar;
Unic:PWidechar;
str:string;
NewDest:PwideChar;
begin
GetMem(Unic,100);
try
GetMem(Dest,100);
UnicodeToUtf8(Dest,StringToWideChar('²âÊÔ×Ö·û´®', Unic, 100),100);
try
str:=StrPas(Dest);
ShowMessage('utf8µÄ±àÂëΪ:'+Str);
GetMem(NewDest,100);
try
Utf8toUnicode(NewDest,Dest,100);
ShowMessage('ÔʼµÄ×Ö·ûΪ:'+WideCharToString(NewDest));
finally
FreeMem(NewDest);
end;
finally
FreeMem(Dest);
end;
finally
FreeMem(Unic);
end;
end;
procedure TForm
Ïà¹ØÎÊ´ð£º
½ÓÊÕµ½µÄÎı¾ÄÚÈÝÊÇucs2±àÂë¸ñʽ£¬ÇëÎÊÔõÑùת»»³ÉÖÐÎÄ
°´ÎÒµÄÀí½â£¬UCS-2ÊÇ×Ö·û¼¯£¬¾ßÌåµÄ±àÂëÓÐUTF-8£¬UTF-16 (LE/BE)µÈ¡£
Èç¹ûÄãÓÃDelphi 2009¼°ÒÔÉϰ汾£¬¿ÉÒÔ¿´¿´TEncodingÀà¡£
btw. Äã˵µÄת»»³ÉÖÐÎÄÊÇɶÒâË ......
VC++ ÖУ¬ &±äÁ¿Ãû¡£ ÊÇʲôÒâ˼¡£ DelphiÖÐ ºÍËûÒ»ÑùµÄ·ûºÅ ÊÇÄĸö¡¢£¿
´ó¼Ò¶¼ÈÏΪ£¬CÓïÑÔÖ®ËùÒÔÇ¿´ó£¬ÒÔ¼°Æä×ÔÓÉÐÔ£¬ºÜ´ó²¿·ÖÌåÏÖÔÚÆäÁé»îµÄÖ¸ÕëÔËÓÃÉÏ¡£Òò´Ë£¬ËµÖ¸ÕëÊÇCÓïÑÔµÄÁé»ê£¬Ò»µã¶¼²»Îª¹ý¡£Í¬Ê±£¬ ......
´íÎóÀàÐÍ£º³ö´íÎó³¢ÊÔ¶ÁÈ¡»òдÈëÊܱ£»¤µÄÄÚ´æ¡£Õâͨ³£Ö¸Ê¾ÆäËûÄÚ´æÒÑË𻵡£
C#Ô´Âë
[DllImport("Base64.dll")]
public static extern string Base64ToStr(string Base64);
protected void Page_Load(o ......