Clipper On Line • Ver Tópico - Gerando e Abrindo arquivo PDF usando xHarbour+pdflib+Hwgui

Gerando e Abrindo arquivo PDF usando xHarbour+pdflib+Hwgui

Aqui você poderá oferecer suas Contribuições, Dicas e Tutoriais (Texto ou Vídeo) que sejam de interesse de todos.

Moderador: Moderadores

 

Gerando e Abrindo arquivo PDF usando xHarbour+pdflib+Hwgui

Mensagempor sygecom » 12 Out 2007 04:05

*Abaixo um exemplo simple de Geração de PDF apartir de um arquivo TEXTO...pode ser usada em modo console, basta tirar as função da HWGUI e tem que linkar a PDFLIB.LIB da CONTRIB.

*******************
FUNC GERA_PDF(cARQ)
*******************
Private AMSG, CIMG
PRIVATE oDlgHabla:=NIL
AMSG := {}
set(105,1)
set(106,1)

IF cARQ=Nil
   cARQ="TEMP.PRN"
Endif

MsgRun("Aguarde Gerando Documento PDF...")

cFILE3 := "TESTE.PDF"

vARQ:={}
aadd( vARQ, {"LINHA","C",200,0} )
DBcreate("TEMP", vARQ,"DBFCDX")

SELE 40
USE TEMP new shar VIA "DBFCDX"
append from (cARQ) sdf

PdfNew(cFile3,8,842,595,1,1,,,)
PdfStartPage( {""} , .T. )

dbgotop()
cCONT=0
Do while !eof()
   cLinha := Linha           // Busca linha de impressao
   cCONT=cCONT+1
   Aadd(AMSG,cLinha)

   IF cCONT=60  // nova pagina
      PdfDrawPage( AMSG )
      PdfEndPage()
      PdfStartPage( {""} , .T. )
      cCONT=0
   ENDIF
   dbskip()
enddo

PdfDrawPage( AMSG )
PdfEndPage()
PdfEnd()
IF oDlgHabla#NIL
  oDlgHabla:CLOSE()
ENDIF
Abre_aqrquivo( cFile3 )
return nil

********************************************************************************
***************INCIO DA FUNCAO DE ABRIR ARQUIVOS********************************
********************************************************************************
// Open help file with associated viewer application
FUNCTION Abre_aqrquivo( cHelpFile )
   LOCAL nRet, cPath, cFileName, cFileExt
   HB_FNameSplit( cHelpFile, @cPath, @cFileName, @cFileExt )
   nRet := _OpenHelpFile( cPath, cHelpFile )
RETURN nRet

#pragma BEGINDUMP
   #pragma comment( lib, "shell32.lib" )
   #include "hbapi.h"
   #include <windows.h>
   HB_FUNC( _OPENHELPFILE )
   {
     HINSTANCE hInst;
     LPCTSTR lpPath = (LPTSTR) hb_parc( 1 );
     LPCTSTR lpHelpFile = (LPTSTR) hb_parc( 2 );
     hInst = ShellExecute( 0, "open", lpHelpFile, 0, lpPath, SW_SHOW );
     hb_retnl( (LONG) hInst );
     return;
   }
#pragma ENDDUMP
********************************************************************************
***************FIM DA FUNCAO DE ABRIR ARQUIVOS**********************************
********************************************************************************
Leonardo Machado
xHarbour.org + Hwgui + PostgreSql
leonardodemachado@hotmail.com

Faça você também sua doação esse fórum é uma lenda viva: http://www.pctoledo.com.br/doacao
Avatar de usuário

sygecom
Usuário Nível 7

Usuário Nível 7
 
Mensagens: 6718
Data de registro: 21 Jul 2006 10:12
Cidade/Estado: Alvorada-RS
Curtiu: 1 vez
Mens.Curtidas: 81 vezes

Mensagempor Luciano Bonfim » 03 Nov 2007 11:21

Caro Leonardo,

näo sei se aqui é o lugar correto para tirar dúvida sobre esse código que você postou, mas quando tento compilá-lo dá a sequinte mensagem de erro:

Error: Unresolved external '_HB_FUN_FILESIZE' referenced from C:\XHARBOUR\LIB\LI
BPDF.LIB|pdf1

Você sabe oque pode ser? estou usando xharbour 1.1 com GTWVW, mas esse mesmo erro está dando tb no xharbour 0.71.

Muito Obrigado
Muito Obrigado,

Luciano Bonfim de Azevedo
www.bonfim.com.br
luciano@bonfim.com.br
www.linkedin.com/in/lucianobonfim
Skype : lucianobonfim
Avatar de usuário

Luciano Bonfim
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 416
Data de registro: 23 Ago 2007 09:34
Cidade/Estado: Rio de Janeiro / São Paulo
Curtiu: 0 vez
Mens.Curtidas: 0 vez

Mensagempor sygecom » 03 Nov 2007 12:41

Vc viu que tem algumas funções da HWGUI ? tire elas fora, e vc esta linkando a PDFLIB ?
Leonardo Machado
xHarbour.org + Hwgui + PostgreSql
leonardodemachado@hotmail.com

