WEB开发网
开发学院软件开发Delphi delphi中将UCS2编码的字符串转化为GB2312编码的简... 阅读

delphi中将UCS2编码的字符串转化为GB2312编码的简单方法

 2006-02-04 13:47:46 来源:WEB开发网   
核心提示:最近在做一个短信相关的项目。从联通网关deliver&

最近在做一个短信相关的项目。从联通网关deliver过来的短信都是ucs2编码的。

在网上找了些资料,找到一些使用java语言本身带的api转换的代码,但没有合适的delphi源码,所以经研究后自己写了一个,很简单的:

function Ucs2ToGBK(const InValue: string): string;
var
  I: Integer;
begin
  Result := '';
  for I := 1 to length(InValue) div 2 - 1 do
    Result := Result + WideChar(StrToInt('$' + IntToHex(Ord(InValue[2 * I - 1]), 2)
                                             + IntToHex(Ord(InValue[2 * I]), 2)));
end;

Tags:delphi 中将 UCS

编辑录入:爽爽 [复制链接] [打 印]
赞助商链接