gdImageString - Erro

[edson65br]

Olá pessoal,
Consegui gerar o código de barras ean13 com as libs gdlib.lib e libbgd.lib mas falta um detalhe: A representação numérica logo abaixo das barras.
Tentei usar a função gdimagestring mas está dando erro nos argumentos passados. Alguém sabe quais os argumentos que preciso usar ?
Estou usando o seguinte...

...
im := gdImageCreate(134,65)

white := gdImageColorAllocate(im,255,255,255)
black := gdImageColorAllocate(im,0,0,0)
gdImageSetAntiAliased(im,black)
gdImageString(im,'arial.ttf',5,5,'edson',black)
gdImageGif(im,"teste.gif")
gdImageDestroy(im)

O erro: Error BASE/0 Argument error: GDIMAGESTRING Arguments: ( [1]=Type: P Val: 3239f8 [2]=Type:C Val:arial.ttf [3]=Type:N Val: 5 [4]=Type:N Val:5 [5]=Type:C Val: edson [6]=type:N val:1)
Qual(is) argumentos/parametros que estã(ão) errados ?

[sygecom]

o Segundo parametro não pode ser caracter, tem que ser um ponteiro carregado, tente assim:

Código: Selecionar todos

.....
im := gdImageCreate(134,65)
im:SetFontName( 'arial.ttf' )
pFont:=GetFont()
white := gdImageColorAllocate(im,255,255,255)
black := gdImageColorAllocate(im,0,0,0)
gdImageSetAntiAliased(im,black)
gdImageString(im,pFont,5,5,'edson',black)
gdImageGif(im,"teste.gif")
gdImageDestroy(im)

[edson65br]

Entendi, mas ao compilar com as alterações recomendadas, mas aparece o seguinte erro:
Error: Unresolved external '_HB_FUN_GETFONT' referenced from D:\FONTES\EAN13\EAN13.OBJ
Não está achando a função Getfont(). Estaria faltando incluir alguma lib na compilação ?

[sygecom]

Não testei o exemplo, mas veja se existe o metod GETFONT() nos fontes da sua lib GD.

Qual versão do xHarbour você está usando ?

[edson65br]

Estou usando "xHarbour Compiler build 1.2.1 (Simplex) Rev. 6406
Então, sou "clippeiro" a muito tempo e agora estou me aventurando com o xharbour.
Desculpe se minha dúvida é banal, mas como/onde verifico os fontes da lib ?

Para compilar o prg uso xBuild ean13.exe.xbp.
ean13.exe.xbp
CINI =
C_OUTPUTFOLDER =
DEFFILE =
INCLUDEFOLDERS = c:\xharbour\contrib\include;
LAUTORUN =
LDEBUG = .F.
LGUI = .F.
LIBFOLDERS =
LMT = .F.
LNOAUTOFWH = .F.
LPRG_CLASSICDEBUG = .F.
LPRG_DEBUG = .F.
LUSEDLL = .F.
MAPFILE =
MYC_FLAGS =
MYDEFINES =
MYLINK_FLAGS = -Gn -s
MYPRG_FLAGS =
MYRC_FLAGS =
MYSLY_FLAGS =
OUTPUTFOLDER =
PRG_OUTPUTFOLDER =
RC_OUTPUTFOLDER =
RUNARGUMENTS =
SLY_OUTPUTFOLDER =
STARTIN =
TARGETFOLDER =

[EAN13.prg]
MYC_FLAGS =
MYDEFINES =
MYPRG_FLAGS =

[c:\xharbour\lib\libbgd.lib]
[c:\xharbour\lib\gdlib.lib]

Eliminei a linha do getfont() e consegui compilar, mas ao executar aparece o seguinte erro:
Error BASE/1004 Class: 'POINTER' has no exported method: SETFONTNAME
Called from ->SETFONTNAME(0)
Called from EAN13.prg->TABEAN13(72)
Called from EAN13.prg->MAIN(14)

[Linguagemclipper]

Eu queria saber como compilo essa lib GD no Harbour 3.2