Error ADS con AIS y REMOTE usando ADS.INI

[carlos vargas]

Antonio, se que no es el lugar, pero talvez tu me guias donde podemos poner esto.

existen un problema con la funcion AdsConnect60 cuando se usa el ADS.INI para resolver el nombre del servidor.
my servidor se llama TSVR-CREDICOM, usando el nombre del servidor o su IP sumado el puerto y la cosa funciona correctamente, pero cuando se usa un nombre de servidor a ser resuelta usando el ads.ini ahi falla la cosa, no se conecta.

Code: Select all  Expand view

#define ADS_FULL     ( ADS_LOCAL_SERVER + ADS_REMOTE_SERVER + ADS_AIS_SERVER )
#define ADS_EXTERNAL ( ADS_REMOTE_SERVER + ADS_AIS_SERVER )

//este funciona ok
//IF !AdsConnect60( "\\192.168.1.200:4000\DATOSCREDICOM\DBCREDICOM.ADD", ADS_EXTERNAL, "AdsSys", "123", NIL, @hConnADS )

//este funciona ok
 //IF !AdsConnect60( "\\TSVR-CREDICOM:4000\DATOSCREDICOM\DBCREDICOM.ADD", ADS_EXTERNAL, "AdsSys", "123", NIL, @hConnADS )

//este falla completamente
   IF !AdsConnect60( "\\CREDICOMSERVER\DATOSCREDICOM\DBCREDICOM.ADD", ADS_EXTERNAL, "AdsSys", "123", NIL, @hConnADS )
 

ads.ini

Code: Select all  Expand view

[CREDICOMSERVER]
LAN_IP=192.168.1.200
LAN_PORT=4000
INTERNET_IP=kdsoft.net
INTERNET_PORT=4001
 

incluso he tomado alguno ejemplo de acceso AIS que funciona correctamente, pero al recompilarlo y generar un nuevo exe con el xharbour o harbour actual este ya nopega, por lo que se deduce que es una falla reciente en lib actual.
por ejemplo tomen este el cual funciona ok, y luego recmpilen y generen un nuevo exe con los compiladores actuales y veran que falla la conexion.

http://www...d2g.com/ads/demos/aiswin32.zip

[Patricio Avalos Aguirre]

Carlos:

consulta, en que ruta tienes el archivo ads.ini

lo pregunto porque yo utilizo la ultima opcion que tienes problema y el archivo ads.ini lo tengo con mi aplicacion

te adjunto ejemplo

Code: Select all  Expand view

    MsgRun( "Espere un momento, Conectando con el Servidor", "Win-Invent",;
          { || lConecte := AdsConnect60( oApp:AdsServer, oApp:AdsConnect, "adssys", "pass",, @hConnection ) } )

    if !lConecte
        MsgInfo( "Hay problemas en el servidor"+CRLF+"intente mas tarde", "usuario" )
        MsgInfo( "Error:"+cValtochar( AdsGetLastError() )+CRLF +;
            "Servidor:"+oApp:AdsServer, "Usuario" )
        PostQuitMessage(0)
        QUIT
        return
    endif
 

Code: Select all  Expand view

CLASS myClas...

    VAR AdsServer        AS CHARACTER  INIT "\\SERVERCARMONA2\WINVENT\DATOSADT\WININVENTADT.ADD"
    VAR hConnection      AS NUMERIC     INIT 0
    VAR AdsConnect          AS NUMERIC     INIT 2 //remoto
..
..
ENDCLASS

ads.ini

Code: Select all  Expand view

[SETTINGS]

RETRY_ADS_CONNECTS = 1
DEFAULT_PROTOCOL=0

[SERVERCARMONA2]
LAN_IP=168.192.88.5
LAN_PORT=6262

[carlos vargas]

lo tengo en el mismo dir que la aplicacion

*aclaro que las prueba la estoy haciendo con un server 10
*la lib ace32.lib generada con la dll correspondiente al server 10
*la libreria rddads compilada con el define que le indica que es la version 9.

ADS_LIB_VERSION=900

salu2
carlos vargas

[Giovany Vecchi]

Recentemente fiz um exemplo de conexão com ads (ais) sem precisar usar ads.ini.
Baixe e teste em: http://www.4shared.com/file/wtH0pXkj/Sa ... ernet.html

O advantage database server é trial e expirara em 20 dias.