FiveTech Software tech support forums

... if nPage == 0 .or. nPrRow > 55 nPage++ pdfNewPage( "A4", "P", 6 ) if lEmail pdfImage(cPath + 'cbdlogo2.jpg',0,0,"M",25,105) pdfSetFont(aFonts[3,1], 0, 14,) pdfAtSay('xxxxxxxxxxxxx', 0, 145, "R" ) pdfAtSay('xxxxxxxxxxxxx', ...

Aida;
Descarté esta lib porque no cumplía con mis expectativas. En su lugar instalé PDCREATOR, que es free, y puedo incorporar texto e imagen en un doc.

Saludos

... esto :o 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 ...

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 p...

He añadido los siguientes Fuctions a mi incluido PRG y xHarbour \ lib \ rtl.lib *----------------------------* func filesize(cfile) LOCAL nfiles := directory(cfile) return nfiles[1,2] *----------------------------* func calcdata(cfile) LOCAL nfiles := directory(cfile) return nfiles&#...

Joel; muchas gracias

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] *------------...

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

Estoy recibiendo el siguiente error al intentar crear una prueba de pdf *-------------------------------------------* Function PdfTest() *-------------------------------------------* LOCAL oPdf oPdf := tpdf():new('D:\mypdf.pdf') oPdf:Pdfnewpage("A4","P") oPdf&...

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

Anser

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

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: ...

Hola,

Me podeis dar informacion acerca PdfImage. Algun sencillo ejemplo ?

Gracias.
C.

... 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 ...

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