|
From: Antonio C. <anc...@gm...> - 2015-03-10 12:22:02
|
Compilé el siguiente ejemplo usando QPM:
#include 'harupdf.ch'
/***/
Function Example()
local pdf := HPDF_New()
HPDF_SetCompressionMode( pdf, HPDF_COMP_ALL )
HPDF_Page_SetSize( pdf, 4, 1 ) // A4 Portrait 595x841
HPDF_SetPageMode( pdf, HPDF_PAGE_MODE_USE_OUTLINE )
page := HPDF_AddPage( pdf )
HPDF_Page_SetLineWidth( page, 0.5 )
def_font1 := HPDF_GetFont( pdf, "Times-Roman", "WinAnsiEncoding" )
def_font2 := HPDF_GetFont( pdf, "Times-Bold", "WinAnsiEncoding" )
HPDF_Page_BeginText( page )
// 595x841
HPDF_Page_SetFontAndSize( page, def_font2, 18 )
texto( page, 20, 803, 'MEDANO I.C.I.' )
texto( page,400, 803, 'RESIPOL S.A.' )
HPDF_Page_SetFontAndSize( page, def_font1, 10 )
texto( page,20, 770, 'ORDEN DE COMPRA Nº' )
texto( page,400, 770, 'Fecha: ' +Dtoc( Date() ) )
texto( page,20, 750, 'Sujeto a la aprobación de gerencia de ventas' )
texto( page,20, 740, 'Vendedor: ' )
texto( page,400, 740, "Cuenta Nº: " +repl( "_",20 ) )
texto( page,20, 730, 'Código del Proveedor: Y240' )
texto( page,20, 720, 'Firma: TAISHAN FIBERGLASS INC' )
texto( page,400, 720, "Autorizado por: ____________________" )
texto( page,20, 710, 'C.U.I.T.: 000000000000000' )
texto( page,20, 700, 'Domicilio:' )
texto( page,400, 700, "Flete:" )
texto( page,20, 690, 'Localidad: SHANDONG PR' )
texto( page,400, 690, "Forma de Envio:" )
texto( page,20, 680, 'Provincia: 23' )
texto( page,400, 680, "I.B. Nº:" )
texto( page,20, 670, 'Cond. de Pago: 01 - CONTADO' )
texto( page,400, 670, "DJAI:" )
texto( page,20, 660, 'Referencia: SELINA HU' )
texto( page,400, 660, "Factura:" )
line( page, 650, 20, 555 )
HPDF_Page_EndText( page )
HPDF_SaveToFile( pdf, 'example.pdf' )
HPDF_Free( pdf )
return NIL
////////////////////////////////////////////////////////////////////////////
static function line( page, line, ini, tam, picote )
picote := if(picote = NIL, .F., picote)
if picote
HPDF_Page_SetDash(page, {3}, 1, 1)
endif
HPDF_Page_MoveTo( page, ini, line )
HPDF_Page_LineTo( page, ini+tam, line )
HPDF_Page_Stroke(page)
if picote
HPDF_Page_SetDash(page, NIL, 0, 0)
endif
return NIL
////////////////////////////////////////////////////////////////////////////
static function colu( page, col, ini, tam, picote )
picote := if(picote = NIL, .F., picote)
if picote
HPDF_Page_SetDash(page, {3}, 1, 1)
endif
HPDF_Page_MoveTo( page, col, ini )
HPDF_Page_LineTo( page, col, ini+tam )
HPDF_Page_Stroke(page)
if picote
HPDF_Page_SetDash(page, NIL, 0, 0)
endif
return NIL
////////////////////////////////////////////////////////////////////////////
static function texto( page, col, lin, texto, fim, direita )
local tw
direita := if( direita = NIL, .F., direita )
if fim = NIL
col += 2
elseif ! direita
tw := HPDF_Page_TextWidth( page, texto )
col += ( ( fim - col ) / 2 ) - ( tw / 2 )
endif
if direita
tw := HPDF_Page_TextWidth( page, texto )
col -= tw + 4
endif
HPDF_Page_TextOut( page, col, lin, texto )
return NIL
y me arroja los siguientes errores:
C:\hb32\comp\mingw\BIN\GCC.EXE -Wall -o E:\hb32\PRUEBA\EXAMPLE.EXE
C:\hb32\comp\mingw\BIN\_2015031032782_Script.ld -mconsole
C:\hb32\LIB\WIN\MINGW/libhbhpdf.a(core.o):core.c:(.text+0x16): undefined
reference to `HPDF_Free'
C:\hb32\LIB\WIN\MINGW/libhbhpdf.a(core.o):core.c:(.text+0x89): undefined
reference to `HPDF_New'
C:\hb32\LIB\WIN\MINGW/libhbhpdf.a(core.o):core.c:(.text+0xc9): undefined
reference to `HPDF_Free'
C:\hb32\LIB\WIN\MINGW/libhbhpdf.a(core.o):core.c:(.text+0x102): undefined
reference to `HPDF_NewDoc'
C:\hb32\LIB\WIN\MINGW/libhbhpdf.a(core.o):core.c:(.text+0x142): undefined
reference to `HPDF_FreeDoc'
C:\hb32\LIB\WIN\MINGW/libhbhpdf.a(core.o):core.c:(.text+0x182): undefined
reference to `HPDF_FreeDocAll'
C:\hb32\LIB\WIN\MINGW/libhbhpdf.a(core.o):core.c:(.text+0x1e5): undefined
reference to `HPDF_SaveToFile'
C:\hb32\LIB\WIN\MINGW/libhbhpdf.a(core.o):core.c:(.text+0x242): undefined
reference to `HPDF_SaveToStream'
C:\hb32\LIB\WIN\MINGW/libhbhpdf.a(core.o):core.c:(.text+0x282): undefined
reference to `HPDF_GetStreamSize'
C:\hb32\LIB\WIN\MINGW/libhbhpdf.a(core.o):core.c:(.text+0x2f1): undefined
reference to `HPDF_ReadFromStream'
C:\hb32\LIB\WIN\MINGW/libhbhpdf.a(core.o):core.c:(.text+0x372): undefined
reference to `HPDF_ResetStream'
C:\hb32\LIB\WIN\MINGW/libhbhpdf.a(core.o):core.c:(.text+0x3b2): undefined
reference to `HPDF_HasDoc'
C:\hb32\LIB\WIN\MINGW/libhbhpdf.a(core.o):core.c:(.text+0x405): undefined
reference to `HPDF_SetErrorHandler'
C:\hb32\LIB\WIN\MINGW/libhbhpdf.a(core.o):core.c:(.text+0x452): undefined
reference to `HPDF_GetError'
C:\hb32\LIB\WIN\MINGW/libhbhpdf.a(core.o):core.c:(.text+0x492): undefined
reference to `HPDF_GetErrorDetail'
C:\hb32\LIB\WIN\MINGW/libhbhpdf.a(core.o):core.c:(.text+0x4d2): undefined
reference to `HPDF_ResetError'
C:\hb32\LIB\WIN\MINGW/libhbhpdf.a(core.o):core.c:(.text+0x525): undefined
reference to `HPDF_SetPagesConfiguration'
C:\hb32\LIB\WIN\MINGW/libhbhpdf.a(core.o):core.c:(.text+0x585): undefined
reference to `HPDF_SetPageLayout'
C:\hb32\LIB\WIN\MINGW/libhbhpdf.a(core.o):core.c:(.text+0x5d2): undefined
reference to `HPDF_GetPageLayout'
C:\hb32\LIB\WIN\MINGW/libhbhpdf.a(core.o):core.c:(.text+0x625): undefined
reference to `HPDF_SetPageMode'
C:\hb32\LIB\WIN\MINGW/libhbhpdf.a(core.o):core.c:(.text+0x672): undefined
reference to `HPDF_GetPageMode'
C:\hb32\LIB\WIN\MINGW/libhbhpdf.a(core.o):core.c:(.text+0x6c5): undefined
reference to `HPDF_SetOpenAction'
C:\hb32\LIB\WIN\MINGW/libhbhpdf.a(core.o):core.c:(.text+0x712): undefined
reference to `HPDF_GetCurrentPage'
C:\hb32\LIB\WIN\MINGW/libhbhpdf.a(core.o):core.c:(.text+0x752): undefined
reference to `HPDF_AddPage'
C:\hb32\LIB\WIN\MINGW/libhbhpdf.a(core.o):core.c:(.text+0x7a5): undefined
reference to `HPDF_InsertPage'
C:\hb32\LIB\WIN\MINGW/libhbhpdf.a(core.o):core.c:(.text+0x818): undefined
reference to `HPDF_GetFont'
C:\hb32\LIB\WIN\MINGW/libhbhpdf.a(core.o):core.c:(.text+0x8ba): undefined
reference to `HPDF_AddPageLabel'
C:\hb32\LIB\WIN\MINGW/libhbhpdf.a(core.o):core.c:(.text+0x912): undefined
reference to `HPDF_CreateExtGState'
C:\hb32\LIB\WIN\MINGW/libhbhpdf.a(core.o):core.c:(.text+0x994): undefined
reference to `HPDF_CreateOutline'
C:\hb32\LIB\WIN\MINGW/libhbhpdf.a(core.o):core.c:(.text+0x9f5): undefined
reference to `HPDF_GetEncoder'
C:\hb32\LIB\WIN\MINGW/libhbhpdf.a(core.o):core.c:(.text+0xa42): undefined
reference to `HPDF_GetCurrentEncoder'
C:\hb32\LIB\WIN\MINGW/libhbhpdf.a(core.o):core.c:(.text+0xa95): undefined
reference to `HPDF_SetCurrentEncoder'
C:\hb32\LIB\WIN\MINGW/libhbhpdf.a(core.o):core.c:(.text+0xb08): undefined
reference to `HPDF_SetInfoAttr'
C:\hb32\LIB\WIN\MINGW/libhbhpdf.a(core.o):core.c:(.text+0xb65): undefined
reference to `HPDF_GetInfoAttr'
C:\hb32\LIB\WIN\MINGW/libhbhpdf.a(core.o):core.c:(.text+0xc9e): undefined
reference to `HPDF_SetInfoDateAttr'
Esto está compilado en un equipo con Windows 7 (64), y agregué la librería
libhbhpdf.a en la solapa LIB. Adjunto el archivo QPM
Antonio
Sistemas
Resipol
2015-03-09 18:09 GMT-03:00 Fernando Yurisich <
fyu...@us...>:
> Agregar libhbhpdf.a en la solapa LIB.
>
> Saludos
> Fernando Yurisich
>
> Q.P.M. is the continuation of Q.A.C. project manager for (x)Harbour and
> OOHG/Minigui based projects.
> Visit us at http://sourceforge.net/p/qpm and join the user list.
> For OOHG samples and documents, visit
> http://oohg.wikia.com/wiki/Object_Oriented_Harbour_GUI_Wiki
> Please support me with a donation via PayPal
> <https://www.paypal.com/cgi-bin/webscr?cmd=_donations&business=VYXQYCKWXLWAG&lc=UY&item_name=FYM&item_number=OOHG%2fQPM¤cy_code=USD&bn=PP%2dDonationsBF%3abtn_donateCC_LG%2egif%3aNonHosted>
> .
>
> El 9 de marzo de 2015, 17:52, Antonio Cardinaux <anc...@gm...>
> escribió:
>
>>
>> Tengo una carpeta con los PRG de un sistema en modo consola que compilo
>> mediante un archivo HBP con Harbour nightly
>> mediante el comando HBMK2 ARCHIVO.HBP. Esto funciona correctamente.
>> Cuando vi el post de hace unos días que hablaba acerca de compilar usando
>> QPM y Harbour Nightly, arme un proyecto en
>> QPM, todo iba bien hasta que me pide las librerías que usan HARUPDF y no
>> se cuales son y adonde tengo que buscarlas.
>> ¿Alguien me podría dar una ayuda al respecto ?. Gracias
>>
>> Antonio
>> Sistemas
>> Resipol
>> --
>> *Antonio Cardinaux** - Lanús* -* Pcia. de Buenos Aires - Argentina*
>>
>>
>>
>> ------------------------------------------------------------------------------
>> Dive into the World of Parallel Programming The Go Parallel Website,
>> sponsored
>> by Intel and developed in partnership with Slashdot Media, is your hub
>> for all
>> things parallel software development, from weekly thought leadership
>> blogs to
>> news, videos, case studies, tutorials and more. Take a look and join the
>> conversation now. http://goparallel.sourceforge.net/
>> _______________________________________________
>> qpm-users mailing list
>> qpm...@li...
>> https://lists.sourceforge.net/lists/listinfo/qpm-users
>>
>>
>
>
> ------------------------------------------------------------------------------
> Dive into the World of Parallel Programming The Go Parallel Website,
> sponsored
> by Intel and developed in partnership with Slashdot Media, is your hub for
> all
> things parallel software development, from weekly thought leadership blogs
> to
> news, videos, case studies, tutorials and more. Take a look and join the
> conversation now. http://goparallel.sourceforge.net/
> _______________________________________________
> qpm-users mailing list
> qpm...@li...
> https://lists.sourceforge.net/lists/listinfo/qpm-users
>
>
--
*Antonio Cardinaux** - Lanús* -* Pcia. de Buenos Aires - Argentina*
|