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;