Jump to content
Fivewin Brasil

PDF com nvonvert


foliene

Recommended Posts

Alguem tentou usar o Nconvert com o Five, em relatorio de 14 paginas, demora uns 15 segundos.. usei o exemplo abaixo


Function REP2PDF(oPreview)

Local cString

Local cDdestino

Local cFile:="PDF" + StrTran(TIME(),":","") + ".pdf"

Local cDir:=cGetdir32("Elija Directorio para PDF") + "\"

Local x:=0

Local cTexto:=""

cDestino:=cDir + cFile

If Len(oPreview:oDevice:aMeta) = 1

cString:="nConvert -o " + cDestino + " -quiet -out pdf -c 5 " + oPreview:oDevice:aMeta[1]

Else

If File("listaemf.txt")

Delete File listaemf.txt

Endif

For x=1 To Len(oPreview:oDevice:aMeta)

cTexto:=cTexto + oPreview:oDevice:aMeta[x] + CRLF

Next

MemoWrit("listaemf.txt",cTexto )

cString:="nConvert -multi -o " + cDestino + " -quiet -out pdf -c 5 -l listaemf.txt"

Endif

MsgRun("Espere","Exportando a PDF", {|| WAITRUN(cString,0 ) } )

Return Nil

id=code>id=code>

A solução é boa para quem nao pode usar o PDfCreator ou outro.

Mas fica lento na conversão

Ari

Link to comment
Share on other sites

Alguem tentou usar o Nconvert com o Five, em relatorio de 14 paginas, demora uns 15 segundos.. usei o exemplo abaixo


Function REP2PDF(oPreview)

Local cString

Local cDdestino

Local cFile:="PDF" + StrTran(TIME(),":","") + ".pdf"

Local cDir:=cGetdir32("Elija Directorio para PDF") + "\"

Local x:=0

Local cTexto:=""

cDestino:=cDir + cFile

If Len(oPreview:oDevice:aMeta) = 1

cString:="nConvert -o " + cDestino + " -quiet -out pdf -c 5 " + oPreview:oDevice:aMeta[1]

Else

If File("listaemf.txt")

Delete File listaemf.txt

Endif

For x=1 To Len(oPreview:oDevice:aMeta)

cTexto:=cTexto + oPreview:oDevice:aMeta[x] + CRLF

Next

MemoWrit("listaemf.txt",cTexto )

cString:="nConvert -multi -o " + cDestino + " -quiet -out pdf -c 5 -l listaemf.txt"

Endif

MsgRun("Espere","Exportando a PDF", {|| WAITRUN(cString,0 ) } )

Return Nil

id=code>id=code>

A solução é boa para quem nao pode usar o PDfCreator ou outro.

Mas fica lento na conversão

Ari

Link to comment
Share on other sites

eu sei do Fast e do Report Manager, todos otimos e com as soluções, mas não é facil pegar mas de 400 relatorios ou listagem e passar para ele, ou mesmo Danfe por PDF, ou email de cotações, pedidos, com multiplos desenhos, criar tudo isso para ter o beneficio da exportação PDF, já tentei a TPDF(), mas ela tambem não é facil, uso o PDFCreator e funciona bem, mas agora com Terminal service e Thin Client com multiplas empresas, que cada empresa não pode ver os PDF da outra, quando mudo o AutoSave do PDF para jogar nas suas pastas separadas, já aconteceu de pegar PDF de uma empresa e jogar na outra. por foi feito ao mesmo tempo ..deu meleca !

Ari

Editado por - foliene on 13/04/2011 10:42:45

Link to comment
Share on other sites

citação:

eu sei do Fast e do Report Manager, todos otimos e com as soluções, mas não é facil pegar mas de 400 relatorios ou listagem e passar para ele, ou mesmo Danfe por PDF, ou email de cotações, pedidos, com multiplos desenhos, criar tudo isso para ter o beneficio da exportação PDF, já tentei a TPDF(), mas ela tambem não é facil, uso o PDFCreator e funciona bem, mas agora com Terminal service e Thin Client com multiplas empresas, que cada empresa não pode ver os PDF da outra, quando mudo o AutoSave do PDF para jogar nas suas pastas separadas, já aconteceu de pegar PDF de uma empresa e jogar na outra. por foi feito ao mesmo tempo ..deu meleca !

Ari

Editado por - foliene on 13/04/2011 10:42:45


id=quote>id=quote>

Ari, não tenho muita certeza, porém não custa nada entrar em contato com o Gilmer e Perguntar se a Última Versão do FIVEWIN já não esta fazendo isto.

