ActiveDelphi

[rodrigoprado]

Blz pessoal,

Tenho um sistema legado em delphi 5 esse sistema gera um PDF/A e mesmo ele vazio o seu tamanho é 600kb + ou - e quando é PDF normal gira em torno de 60 KB + ou -, todavia este PDF/A é enviado em um webservice, este serviço agora só vai passar a aceitar arquivos com no máximo 200kb no formato /A e não pode ser zipado.

*** já usei a opção CompressStreamMethod := wpCompressFastFlate; no delphi 5 ele mas o melhor dele fica perto desses 6020 KB.

Então, gostaria de saber se os colegas tem uma idéia ai para pegar um PDF/A gerado e comprimir ele, tenho licença do delphi rio, então posso criar integrações com DLL para consumir o serviço.

Qualquer sugestão é bem vinda.
_________________
- Compartilhe seus conhecimentos -

[natanbh1]

Não tenho experiência com a manipulação do PDF/A, mas pesquise sobre a DLL GhostScript.

Com esta ferramenta você consegue manipular de maneira completa o PDF.

Reduzir, unir, converter para diversos formatos o PDF, etc.

Veja estes links:
http://www.activedelphi.com.br/forum/viewtopic.php?p=472118&sid=8e1868dff81ae8d5856b58d38a174b44
https://www.devmedia.com.br/manipulando-pdf-com-ghostscript/34424
https://www.ghostscript.com/index.html
_________________
''A persistência é o caminho para o êxito.''
Charlie Chaplin

[johnny-walker]

Amigo, se não engano-me, tem um artigo aqui no site que fala sobre compressão de pdfs, estava vendo este artigo há algum tempo, talvez te ajude, mas utiliza ghost script.

Dê uma olhada no SynPDF, talvez te ajude:
https://synopse.info/forum/viewforum.php?id=1



bye
_________________
P.O.W.E.R B.Y D.E.L.P.H.I

[rodrigoprado]

Muito bom

fiz o procedimento do ghostscript... conforme orientação dos brothers: johnny-walker e natanbh1

*****PDF NORMAL PARA PDF NORMAL COMPRIMIDO
gswin32 -dSAFER -dBATCH -dNOPAUSE -sDEVICE=pdfwrite -sOutputFile=PDFComprimido.pdf teste.pdf

*****PDF para PDF/a comprimido
gswin32 -dPDFA -dBATCH -dNOPAUSE -dUseCIEColor -sProcessColorModel=DeviceCMYK -sDEVICE=pdfwrite -sPDFACompatibilityPolicy=1 -sOutputFile=PDFComprimidoA.pdf teste.pdf

Meu objetivo era o segundo caso, peguei um 1.576 kB no formato já de /A, jogou ele para 191 KB, excelente, só vou jogar a dll na aplicação e usar por script mesmo.
_________________
- Compartilhe seus conhecimentos -