Error ADS con AIS y REMOTE usando ADS.INI

Board index FiveWin para Harbour/xHarbour Error ADS con AIS y REMOTE usando ADS.INI

Posts: 1789

Joined: Tue Oct 11, 2005 05:01 PM

Error ADS con AIS y REMOTE usando ADS.INI
Posted: Thu Aug 04, 2011 04:34 AM

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 (fw): Select all Collapse

#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 (fw): Select all Collapse

[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.ciber-tec.d2g.com/ads/demos/aiswin32.zip

Salu2

Carlos Vargas

Desde Managua, Nicaragua (CA)

Patricio Avalos Aguirre

Posts: 1074

Joined: Fri Oct 07, 2005 01:56 PM

Re: Error ADS con AIS y REMOTE usando ADS.INI
Posted: Thu Aug 04, 2011 01:24 PM

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 (fw): Select all Collapse

    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 (fw): Select all Collapse

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 (fw): Select all Collapse

[SETTINGS]

RETRY_ADS_CONNECTS = 1 
DEFAULT_PROTOCOL=0

[SERVERCARMONA2]
LAN_IP=168.192.88.5
LAN_PORT=6262

Saludos
Patricio

__________________________________________________________________
Version: Harbour 3.2.0dev (r1307082134),Compiler: Borland C++ 5.8.2 (32-bit)
PCode version: 0.3, FWH 13.2
http://www.sialm.cl

carlos vargas

Posts: 1789

Joined: Tue Oct 11, 2005 05:01 PM

Re: Error ADS con AIS y REMOTE usando ADS.INI
Posted: Thu Aug 04, 2011 04:18 PM

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

Salu2

Carlos Vargas

Desde Managua, Nicaragua (CA)

Giovany Vecchi

Posts: 244

Joined: Mon Jun 05, 2006 09:39 PM

Re: Error ADS con AIS y REMOTE usando ADS.INI
Posted: Fri Aug 05, 2011 02:24 PM

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.

FiveTech Support Forums

Continue the discussion