Vi alguma coisa no forum internacional, mas não achei o Link.

Entre em contato: gilmer@fivewin.com.br

Abs

João Santos - São Paulo.

kmt_karinha@pop.com.br

joao@pleno.com.br

Fone: (11) 3106-2832 / 8243-5632 - TIM

FWH 2.7 - xHARBOUR WorkShop.Exe

dentinho.jpg?rnd=0.830315402649066

Link to comment
Share on other sites

citação:

eu sei do Fast e do Report Manager, todos otimos e com as soluções, mas não é facil pegar mas de 400 relatorios ou listagem e passar para ele, ou mesmo Danfe por PDF, ou email de cotações, pedidos, com multiplos desenhos, criar tudo isso para ter o beneficio da exportação PDF, já tentei a TPDF(), mas ela tambem não é facil, uso o PDFCreator e funciona bem, mas agora com Terminal service e Thin Client com multiplas empresas, que cada empresa não pode ver os PDF da outra, quando mudo o AutoSave do PDF para jogar nas suas pastas separadas, já aconteceu de pegar PDF de uma empresa e jogar na outra. por foi feito ao mesmo tempo ..deu meleca !

Ari

Editado por - foliene on 13/04/2011 10:42:45


id=quote>id=quote>

Eu comprei a imag2pdf.dll e nao tive praticamente trabalho algum pos ela gera o pdf a partir do emf do preview do próprio five

Marcelo Ferro

Petrópolis - Rj

Fwh9.01/xHarbour 1.1.0 Simplex /SqlLib /xMate/WS e Pelles

marca.jpg

Link to comment
Share on other sites

Ari, veja este: pdfMachine 14.18, simplesmente fantástico,

http://www.baixaki.com.br/download/pdfmachine.htm

em conjunto com este Foxit PDF Reader 4.3.1.0323,

http://www.baixaki.com.br/download/foxit-pdf-reader.htm

Estes dois juntos, dão um show.

Abs,

João Santos - São Paulo.

kmt_karinha@pop.com.br

joao@pleno.com.br

Fone: (11) 3106-2832 / 8243-5632 - TIM

FWH 2.7 - xHARBOUR WorkShop.Exe

dentinho.jpg?rnd=0.830315402649066

Link to comment
Share on other sites

citação:

Marcelo

é fácil na hora de gerar o PDF usando a image2 ?, com qual versão está do Five a minha ainda gera .wmf

Ari


id=quote>id=quote>

Olá Ari

é muito facil gerar

qual sua versão do five ?

Marcelo Ferro

Petrópolis - Rj

Fwh9.01/xHarbour 1.1.0 Simplex /SqlLib /xMate/WS e Pelles

marca.jpg

Link to comment
Share on other sites

citação:

Eu achei um exemplo no forum internacional, mas tá dando um GPF no IPSetDPI(0), voce coloca quanquer valor e dá GPF

Alguem pode me ajudar ?

Ari


id=quote>id=quote>

Ola Foliene

Desculpe estava complicado aqui hoje

Segue exemplo

**************************************//***************************************

STATIC FUNCTION MakePDF( aFiles, PdfFileName )

**************************************//***************************************

LOCAL ImageFileName := " ", ix, iErr := 0, ErrorText := " "

// Lembrando q. a dll tem q. estar no raiz do seu sistema

hLib := LoadLib32( "Image2PDF StdCall.DLL" )

