Maneira fácil de converter strings codificados por UCS2 em GB2312 codificado em Delphi

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

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

função ucs2togbk (const invalue: string): string;

var

I: Inteiro;

começar

Resultado: = '';

para i: = 1 a comprimento (invalue) div 2 - 1 do

Resultado: = Resultado + Widechar (strtoint ('$' + InttoHex (Ord (Invalue [2 * i - 1]), 2)

+ Inttohex (ord (Invalue [2 * i]), 2)));

fim;