RSS订阅 | 匿名投稿
您的位置:网站首页 > 常用 > 正文

delphi中的unicode转换

作者:admin 来源:未知 日期:2010/4/28 21:59:32 人气: 标签:unicode

delphi7调用delphi2009生成的dll文件会出现乱码问题。是unicode的原因
终于从爱点delphi中找到了转换函数

function AnsiToUnicode(s:string):WideString;
var
lpWideChar:PWideChar;
len:Integer;
begin
len := ( Length(s) + 1 ) * 2;
GetMem(lpWideChar, len);
ZeroMemory(lpWideChar, len);

MultiByteToWideChar(CP_ACP,MB_PRECOMPOSED,
PChar(s), Length(s),lpWideChar, Len);

Result := lpWideChar;
FreeMem(lpWideChar);

end;


function UnicodeToAnsi(s:WideString):string;
var
lpChar:PChar;
len:integer;
begin
len := Length(s) * 2;
GetMem(lpChar,len);
ZeroMemory(lpChar, len);
WideCharToMultiByte(CP_ACP, WC_COMPOSITECHECK, PWideChar(s),
Length(s),lpChar,Len, nil, nil );

Result := lpChar;
FreeMem(lpChar);
end;
读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址: