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

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

  （出处：急速软件下载学院）

• 复制本页网址和标题，发送给你QQ/Msn的好友一起分享
  
  
• delphi中将UCS2编码的字符串转化为GB2312编码的简单方法 相关文章：
• ·delphi中将UCS2编码的字符串转化为GB2312编码的简单方法
• delphi中将UCS2编码的字符串转化为GB2312编码的简单方法 相关软件

上一篇:[感悟共享软件]第一章　为什么我会开发TCAD组件

下一篇:在Delphi中调用CHM帮助文件

• 特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作
• 者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转
• 载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源：http://www.hackhome.com

精品推荐

热点TOP10

特别推荐