UCS2- 인코딩 된 문자열을 델파이에서 인코딩 된 쉽게 변환하는 쉬운 방법

最近在做一个短信相关的项目。从联通网关 전달 c UCS2 编码的。

在网上找了些资料 在网上找了些资料, 找到一些使用 java 语言本身带的 api 转换的代码, 但没有合适的 delphi 源码, 所以经研究后自己写了一个, 很简单的 ： ：

함수 ucs2togbk (const Invalue : String) : String;

var

I : 정수;

시작하다

결과 : = '';

i : = 1에서 길이 (무효) div 2-1 do

결과 : = result + widechar (strtoint ( '$' + inttoHex (Ord (Invalue [2 * i -1]), 2)

+ inttoHex (Ord (Invalue [2 * i]), 2));

끝;