Delphi-UTF8转GBK
/////////////////////////////////////////////
function TXml.getValue(str: string): string;//传入的UTF8字符串
var
s: string;
begin
if FBase64 then
begin
s := TNetEncoding.Base64.EncodeBytesToString(TEncoding.ANSI.GetBytes(str));
s := s.Replace(#13#10,'');
Result := s;//输出UTF8转GBK后的base64字符串
end
else
Result := str;
end;
///////////////////////////////////////////////////////
function AnsiBase64Encode(s : string) : string; //传入的UTF8字符串
var base64 : TIdEncoderMIME;
tmpBytes : TBytes;
begin
base64 := TIdEncoderMIME.Create(nil);
try
base64.FillChar := '=';
tmpBytes := TEncoding.ANSI.GetBytes(s);
Result := base64.EncodeBytes(TIdBytes(tmpBytes)); //Delphi默认加密会78个字符进行换行,后者过滤掉换行//Result := base64.EncodeBytes(TIdBytes(tmpBytes)).Replace(sLineBreak, '', [rfReplaceAll]);
finally
base64.Free;
end;
end;
function TXml.getValue(str: string): string;//传入的UTF8字符串
var
s: string;
begin
if FBase64 then
begin
s := AnsiBase64Encode(str);
s := s.Replace(#13#10,'');
Result := s;//输出UTF8转GBK后的base64字符串
end
else
Result := str;
end;
欢迎关注我,一起进步!扫描下方二维码即可加我
![](https://images.cnblogs.com/cnblogs_com/FKdelphi/1101510/o_200417075318%E5%8A%A0%E6%88%91QQ.jpg)
![](https://images.cnblogs.com/cnblogs_com/FKdelphi/1101510/o_200417080925%E5%8A%A0%E6%88%91%E5%BE%AE%E4%BF%A1.jpg)