Ayuda sobre PdfImage

[jhugono]

Hola
Buen Dia a Todos

Alguien me podria pasar la sintaxis de PdfImage()
y un Ejemplo de como se usa.

Lo que requiero es imprimir un archivo PDF como fondo en un reporte
y rellenar este, con sus datos correspondientes.

Saludos y Gracias ...
Hugo Navarro

[colthop]

Hola jhugono:

Yo utilizo esa clase y creo que para algo parecido, aqui te pongo como la utilizo en la impresion de presupuestos con una imagen JPG de fondo.

oPdf := tpdf():new(fichsali2)
do while .T.
oPdf:Pdfnewpage("A4","P",6)
oPdf:PdfImage("EMP" + xempr + "\presupue.jpg",0,0,595,842)
do while .T.
if eof()
oPdf:PdfClosePage()
exit
endif
if numero = 0
skip + 1
loop
endif
num = numero
if vcomalb = "S"
oPdf:PdfSetFont("LUCIDA CONSOLE",1,6.5)
else
oPdf:PdfSetFont("LUCIDA CONSOLE",1, 8 )
endif
oPdf:PdfAtSay(trim(substr(descripcio,1,49)) ,842-(col*columna), fila*fiz1,.T.)
skip + 1
if numero <> num .AND. .NOT. eof()
oPdf:PdfClosePage()
oPdf:Pdfnewpage("A4","P",6)
oPdf:PdfImage("EMP" + xempr + "\presupue.jpg",0,0,595,842)
endif
enddo
cant = cant + 1
if cant = cantt
exit
endif
go top
enddo
oPdf:PdfClose()

oPdf:PdfImage("nombre de archivo", origen X, origen Y, tamaño X, Tamaño Y).

Cuando hice esto tube problemas con la impresión, era porque yo creaba los archivos JPG con PhotoShop y aunque eran correctos no los imprimia, cambie y cree los archivos con ActivePixel y funciono correctamente.

Un saludo

Carlos

[Carles]

Hola,

Me podeis dar informacion acerca PdfImage. Algun sencillo ejemplo ?

Gracias.
C.

[jhugono]

hola
colthop

Gracias por el ejemplo.

De donde bajo la clase TPDF

Saludos y Gracias...
Hugo Navarro

[zazibr]

pdflib contrib do xharbour

[MarioG]

Estimados;
retomo este hilo porque me interesa probar PdfImage.
En principio baje las contribuciones y compilé los fuentes:
pdf1.prg
pdfhbdocs.prg

Al generar una llamada a la clase como oPdf:= tpdf():new( "mipdf" ) me devuelve este error:

--------------------Configuración: pru32 - Debug--------------------
Turbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland
Error: Unresolved external '_HB_FUN_FILESIZE' referenced from D:\XHARBOUR\3LIB\LIBPDF.LIB|pdf1
pru32.EXE - 1 error(es), 0 advertencia(s)

Como entre los archivos esta pdfhbdoc.c, lo agregué a la lib; no obstante el error se sigue manifestando.

Alguien me puede orientar. Y si puede ser con un sample, mejor aun

muchas gracias

[anserkk]

De donde puedo obtener la Clase FDPT

¿Se necesita cualquier DLL o ActiveX?

He descargado los binarios (para xHarbour BCC 5,5) de xHarbour.org

Pero no pude encontrar PdfLib o LibPDf en ella

Gracias de antemano

Anser

[anserkk]

Got it from http://rapidshare.com/files/57055588/pdflib.zip.html

Anser

[anserkk]

Estoy recibiendo el siguiente error al intentar crear una prueba de pdf

Code: Select all  Expand view

*-------------------------------------------*
Function PdfTest()
*-------------------------------------------*
LOCAL oPdf

oPdf := tpdf():new('D:\mypdf.pdf')
oPdf:Pdfnewpage("A4","P")
oPdf:Pdfatsay("Hello Anser",800,10,.t.)
oPdf:Pdfclosepage()
oPdf:pdfclose()
MsgInfo("PdfCreated")
RETURN .T.


Error: Unresolved external '_compress' referenced from C:\XHARBOUR\LIB\RTL.LIB|hbcomprs
Error: Unresolved external '_uncompress' referenced from C:\XHARBOUR\LIB\RTL.LIB|hbcomprs
Error: Unresolved external '_zError' referenced from C:\XHARBOUR\LIB\RTL.LIB|hbcomprs
Error: Unresolved external '_HB_FUN_FILESIZE' referenced from E:\FWHTESTS\XBROWSEOPEN\PDFLIB.LIB|pdf1

Anser

[MarioG]

Anser;
En tu plantilla de compilación probá incluyendo rtl.lib
No obstante tenés el mismo problema que yo, la llamada a filezsize() desde pdf1.prg
Los que usan esta lib tienen resuelto esta situación?

Saludos

[Joel Andujo]

Hola amigos del foro, Yo lo solucione agregando estas funciones en el fuente :

*----------------------------*
func filesize(cfile)
LOCAL nfiles := directory(cfile)
return nfiles[1,2]

*----------------------------*
func calcdata(cfile)
LOCAL nfiles := directory(cfile)
return nfiles[1,2]

*----------------------------*
FUNCTION __clsactive
RETURN NIL

Espero les ayuda, saludos
Joel Andujo

[MarioG]

Joel; muchas gracias

[anserkk]

He añadido los siguientes Fuctions a mi incluido PRG y xHarbour \ lib \ rtl.lib

Code: Select all  Expand view

*----------------------------*
func filesize(cfile)
LOCAL nfiles := directory(cfile)
return nfiles[1,2]
*----------------------------*
func calcdata(cfile)
LOCAL nfiles := directory(cfile)
return nfiles[1,2]
*----------------------------*
FUNCTION __clsactive
RETURN NIL


Lamentablemente no soy capaz de generar el archivo. Exe. Estoy recibiendo el siguiente mensaje de error. ¿Hay algún orden en la vinculación de RTL.LIB? Quiero decir que debe estar vinculado antes de cualquier otro lib.

Code: Select all  Expand view

Error: Unresolved external '_compress' referenced from C:\XHARBOUR\LIB\RTL.LIB|hbcomprs
Error: Unresolved external '_uncompress' referenced from C:\XHARBOUR\LIB\RTL.LIB|hbcomprs
Error: Unresolved external '_zError' referenced from C:\XHARBOUR\LIB\RTL.LIB|hbcomprs

Alguna idea de dónde me equivoco?

¿O es algo malo con mi Pdflib.Lib
He creado PdfLib.Lib utilizando las fuentes (PRG C Ficheros,. H archivo. Archivos y Fonts.Dat CH), que he descargado de
http://rapidshare.com/files/57055588/pdflib.zip.html

Nadie puede compartir la PdfLib aquí.

Gracias

Anser

[MarioG]

Anser:
Según lo que pones de referencia tu problema ya no es con la pdflib sino con RTL.LIB; aunque mis conocimientos no dan para decirte si es por alguna llamada de la pdflib a la rtl o porqué otro motivo.
Usando xHarbour 1.00 (PuertoSur) no tengo el problema al que hacés refrencia.
Probá poniedo pdf1.prg y pdfhbdocs.prg en tu sample a ver si te tira el mismo error. Si da, agregale el archivo .c (que si mirás el makefile podrás ver que no lo incluye (?)
es lo que se me ocurre...

saludos

[AIDA]

Hola estoy intentando poner una imagen.jpg en un archivito PDF primero genero el archivo.jpg desde el escáner y después se supone que debe quedar dentro de un PDF

estoy haciendo esto

Code: Select all  Expand view

function creapdf()
local opdf := tpdf():new('mipdf.pdf')
opdf:Pdfnewpage("A4","P",6)
oPdf:PdfImage("TestTscan32.jpg",0,0,595,842)
*opdf:Pdfatsay("HOLA MUNDO AQUI TOYYYYYYYYYYYY!!!!!!!!!!!",800,10,.t.)
opdf:Pdfclosepage()
opdf:pdfclose()
return .t.
 

Pero no sale la imagen.jpg dentro del PDF generado

que sera lo que me falta

Muchos Saluditos

Aida