最近在做一个短信相关的项目。从联通网关 Entregue 过来的短信都是 UCS2 编码的。
在网上找了些资料 ， 找到一些使用 java 语言本身带的 api 转换的代码 ， 但没有合适的 delphi 源码 ， 所以经研究后自己写了一个 很简单的 ：
función ucs2togbk (const invalue: string): string;
varilla
I: entero;
comenzar
Resultado: = '';
para i: = 1 a longitud (invalor) div 2 - 1 do
Resultado: = resultado + widechar (strToint ('$' + inttoHex (ord (invalor [2 * i - 1]), 2)
+ InttoHex (ord (invalor [2 * i]), 2)));
fin;