delphi中Base64编码转成PDF文件

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;