iErr := I2PDF_License( "YOUR LICENSE CODEHERE"K0V4UPC" )

// ensure that any EMF files are converted at highest quality

iErr := I2PDF_MetaToNativePDF( )

iErr := I2PDF_UseEMFDeviceSize( )

iErr := I2PDF_SetDPI(300) // Set PDF DPI to the same as the image

// Build the pages using the array of image files

FOR ix := 1 TO LEN( aFiles )

ImageFileName := aFiles[ix]

IF (iErr := I2PDF_AddImage(ImageFileName)) # 0

EXIT

ENDIF

NEXT

// Create the PDF.

iErr := I2PDF_MakePDF(Rtrim(PdfFileName), 0, ErrorText, 40 )

FreeLib32( hLib )

IF !PdfExecute( AllTrim(PdfFileName) + '.pdf' )

MSG("Não foi possível abrir o Acrobat Reader.","ATENÇÃO","STOP")

ENDIF

RETURN( PdfFileName )

declarações

// DLL API proptotypes

DLL32 STATIC FUNCTION I2PDF_License( cLicCode AS LPSTR) AS LONG;

PASCAL FROM "I2PDF_License" LIB hLib

DLL32 STATIC FUNCTION I2PDF_MetaToNativePDF( ) AS LONG;

PASCAL FROM "I2PDF_MetaToNativePDF" LIB hLib

DLL32 STATIC FUNCTION I2PDF_UseEMFDeviceSize( ) AS LONG;

PASCAL FROM "I2PDF_UseEMFDeviceSize" LIB hLib

DLL32 STATIC FUNCTION I2PDF_AddImage( cImage AS LPSTR ) AS LONG;

PASCAL FROM "I2PDF_AddImage" LIB hLib

DLL32 STATIC FUNCTION I2PDF_SetDPI( nDpi AS LONG ) AS LONG;

PASCAL FROM "I2PDF_SetDPI" LIB hLib

DLL32 STATIC FUNCTION I2PDF_MakePDF( cOutFile AS LPSTR, nOptions AS LONG, cErrTxt AS LPSTR, nMaxESize AS LONG ) AS LONG;

PASCAL FROM "I2PDF_MakePDF" LIB hLib

Marcelo Ferro

Petrópolis - Rj

Fwh9.01/xHarbour 1.1.0 Simplex /SqlLib /xMate/WS e Pelles

marca.jpg

Link to comment
Share on other sites

obrigado vou testar

Ari

já testei e funcionou legal, eu estava usando a DLL errada tem que usar a com final STDCALL.dll

Muito obrigado, estou a uns 5 anos tentando achar uma solução para PDF e com esta DLL que não é caro se for ver os beneficios de nao ter que instalar coisas no Win7, Vista e outros OS, que de vez em quando não dá certo instalar, por direitos de usuario (o tecnico de rede bloqueia as coisas) perde um tempão falando..etc.., fora o tempo de conectar na maquina do Cara e ficar instalando.

agora vou modificar algumas chamadas que fazia no PDFCreator e boa..

valeu !

Ari

Editado por - foliene on 16/04/2011 12:35:28

Link to comment
Share on other sites

  • 4 weeks later...
  • 3 years later...

Ari, veja este: pdfMachine 14.18, simplesmente fantástico,

http://www.baixaki.com.br/download/pdfmachine.htm

em conjunto com este Foxit PDF Reader 4.3.1.0323,

http://www.baixaki.com.br/download/foxit-pdf-reader.htm

Estes dois juntos, dão um show.

Abs,

João Santos - São Paulo.

kmt_karinha@pop.com.br

joao@pleno.com.br

Fone: (11) 3106-2832 / 8243-5632 - TIM

FWH 2.7 - xHARBOUR WorkShop.Exe

dentinho.jpg?rnd=0.830315402649066

Ressucitando o assunto, este pdfMachine permite que vc gere o pdf sem abrir a tela solicitando o nome do arquivo pelo usuário?

Abraços.

Link to comment
Share on other sites

NÃO QUE EU LEMBRE.

Mas você pode usar o SUMATRAPDF, ou gere e abra pelo ADOBE READER via programação e impedindo qualquer tipo de alteração no .PDF.

Aqui eu uso a FLEXDOCS para gerar o .PDF e uso SUMATRA / ADOBE e também o FASTREPORT.

Precisa de uma versão mais moderna do FIVEWIN para usar o ADOBE.

abs,

Link to comment
Share on other sites

Obrigado Kapiaba, na real eu uso hoje o CutePDF Writer para imprimir o danfe, pela classe do Gilmer, que por sua vez usa a tprinter. A solução que eu preciso é que não tenha que abrir a tela para que o usuário tenha que informar o arquivo. Uso a versão 1209 do fivewin. Você tem nfe e imprime Danfe?

Link to comment
Share on other sites

Bom dia, a solução de visualizar o danfe e gerar um pdf da tela de visualização já está ok, a solução que eu preciso é que na hora de enviar o e-mail do xml ao cliente, já consiga gerar o pdf e enviar junto, ai neste ponto que eu preciso gerar um pdf sem a intervenção do usuário.

Link to comment
Share on other sites

Bom dia, a solução de visualizar o danfe e gerar um pdf da tela de visualização já está ok, a solução que eu preciso é que na hora de enviar o e-mail do xml ao cliente, já consiga gerar o pdf e enviar junto, ai neste ponto que eu preciso gerar um pdf sem a intervenção do usuário.

Se voce usa a FLEXDOCS, é baba.

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...
×
×
  • Create New...