Faça você também sua doação esse fórum é uma lenda viva: http://www.pctoledo.com.br/doacao
Avatar de usuário

sygecom
Usuário Nível 7

Usuário Nível 7
 
Mensagens: 6718
Data de registro: 21 Jul 2006 10:12
Cidade/Estado: Alvorada-RS
Curtiu: 1 vez
Mens.Curtidas: 81 vezes

Mensagempor Luciano Bonfim » 03 Nov 2007 16:23

eu tirei sim as funçöes da HWGUI...

estou linkando a LIBPDF.LIB(pelo menos é esse o nome que está no meu contrib e näo PDFLIB.LIB)

esse pdf1 é um arquivo que está dentro da contrib
Muito Obrigado,

Luciano Bonfim de Azevedo
www.bonfim.com.br
luciano@bonfim.com.br
www.linkedin.com/in/lucianobonfim
Skype : lucianobonfim
Avatar de usuário

Luciano Bonfim
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 416
Data de registro: 23 Ago 2007 09:34
Cidade/Estado: Rio de Janeiro / São Paulo
Curtiu: 0 vez
Mens.Curtidas: 0 vez

Mensagempor Luciano Bonfim » 03 Nov 2007 16:27

esses säo meus includes

#include 'inkey.ch'
#include "gtinfo.ch"
#include "c:\xharbour\contrib\what32\include\winuser.ch"
#include "c:\xharbour\contrib\pdflib\pdf.ch"
#include "c:\xharbour\contrib\pdflib\pdfhbdoc.ch"
#include "common.ch"
#include "hbclass.ch"

e essas sao as LIBs que eu uso

LIBS=$(BCCDIR)\LIB\c0w32.obj \
$(HARBOURDIR)\lib\rtl.lib \
$(HARBOURDIR)\lib\vm.lib \
$(HARBOURDIR)\lib\gtwvw.lib \
$(HARBOURDIR)\lib\lang.lib \
$(HARBOURDIR)\lib\macro.lib \
$(HARBOURDIR)\lib\rdd.lib \
$(HARBOURDIR)\lib\dbfcdx.lib \
$(HARBOURDIR)\lib\dbfntx.lib \
$(HARBOURDIR)\lib\hbsix.lib \
$(HARBOURDIR)\lib\dbffpt.lib \
$(HARBOURDIR)\lib\common.lib \
$(HARBOURDIR)\lib\libnf.lib \
$(HARBOURDIR)\lib\hbzip.lib \
$(HARBOURDIR)\lib\lib_xhb.lib \
$(HARBOURDIR)\lib\pp.lib \
$(HARBOURDIR)\lib\codepage.lib \
$(HARBOURDIR)\lib\debug.lib \
$(HARBOURDIR)\lib\pcrepos.lib \
$(HARBOURDIR)\lib\what32.lib \
$(HARBOURDIR)\lib\libpdf.lib \
$(BCCDIR)\lib\cw32.lib \
$(BCCDIR)\lib\import32.lib\

será que tá faltando alguma LIB ou Include?
Muito Obrigado,

Luciano Bonfim de Azevedo
www.bonfim.com.br
luciano@bonfim.com.br
www.linkedin.com/in/lucianobonfim
Skype : lucianobonfim
Avatar de usuário

Luciano Bonfim
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 416
Data de registro: 23 Ago 2007 09:34
Cidade/Estado: Rio de Janeiro / São Paulo
Curtiu: 0 vez
Mens.Curtidas: 0 vez

Mensagempor sygecom » 03 Nov 2007 16:28

como vc esta gerando a LIB da PDF ? esta linkando os dois PRG ? pdf1.prg e pdfhbdocs.prg
Leonardo Machado
xHarbour.org + Hwgui + PostgreSql
leonardodemachado@hotmail.com

Faça você também sua doação esse fórum é uma lenda viva: http://www.pctoledo.com.br/doacao
Avatar de usuário

sygecom
Usuário Nível 7

Usuário Nível 7
 
Mensagens: 6718
Data de registro: 21 Jul 2006 10:12
Cidade/Estado: Alvorada-RS
Curtiu: 1 vez
Mens.Curtidas: 81 vezes

Mensagempor Luciano Bonfim » 03 Nov 2007 16:32

essa LIb é gerada quando eu executo o makallbc.bat da pasta do xharbour
Muito Obrigado,

Luciano Bonfim de Azevedo
www.bonfim.com.br
luciano@bonfim.com.br
www.linkedin.com/in/lucianobonfim
Skype : lucianobonfim
Avatar de usuário

Luciano Bonfim
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 416
Data de registro: 23 Ago 2007 09:34
Cidade/Estado: Rio de Janeiro / São Paulo
Curtiu: 0 vez
Mens.Curtidas: 0 vez

Mensagempor sygecom » 03 Nov 2007 16:44

faça um teste usando o hbmake.
Leonardo Machado
xHarbour.org + Hwgui + PostgreSql
leonardodemachado@hotmail.com

