Aos poucos migrando tela caracter para GUI

[cjp]

Estou só começando a usar o ADO. Ainda uso muita coisa em RDDI. Esta precisa desta lib, não precisa?

[asimoes]

Estou só começando a usar o ADO. Ainda uso muita coisa em RDDI. Esta precisa desta lib, não precisa?

Claro que não, pelo jeito você não deveria estar passando por esse problema. Quando você for usar um SGBD ai o papo é outro. Remove isso ai do seu hbp

[cjp]

Vixe! Todo esse trabalho desnecessário! Nem sei de onde tirei essa lib. Não uso mais nada em mysql além de RDDI e ADO.

Tirei essa lib. Mas infelizmente ainda não consegui compilar. Não sei se seria a falta dessa lib (acho que não tem nada a ver), mas está dando falta de algumas funções. Vejam o anexo, por favor.

[asimoes]

Vixe! Todo esse trabalho desnecessário! Nem sei de onde tirei essa lib. Não uso mais nada em mysql além de RDDI e ADO.

Tirei essa lib. Mas infelizmente ainda não consegui compilar. Não sei se seria a falta dessa lib (acho que não tem nada a ver), mas está dando falta de algumas funções. Vejam o anexo, por favor.

Nesse fonte que deu erro incluir:

#define HB_SYMBOL_UNUSED( symbol ) ( symbol := ( symbol ) )

[JoséQuintas]

#define HB_SYMBOL_UNUSED( symbol ) ( symbol := ( symbol ) )

Não, isso vai gerar erro de compilação por estar atribuindo o valor e não usar..

Direto do std.ch do 3.4

Código: Selecionar todos

#define HB_SYMBOL_UNUSED( symbol )  ( ( symbol ) )

[asimoes]

Não, isso vai gerar erro de compilação por estar atribuindo o valor e não usar..

Engraçado, para mim funciona assim a muito tempo.

Passei usar assim depois que o harbour começou a reclamar da falta da HB_SYMBOL_UNUSED

[JoséQuintas]

Código: Selecionar todos

PROCEDURE Main

   LOCAL x

   ( X := ( x ) )
   ( x )

Fiz o teste agora.
O primeiro não dá erro, porque x acaba sendo usado na linha seguinte, pra nada, mas é usado.

Código: Selecionar todos

PROCEDURE Main

   LOCAL x

   ( x )
   ( X := ( x ) )

O segundo dá erro, porque atribui x sem usar.

test.prg:7: warning W0032 Variable 'X' is assigned but not used in function '6:MAIN'

[cjp]

Este resolveu, mas permanecem os dois demais. Veja o anexo.
A sendmail() eu uso.

[JoséQuintas]

Este resolveu, mas permanecem os dois demais. Veja o anexo.A sendmail() eu uso.

E não parece nada depois disso, por exemplo a dica do que precisa acrescentar?

[cjp]

Não aparece. Veja o anexo.

[JoséQuintas]

hbmk2 -find sendmail
hbmk2 -find calldll

acho que num Harbour é tip_SendMail() e no outro hb_SendMail()
E num harbour é CallDll32() e no outro CallDll()

O problema é que a CallDll é a única função que existe repetida no Harbour, uma delas na LIB de compatibilidade com Xharbour.
Convém trocar essa pela hb_DynCall() que faz parte do Harbour, mas precisa verificar a sintaxe.

[JoséQuintas]

Só complemento:

hb_DynCall() faz parte do Harbour, do núcleo do Harbour, tanto pra Windows quanto pra Linux.
Já a CallDLL é uma contribuição, de repente dá pra dizer que foi um quebra-galho.
Acaba sendo mantida pra compatibilidade com versões anteriores, assim não precisa alterar fontes correndo.

[cjp]

Seria isso?
O que faço agora?

[JoséQuintas]

Era Harbour 3.2, agora tá pesquisando no Harbour 3.4.
Complicado isso.

Se for 3.4:
hbtip.hbc
hbmisc.hbc

E renomeie calldll32() pra calldll()

[JoséQuintas]

Agora que vi.
hb_SendMail() no 3.2, ou tip_MailSend() no 3.4