这是接受短信编码问题,发送短信的编码已经解决,现在贴上发送短信的解码,因为半桶水的关系,虽然代码出来了,但还不能了解代码的含义,希望高手看到之后能否帮忙解释一下?
function UnicodeEncodes(s: widestring) : string;
var
WS: WideString;
WC: WideChar;
Code: Word;
i: Integer;
begin
if (s = #0) or (s = '') then
begin
Result := '0';
Exit;
end;
WS := s;
Result := '';
for i := 1 to Length(WS) do
begin
WC := WS[i];
Move(WC, Code, SizeOf(WC));
Result := Result + IntToStr(code);
end;
end;
function TForm1.DXConvertUnicode(const ChineseStr: WideString): arrByte;
var
i, k, bNo, code, kk: LongInt;
strTotal, strtep: arrByte;
n, n1,str: string;
begin
k := Length(ChineseStr);
SetLength(strTotal, k*2);
strTotal[0] := 00;
bNo := 0;
For i := 1 To k do
begin
n1 := Copy(ChineseStr, i, 1);
n := UnicodeEncodes(n1);
code := StrToInt('$' + n);
kk := Code div 256;
strTotal[bNo] := kk;
strTotal[bNo + 1] := Code And 255;
bNo := bNo + 2;
end;
Result := strTotal;
end;