Faça você também sua doação esse fórum é uma lenda viva: http://www.pctoledo.com.br/doacao
Avatar de usuário

sygecom
Usuário Nível 7

Usuário Nível 7
 
Mensagens: 6718
Data de registro: 21 Jul 2006 10:12
Cidade/Estado: Alvorada-RS
Curtiu: 1 vez
Mens.Curtidas: 81 vezes

Mensagempor Luciano Bonfim » 03 Nov 2007 17:01

hbmake no meu sistema ou para criar a LIBPDF?
Muito Obrigado,

Luciano Bonfim de Azevedo
www.bonfim.com.br
luciano@bonfim.com.br
www.linkedin.com/in/lucianobonfim
Skype : lucianobonfim
Avatar de usuário

Luciano Bonfim
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 416
Data de registro: 23 Ago 2007 09:34
Cidade/Estado: Rio de Janeiro / São Paulo
Curtiu: 0 vez
Mens.Curtidas: 0 vez

Mensagempor sygecom » 03 Nov 2007 17:15

os dois !
Leonardo Machado
xHarbour.org + Hwgui + PostgreSql
leonardodemachado@hotmail.com

Faça você também sua doação esse fórum é uma lenda viva: http://www.pctoledo.com.br/doacao
Avatar de usuário

sygecom
Usuário Nível 7

Usuário Nível 7
 
Mensagens: 6718
Data de registro: 21 Jul 2006 10:12
Cidade/Estado: Alvorada-RS
Curtiu: 1 vez
Mens.Curtidas: 81 vezes

Re: Gerando e Abrindo arquivo PDF usando xHarbour+pdflib+Hwgui

Mensagempor clodoaldomonteiro » 17 Jan 2010 00:52

Amigos1

To reabrindo esse tópico pq queria saber como coloco imagens em um PDF com a LIBPDF?

Grato pela atenção.
At. Clodoaldo Monteiro
Linguagens: Clipper / Harbour
Área de Atuação: Sistemas de gestão para Prefeituras Municipais
Fones: (86)3223-0653, 98859-0236
www.simplesinformatica.com.br
Avatar de usuário

clodoaldomonteiro
Usuário Nível 4

Usuário Nível 4
 
Mensagens: 621
Data de registro: 30 Dez 2006 12:17
Cidade/Estado: Teresina-PI
Curtiu: 23 vezes
Mens.Curtidas: 11 vezes

Re: Gerando e Abrindo arquivo PDF usando xHarbour+pdflib+Hwgui

Mensagempor clodoaldomonteiro » 17 Jan 2010 01:03

Vi no arquivo PDF1.PRG que existe um Metold PDFImage(), mas só q quando eu o chamo na aplicação, o compilador diz q ela não existe.
Será q devo compilar a lib novamente?
E como compilar?
At. Clodoaldo Monteiro
Linguagens: Clipper / Harbour
Área de Atuação: Sistemas de gestão para Prefeituras Municipais
Fones: (86)3223-0653, 98859-0236
www.simplesinformatica.com.br
Avatar de usuário

clodoaldomonteiro
Usuário Nível 4

Usuário Nível 4
 
Mensagens: 621
Data de registro: 30 Dez 2006 12:17
Cidade/Estado: Teresina-PI
Curtiu: 23 vezes
Mens.Curtidas: 11 vezes

Gerando e Abrindo arquivo PDF usando xHarbour+pdflib+Hwgui

Mensagempor lugab » 17 Mai 2013 15:15

Também tentei, mas não consegui fazer funcionar. Tentei com o xharour 1.0.0 e o 1.1.0

Acho que é o mesmo problema de todos, né ?. O PDF1.prg...

Turbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland
Error: Unresolved external '_HB_FUN___DBGENTRY' referenced from D:\MAX\XVSIGT\PDFLIB.LIB|pdf1


Será que alguma outra alma generosa daqui o fórum , como o Leonardo - que sempre está nos ajudando - pode postar um outro código para gente conseguir gerar um arquivo PDF a partir de um TXT ?
lugab
lugab
Colaborador

Colaborador
 
Mensagens: 862
Data de registro: 19 Mai 2009 15:58
Curtiu: 126 vezes
Mens.Curtidas: 37 vezes

Gerando e Abrindo arquivo PDF usando xHarbour+pdflib+Hwgui

Mensagempor sasquast » 12 Mar 2020 16:36

Pessoal,

Graças a ajuda de vocês eu estou conseguindo gerar o PDF agora, nativamente, porem estou apanhando demais com os comandos, coisas simples como, centralizar o texto, alinhar a direita, o simples fato de pular pra linha de baixo está dando trabalho quando isso está dentro de um loop onde eu não tenho como fixar a linha onde vou escrever o texto.
sasquast
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 17
Data de registro: 31 Jul 2019 16:47
Cidade/Estado: Volta Redonda / RJ
Curtiu: 26 vezes
Mens.Curtidas: 0 vez




Retornar para Contribuições, Dicas e Tutoriais

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 2 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro