Moyen facile de convertir les chaînes codées UCS2 en GB2312 à Delphi

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

在网上找了些资料 ， 找到一些使用 Java 语言本身带的 API 转换的代码 ， 但没有合适的 Delphi 源码 ， 所以经研究后自己写了一个 ， ： ：

fonction ucs2togbk (const invalue: string): String;

var

I: entier;

commencer

Résultat: = '';

pour i: = 1 à la longueur (invalue) div 2 - 1 do

Résultat: = résultat + widEchar (strToint ('$' + intohex (ord (invalue [2 * i - 1]), 2)

+ Intohex (ord (invalue [2 * i]), 2)));

fin;