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

王朝delphi·作者佚名  2006-01-09
窄屏简体版  字體: |||超大  

最近在做一个短信相关的项目。从联通网关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;

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航