szdhsoft 2015-08-18 00:47 采纳率: 0%
浏览 1713

急救!!!delphi7 下面对ucs-2编码如何进行转码?

各位大虾,小弟在开发一个身份证的读取程序,但是读出来是用gb13000 ucs-2进行编码的,然后我在百度上找遍了都没有找到关于delphi7下的转码函数,请问这个有解吗?
谢谢!!!

  • 写回答

3条回答 默认 最新

  • 不得闲 2015-08-18 01:17
    关注

    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;

    评论

报告相同问题?

悬赏问题

  • ¥50 NT4.0系统 STOP:0X0000007B
  • ¥15 想问一下stata17中这段代码哪里有问题呀
  • ¥15 flink cdc无法实时同步mysql数据
  • ¥100 有人会搭建GPT-J-6B框架吗?有偿
  • ¥15 求差集那个函数有问题,有无佬可以解决
  • ¥15 【提问】基于Invest的水源涵养
  • ¥20 微信网友居然可以通过vx号找到我绑的手机号
  • ¥15 寻一个支付宝扫码远程授权登录的软件助手app
  • ¥15 解riccati方程组
  • ¥15 使用rabbitMQ 消息队列作为url源进行多线程爬取时,总有几个url没有处理的问题。