FiveTech Support Forums

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

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-(colcolumna), filafiz1,.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

Hola,

Me podeis dar informacion acerca PdfImage. Algun sencillo ejemplo ?

Gracias.
C.

hola
colthop

Gracias por el ejemplo.

De donde bajo la clase TPDF

Saludos y Gracias...
Hugo Navarro

pdflib contrib do xharbour

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

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

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

Anser

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

Joel; muchas gracias

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