Criar arquivo pdf.

[Kapiaba]

[Kapiaba]

Código: Selecionar todos

#include "FiveWin.ch" // Comente, se nao usa fivewin the best.

Function criapdf()

   LOCAL cMyRun, oPdf

   //->  Crie a pasta: c:\pdf para gravar
   opdf := tpdf():new('c:\pdf\meupdf.pdf')

   opdf:Pdfnewpage("A4","P")

   opdf:Pdfatsay( "OLA MUNDO!!!!!!!!!!!",800,10,.t. )

   opdf:Pdfclosepage()

   opdf:pdfclose()

   // Adobe deve estar instalado
   cMyRun := ( "C:\PDF\MEUPDF.PDF" )

   MYRUN( cMyRun )

return .t.


function filesize(cfile)

   LOCAL nfiles := directory(cfile)

return nfiles[1,2]


Function MYRUN( cComando )

   ***************************
   Local oShell, RET, lOk:=.T.

   TRY
      #IFDEF __XHARBOUR__
         oShell := CreateObject( "WScript.Shell" )
      #ELSE
         oShell := Win_OleCreateObject( "WScript.Shell" )
      #ENDIF

   CATCH

      TRY
         #IFDEF __XHARBOUR__
            oShell := CreateObject( "WScript.Shell" )
         #ELSE
            oShell := Win_OleCreateObject( "WScript.Shell" )
         #ENDIF

      CATCH

         lOk:=.F.

        END
   END

   IF lOk

      TRY

          //.F. = Nao espera a aplicacao fechar, .T. espera.
          oShell:Run( "%comspec% /c " + cComando, 0, .T. ) 

      CATCH

          lOk:=.F.

      END

      oShell := NIL

   ENDIF

   //--   RET := oShell:Run( "%comspec% /c " + cComando, 0)  //, .T. )

RETURN lOk

PDFLIB.LIB anexa

[braz]

Oi Kapiaba,

Eu nao uso nenhuma plataforma grafica.

veja o erro agora:

Enlazando testepd.exe...
Error: Unresolved external '_HB_FUN___CLSACTIVE' referenced from C:\XEDIT\XHARBOUR\LIB\PDFLIB.LIB|pdf1
Error: Unresolved external '_HB_FUN_COS' referenced from C:\XEDIT\XHARBOUR\LIB\PDFLIB.LIB|pdf1
Error: Unresolved external '_HB_FUN_SIN' referenced from C:\XEDIT\XHARBOUR\LIB\PDFLIB.LIB|pdf1
0 Files, 0 Warnings, 3 Errors

abçs

[Kapiaba]

Que versão do xHarbour você usa? Creio que esta que estás compilando, não suporta esta PDFLIB.LIB.

[braz]

Eu uso a versao 1.0.0

Onde baixo outra mais recente?

Obrigado

[Kapiaba]

http://forums.fivetechsupport.com/viewt ... 16&t=30637

[braz]

oI kAPIABA,

Fiz tudo que vc me pediu, mas mesmo assim, não deu certo. Deve ser alguma configuração que nao estou sabendo fazer.

Queria agradecer a vc e a todos que tentaram me ajudar.

Desisti do PDF e fiz os arquivos em HTML, para o que eu queria serviu muito bem.

abraços

[clodoaldomonteiro]

Amigos,
O xHarbour 123 está bugado, na função memoedit(). Ele não está aceitando setar teclas de funções.
Por exemplo: tentei setar o F7 para executar a mesma ação do ctrl+w e simplesmente não acontece nada, já na versão 1.00, tudo funciona.

[ROBERTO SÁVIO]

Prezados
Estou tentando gerar PDF em xHarbour, baixei a PDFLIB.LIB, mas está dando mensagens de erro em todas as funções, começando da HPDF_New().
Alguém poderia me ajudar?
Roberto Sávio

[Kapiaba]

Bom dia Roberto, mostre como está fazendo. Poste o código. Você não está esquecendo o Include?

Veja se ajuda aqui e como fica lindo em FiveWin:

viewtopic.php?f=2&t=16455

Fiz esse exemplo gratuitamente, para um novato do Forum Internacional de FiveWinners.

Abs.

[ROBERTO SÁVIO]

Senhor Kabiapa
Agradeço a tentativa de me ajudar.
Antes devemos esclarecer a confusão que estou fazendo.
Trabalho com o xHarbour 1.2.
Peguei um arquivo chamado HARUPDF.PRG, na pasta \xharbour\contib\hbhpdf\tests e copiei para meu programa.
Adicionei a HBHPDF.LIB e o HARUPDF.CH. Não deu certo.
Adicionei a PDFLIB.LIB, copiada de alguém aí do forum, com PDFHBDOC.CH. Também não deu certo.
O não deu certo significa a mensagem:
Unresolved external _HBPDF_new() referenced from c:\xharbour\lib\hbhpdf.lib |harupdf
para esta e para todas as outras funções.
Sei que estou misturando coisas diferentes, mas não sei identificar o que.
Abraços
Roberto Sávio

[Kapiaba]

Boa tarde Roberto, para se usar a PDFLIB.LIB, voce precisa dos exemplos que vem com o xHarbour que são:

Código: Selecionar todos

26/07/2004  05:32             5.407 fonts.dat
01/11/2004  08:38               411 Makefile
26/07/2004  05:32             2.829 Makefile.bc
26/07/2004  05:32             8.707 pdf.ch
08/10/2005  18:13            63.800 pdf1.prg
23/04/2005  10:52            19.111 pdfhbdoc.c
26/07/2004  05:32               959 pdfhbdoc.ch
20/11/2005  23:44            46.312 pdfhbdocs.prg
02/07/2004  08:32            24.474 pdflib.h

HARUPDF, não pertence a PDFLIB.LIB.

abs.

[ROBERTO SÁVIO]

Senhor Kabiaba
boa tarde
Sendo assim, para usar o exemplo que lhe falei, extraído da contrib do xharbour, vou usar a HBHPDF.LIB, com HARUPDF.CH.?
Tem mais alguma configuração que tenho que colocar no compilador?
{}s
Roberto Sávio

[Kapiaba]

Bom dia Roberto, tem que usar os dois, tanto o .prg como o .ch, mas eu acho que a versão do xHarbour que vc tem ai, não é compativel com a LIB ou vice versa: Unresolved external _HBPDF_new() referenced from c:\xharbour\lib\hbhpdf.lib |harupdf

[ROBERTO SÁVIO]

Senhor Kabiapa
bom dia
Observando com mais atenção, verifiquei que não são todas as funções que o compilador não encontra na LIB.
Algumas ele encontra.
Então pode ser a versão do Xharbour, como vc disse.
Não deveria ser porque a HBHPDF.LIB e a HARUPDF.CH vieram junto com a versão que estou usando.
Vou atualizar a versão para ver.
Darei notícias.
Obrigado
Roberto Sávio