Função LaserBase64

Essa função é utilizada para gerar arquivos físicos de conteúdos base64. Ela recebe dois parâmetros, o conteúdo base64 e o caminho a qual irá ser criado. O caminho deve conter o nome do arquivo e extensão do mesmo como por exemplo: C:\Temp\ArquivoAssinado_/IDPROCESSO/.pdf, neste caso ele irá criar o arquivo na pasta Temp com o nome ArquivoAssinado_1.pdf.

Exemplo de código

procedure pex_LerBase64(const Conteudo, Caminho : String); var loStream: TBytesStream; begin loStream := TSO.Decode64(Conteudo); try loStream.SaveToFile(Caminho); finally loStream.Free; end; end;

Ela pode ser criada pelo desenvolvimento, caso necessário, e utilizar em eventos como PEX - Executar função para criar dinamicamente um ou mais arquivos.