Converter Base64 em PDF

Delphi

07/11/2014

Olá pessoal,

Estou recebendo de um Web Service um arquivo PDF no formato base64.

Gostaria de saber como faço para converter esses dados base64 em PDF.

desde já agradeço
Diego Jacauna

Diego Jacauna

Curtidas 0

Respostas

Manoel Jr

Manoel Jr

07/11/2014

No indy (idEncode64) se não me engano tem um componente para codficar e decodificar base64.
var 
source, target : TFileStream;
 
encoded : string;
 
begin 
source := TFileStream.Create('Test1.pdf', fmOpenRead); 
encoded := IdEncoderUUE1.Encode(source, source.Size); 
target := TFileStream.Create('Test2.pdf', fmOpenWrite); 
IdDecoderUUE1.DecodeToStream(encoded, target); 

end;


Mais em todo caso dá uma olhadinha aqui nesses links acho que vai te ajudar.

Trabalhando com Base64.
Decode Base64
GOSTEI 0
Diego Jacauna

Diego Jacauna

07/11/2014

Primeiramente obrigado pela resposta,

tentei fazer o procedimento, porém na hora de abrir o pdf ele informa que está corrompido.

se tiver mais alguma dica agradeço.
GOSTEI 0
Diego Jacauna

Diego Jacauna

07/11/2014

mais alguem com alguma solução??

quando converto fica assim:
%PDF-1.4
%âãÏÓ
5 0 objÿ£ÃÂôÆVæwF‚csCbôf–ÇFýr/FlateDecode?ÿãç7G&VЧ‰ÍÙݸòTu(t±£ÿä¤FZ»=ÏÍÐH==ö¸]S÷ Ë
‰ÿük "þLjÝ�“{4ˆ�jÇžuÕeÿú ?­ø#xçÿ#2"ÿéš|ó‘=çÜeû.|Eu™••÷ÿÆeÕ9õó“?yÒœ-C{öò«“_ÿùçÇï/9:ië»7ó¾œïé¯âŸßóqùÿÿ´K=ugó:Ôkw6¬cÝOg][Og_ÿÿÿÜ›ô¡Eå¨OúCÖ·ÿþJýêdíêfBü•—vªÇÿþîÉôçïI®ÒîÕ‚ý†Í½}5&ÇtýÿôH¯élss—^Òõè®n7/õ8äÿÿ¦§›|$qœ3
WÔd‡: gÿå¿ÿ6�½ü™²¾þ‡“–¡¿.éåÔÆm÷ÿï.®MÞ¦—Z±®ž¸?ÿ꼺 ¯¥j«ó÷^þcê¶£¤n¡úŸÿÒÔÕ:û:
®­W½Y½Z·p”}ù®«?þšéë)Qõÿû~�zg¤'÷ÉUãì¶¹ü¨ÿz¸ïë¿ÿžÓ×3­MG“¾&įôÇô‚TåWÿþ÷ž£�ƽÒ鸭êýê
ý½¾‡VÿOÿ84<T¨Åºe³›ÿù~Úf§„E/K¯I�nB'ײ/¿ÿÔÑÎI¸€ë5¢

gera o pdf mas na hora de abrir não abre.
GOSTEI 0
POSTAR