手机短信的接收 的PDU串的短信内容是4E2D 怎么把他翻译成汉字啊？

Question

我发的汉字是 “中”  
   最好是把转换代码铁上来看看啊 
就是怎么把4E2D 转换成“中” 还有 谁有完整的PDU短信息接受模块代码   谢谢

Answer 1

function _Ucs2ToText(Buf: PByteArray; Len: Integer): string;
var
  Temp, Dest: array[0..260] of Byte;
  I: Integer;
begin
  Len := Len div 2;
  for I := 0 to Len - 1 do
  begin
    Temp[I*2] := Buf[I*2+1];
    Temp[I*2+1] := Buf[I*2];
    Temp[I*2+2] := 0;
    Temp[I*2+3] := 0;
  end;
  WideCharToMultiByte(CP_ACP, 0, PWideChar(@Temp[0]), -1, LPTSTR(@Dest[0]), 260, nil, nil);
  Result := StrPas(@Dest[0]);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
  S: array [0..1] of Byte;
begin
  S[0] := $4E;
  S[1] := $2D;
  showmessage(_UCs2ToText(PByteArray(@S[0]), 2));
end;