delphi中Base64编码转成PDF文件

发布时间 2023-04-09 09:24:06作者: yhcad

Base64编码转成PDF文件

 

 

PDF文件转成Base64编码:

首先,将PDF文件加载到MemoryStream中:
var
ms:TMemoryStream;
begin
ms:=TMemoryStream.Create;
try
ms.LoadFromFile('file.pdf');

然后,使用TIdEncoderMIME将TMemoryStream转换为Base64编码的字符串:

var
encoder:TIdEncoderMIME;
base64Str:string;
begin
encoder :=TIdEncoderMIME.Create(nil);
try
base64Str :=encoder.Encode(ms.Memory,ms.Size);
最后,释放资源:
finally
encoder.Free;
ms.Free;
end;
end;