解决字符串Base64 中文乱码问题（非76字符换行）

最新推荐文章于 2024-01-04 15:34:41 发布

原创最新推荐文章于 2024-01-04 15:34:41 发布 · 3.1k 阅读

1 ·

本内容遵循CC 4.0 BY-SA版权协议

收录于

Delphi 专栏收录该内容

14 篇文章

订阅专栏

本文介绍了一种在与第三方系统接口交互中使用Base64编码的具体实现方法，针对原生Base64类每76字符转码的问题，采用IdCoderMIME组件进行改进，确保了数据的完整性和跨系统的兼容性。

1、与第三方系统做接口要求使用Base64进行转码，但是原生的Base64类 Soap.EncdDecd 中的 EncodeString 每76字符就转码，故使用 IdCoderMIME 进行编码。

uses IdCoderMIME，IdGlobal

function ParseBase64UnTab: string;
var
IdEncoderMIME : TIdEncoderMIME;
begin
Result:= '';
IdEncoderMIME:= TIdEncoderMIME.Create(nil);
try
    try
       Result:= IdEncoderMIME.EncodeString(FCheckContent,IndyTextEncoding_UTF8);
    except on E: Exception do
      RECGLog4dV2.Error(Format(cErrorLog+'<模板文件>%s',[self.ClassName,'ReportXML.THL7Parser.Create()',
      FTestID,'加载模板发生异常',e.Message,Result]));
    end;
finally
    IdEncoderMIME.Free;
end;
end;