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

Delphi 专栏收录该内容
11 篇文章 0 订阅

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;

  • 1
    点赞
  • 0
    评论
  • 1
    收藏
  • 一键三连
    一键三连
  • 扫一扫,分享海报

©️2021 CSDN 皮肤主题: 大白 设计师:CSDN官方博客 返回首页
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值