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;