2Pascal-新时代的Pascal

标题: delphi 2010升级到xe8后，decodestring汉字出现：No mapping for the [打印本页]

作者: yxhua240 时间: 2015-7-24 13:21
标题: delphi 2010升级到xe8后，decodestring汉字出现：No mapping for the
delphi 2010升级到xe8后，decodestring汉字出现：No mapping for the Unicode character exists in the target multi-byte code page.

作者: OneChen 时间: 2015-7-24 13:24
本帖最后由 OneChen 于 2015-7-24 13:39 编辑

[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]

[attach]870[/attach]

作者: wang_80919 时间: 2015-7-24 13:40
楼上正解。
就是要用
TEncoding
TBytes

作者: wang_80919 时间: 2015-7-24 13:41
大家可以看看下文的讨论
http://www.2pascal.com/forum.php ... =1653&fromuid=4
(出处: 2Pascal-新时代的Pascal)

欢迎光临 2Pascal-新时代的Pascal (http://2pascal.com/)