最近在做一个短信相关的项目。从联通网关ส่ง过来的短信都是 ucs2 编码的。
在网上找了些资料， 找到一些使用 java 语言本身带的 api 转换的代码， 但没有合适的 delphi 源码， 所以经研究后自己写了一个， 很简单的：：
ฟังก์ชั่น UCS2TOGBK (const INVALUE: String): String;
วาจา
ฉัน: จำนวนเต็ม;
เริ่ม
ผลลัพธ์: = '';
สำหรับ i: = 1 ถึงความยาว (ไม่ถูกต้อง) div 2 - 1 ทำ
ผลลัพธ์: = ผลลัพธ์ + widechar (strtoint ('$' + inttohex (ord (unvalue [2 * i - 1]), 2)
+ inttoHex (ord (unvalue [2 * i]), 2)));
จบ;