Converter PDF para Base64

16/12/2020

4

Boa noite!

Estou precisando converter um arquivo pdf em base 64 para poder trafega-lo num json através de um servidor Rest. Tenho uma função que faz isso com um bitmap mas, não estou conseguindo adapta-la para pdf. Segue a baixo a função:

function TFrmAddItem.Base64FromBitmap(Bitmap: TBitmap): string;
var
Input: TBytesStream;
Output: TStringStream;
begin
Input := TBytesStream.Create;
try
Bitmap.SaveToStream(Input);
Input.Position := 0;
Output := TStringStream.Create('', TEncoding.ASCII);

try
Soap.EncdDecd.EncodeStream(Input, Output);
Result := Output.DataString;
finally
Output.Free;
end;

finally
Input.Free;
end;
end;

Se alguém puder me ajudar, fico muito grato.

Sds,
Flávio
Responder

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários. Para saber mais sobre o uso de cookies,
consulte nossa política de privacidade. Ao continuar navegando em nosso site, você concorda com a nossa política.

Aceitar