erro ao compilar com letodb

[lczani]

Boa Noite
Error: Unresolved external 'WSAIoctl' referenced from C:\MINIGUI\HARBOUR\LIB\HBRTL.LIB|hbsocket


o aplicativo es este:
* a snippet to show the basic structure of an application using LetoDBf */

REQUEST LETO

/* by using 'letodb.hbc', example: hbmk2 basic.prg letodb.hbc
* this will automatic include rdddleto.ch */
#include "rddleto.ch"

PROCEDURE main( cAddress ) /* pure IP-address */

//SET DEFAULT TO data
//SET PATH TO system;tmp

SET( _SET_DATEFORMAT, "dd.mm.yyyy" )
HB_CDPselect( "DE850" )

IF Empty( cAddress )
cAddress := "//192.168.1.20:2812/"
ELSE
cAddress := "//" + cAddress + IIF( ":" $ cAddress, "", ":2812" )
cAddress += IIF( Right( cAddress, 1 ) == "/", "", "/" )
ENDIF

IF leto_Connect( cAddress ) < 0
ALERT( "NO LETODB SERVER FOUND - ERROR: " + leto_Connect_Err( .T. ) )
QUIT
ELSE
// RDDSETDEFAULT( "LETO" ) /* automatic set by: REQUEST LETO */
// LETO_DBDRIVER( "DBFCDX" ) /* to choose your DBF driver independent of the server default */
LETO_TOGGLEZIP( 1 ) /* switch compressed network traffic */
ENDIF

// DbUseArea( .T., /* "LETO" */, "test", "TEST", .T. )
// ...

/* no special logout needed, all is automically done */
RETURN


Alguem pode me Ajudar.

[sygecom]

Ja tentou usar uma versão mais atualizada do Harbour ?

[lczani]

sim esta atualizado. uso a minigui extend de walter formigoni

[JoséQuintas]

procurei esse nome nos fontes do harbour 3.2 e não existe em lugar nenhum.
pesquisei nestes arquivos:
*.prg;*.ch;*.hbp;*.rc;*.frm;*.c;*.cpp;*.xsd;makefile;*.xml;*.;*.h;*.csl;*.hbm;*.h;*.yml;*.sql;*.ch;*.hbc;*.cpp

Uma coisa chata da minigui é ela mover arquivos que NÃO SÃO do harbour pra pasta do harbour.

A conclusão mais provável é que esse harbour está duvidoso.

[sygecom]

Zé,
Tem sim, veja na imagem abaixo

[sygecom]

Outra coisa, talvez tentar outro compilador C tipo MINGW

[carlaoonline]

Boa tarde!

Aqui compilou e rodou normal ( documentei a linha com o HB_CDPselect( "DE850" ) que deu erro de argumento).

MiniGui Walter Formigoni Version 1.4.4.7
Harbour versão: 3.2.0dev (r2104281802)
hbmk2 versão: 3.2.0dev (r2021-04-28 18:02)
Compilador Bcc58


prog.prg

Código: Selecionar todos

REQUEST LETO

/* by using 'letodb.hbc', example: hbmk2 basic.prg letodb.hbc
* this will automatic include rdddleto.ch */
#include "rddleto.ch"

PROCEDURE main( cAddress ) /* pure IP-address */

//SET DEFAULT TO data
//SET PATH TO system;tmp

SET( _SET_DATEFORMAT, "dd.mm.yyyy" )
// HB_CDPselect( "DE850" )

IF Empty( cAddress )
cAddress := "//192.168.1.20:2812/"
ELSE
cAddress := "//" + cAddress + IIF( ":" $ cAddress, "", ":2812" )
cAddress += IIF( Right( cAddress, 1 ) == "/", "", "/" )
ENDIF

IF leto_Connect( cAddress ) < 0
ALERT( "NO LETODB SERVER FOUND - ERROR: " + leto_Connect_Err( .T. ) )
QUIT
ELSE
// RDDSETDEFAULT( "LETO" ) /* automatic set by: REQUEST LETO */
// LETO_DBDRIVER( "DBFCDX" ) /* to choose your DBF driver independent of the server default */
alert("CONECTADO")
LETO_TOGGLEZIP( 1 ) /* switch compressed network traffic */
ENDIF

// DbUseArea( .T., /* "LETO" */, "test", "TEST", .T. )
// ...

/* no special logout needed, all is automically done */

LETO_DISCONNECT()

RETURN

Compilou e executou normal

Tem sim, veja na imagem abaixo

No harbour distribuido nos arquivos da MiniGui essa função encontra-se na linha 4027, a princípio parece ser o mesmo arquivo porém com 5 linhas de diferença.

Função encontrada na linha 4027

[lczani]

e interransante, este pequeno aplicativo esta compilando corretamente, já o meu sistema que bem mais complexo ele apos eu coloar as libs hbextren.lib e xhb.lib parou de aparecer este erro e agora aparece erro de _hb_fun_leto_set

[JoséQuintas]

Ok, pesquisei wsaLoctl, e é letra I e não L

Aí ferrou, não aparece em nenhum outro lugar.

[lczani]

vejam as imagens

[JoséQuintas]

e interransante, este pequeno aplicativo esta compilando corretamente, já o meu sistema que bem mais complexo ele apos eu coloar as libs hbextren.lib e xhb.lib parou de aparecer este erro e agora aparece erro de _hb_fun_leto_set

Não é que parou.
Vai aparecer assim que acrescentar essa lib.