delphi 2010升级到xe8后，decodestring汉字出现：No mapping for the

yxhua240

delphi 2010升级到xe8后，decodestring汉字出现：No mapping for the Unicode character exists in the target multi-byte code page.

wang_80919

大家可以看看下文的讨论
http://www.2pascal.com/forum.php ... =1653&fromuid=4
(出处: 2Pascal-新时代的Pascal)

wang_80919

楼上正解。
就是要用
TEncoding
TBytes

OneChen

[mw_shl_code=delphi,true]uses System.NetEncoding;

procedure TForm1.Button1Click(Sender: TObject);
begin
     // Encode 编码
     Memo2.Text := TNetEncoding.Base64.EncodeBytesToString(TEncoding.GetEncoding(936).GetBytes(Memo1.Text));
end;

procedure TForm1.Button2Click(Sender: TObject);
var b: TBytes;
begin
     // Decode 解码
     b := TNetEncoding.Base64.DecodeStringToBytes(Memo2.Text);
     Memo1.Text := TEncoding.GetEncoding(936).GetString(b);
end;
[/mw_shl_code]