Você pode converter PDF para JPG no Protheus, usando ADVPL, com a ajuda de dois utilitários (free) externos: ImageMagick e Ghostscript. Baixe-os e instale-os. IMPORTANTE: se você instalar em seu servidor, todos seus usuários do Protheus na rede poderão usar seu programa ADVPL.
Segue o programa ADVPL:
static function fConvPDFJPG(cNomPDF, cNomJPG)
local lRet := .f.,;
local lRet := .f.,;
cPathImgMgk := "C:\PROGRA~1\IMAGEM~1.9-Q\",;
cPathProth := "C:\PROTHEUS\PROTHE~1\TEMP\"
// ATENCAO: OS COMANDOS ABAIXO DEVEM FICAR EM MINUSCULO.
// ATENCAO: OS COMANDOS ABAIXO DEVEM FICAR EM MINUSCULO.
// OS PATHs DEVEM TER 8 DIGITOS (USE DIR /X NO CMD PARA VER O PATH REDUZIDO)
if waitrunsrv( cPathImgMgk + "convert -density 300 " + cPathProth + cNomPDF + " -quality 80 " + cPathProth + cNomJPG, .t., cPathImgMgk )
lRet := .t.
endif
return lRet
Observações:
1 - O programa ADVPL usa a função waitrunsrv para chamar o executável convert (que é parte do ImageMagik).
2 - A variável cPathImgMgk, recebe C:\Program Files\ImageMagick-6.8.9-Q16, no formato reduzido. A variável cPathProth recebe C:\Protheus\Protheus_data\Temp, no formato reduzido.
3 - Para saber como são seus paths reduzidos, abra uma janela de comando (CMD) e use DIR com o parâmetro /x.
Ver também:
Comentários
Postar um comentário