Page 1 of 1

ADS en un servidor Novell SB5

Posted: Mon Jun 19, 2006 4:26 pm
by Alvaro Urdaneta
Saludos al foro:

Estoy tratando de utilizar fwh/harbour con ads en un servidor Novell y no se conecta, este es el PRG:

// Harbour Advantage RDD sample

#include "FiveWin.ch"
#include "ads.ch"

REQUEST ADS

//----------------------------------------------------------------------------//

function Main()

rddsetdefault( "ADS", 1 )

REQUEST ADS
SET SERVER REMOTE //LOCAL
SET FILETYPE TO NTX

USE Clientes // Open any DBF...

OrdSetFocus("DIRECCION") // Second Tag on Clientes.cdx
go top

Browse() // Quick browse!!!

USE

return nil

//----------------------------------------------------------------------------//

Mis programas anteriores en clipper/fw/blinker utilizaban sin problemas:

REQUEST DBFNTXAX
RDDSETDEFAULT( "DBFCDXAX" )
y los dll's ADSIPX16.DLL y AXCOMM16.DLL

Que estoy haciendo mal ?, alguien me puede ayudar con esto?

Gracias

Alvaro Urdaneta

Posted: Tue Jun 20, 2006 3:45 pm
by R.F.
Alvaro:

Linkeaste el RDDADS. LIB y el ACE32.LIB a tu programa de 32 bits ?

Donde pusiste las DLLs ACE32.DLL, AXCS32.DLL y ADSLOC32.DLL ?

Que protocolo tienes instalado en el servidor (TCP/IP o IPX/SPX o ambos? )

Tienes instalado NetBeui en los protocolos de tus puestos ?

Haz probado a ver si con el ARC tienes comunicacion con el servidor ?

Posted: Wed Jun 21, 2006 2:03 pm
by Alvaro Urdaneta
Hola Rene:

>Linkeaste el RDDADS. LIB y el ACE32.LIB a tu programa de 32 bits ?
Si

>Donde pusiste las DLLs ACE32.DLL, AXCS32.DLL y ADSLOC32.DLL ?
En la carpeta de la aplicacion

>Que protocolo tienes instalado en el servidor (TCP/IP o IPX/SPX o ambos? )
Ambos

>Tienes instalado NetBeui en los protocolos de tus puestos ?
Si

>Haz probado a ver si con el ARC tienes comunicacion con el servidor ?
No lo tengo instalado

Rene, mis sistemas en fw/clipper/blinker siempre se han conectado, la version de Ads es 5.1, novell Small Business 5, estacion win98 y Xp, el problema es que no puedo conectarlos con fwh/harbour, que me falta?.
este es el build, gacias.

set hdir=f:\harbour
set bcdir=f:\bcc55

%hdir%\bin\harbour %1 /n /i\fwh\include;%hdir%\include /w /p %2 %3 > clip.log
@type clip.log
IF ERRORLEVEL 1 PAUSE
IF ERRORLEVEL 1 GOTO EXIT

echo -O2 -e%1.exe -I%hdir%\include %1.c > b32.bc
%bcdir%\bin\bcc32 -M -c @b32.bc
:ENDCOMPILE

IF EXIST %1.rc %bcdir%\bin\brc32 -r %1

echo c0w32.obj + > b32.bc
echo %1.obj, + >> b32.bc
echo %1.exe, + >> b32.bc
echo %1.map, + >> b32.bc
echo \fwh\lib\FiveH.lib \fwh\lib\FiveHC.lib + >> b32.bc
echo %hdir%\lib\rtl.lib + >> b32.bc
echo %hdir%\lib\vm.lib + >> b32.bc
echo %hdir%\lib\gtwin.lib + >> b32.bc
echo %hdir%\lib\lang.lib + >> b32.bc
echo %hdir%\lib\macro.lib + >> b32.bc
echo %hdir%\lib\rdd.lib + >> b32.bc
echo %hdir%\lib\dbfntx.lib + >> b32.bc
echo %hdir%\lib\dbfcdx.lib + >> b32.bc
echo %hdir%\lib\dbffpt.lib + >> b32.bc
echo %hdir%\lib\hbsix.lib + >> b32.bc
echo %hdir%\lib\debug.lib + >> b32.bc
echo %hdir%\lib\common.lib + >> b32.bc
echo %hdir%\lib\pp.lib + >> b32.bc
echo %hdir%\lib\codepage.lib + >> b32.bc

rem Uncomment these two lines to use Advantage RDD
echo %hdir%\lib\rddads.lib + >> b32.bc
echo %hdir%\lib\Ace32.lib + >> b32.bc

echo %bcdir%\lib\cw32.lib + >> b32.bc
echo %bcdir%\lib\import32.lib + >> b32.bc
echo %bcdir%\lib\psdk\odbc32.lib + >> b32.bc
echo %bcdir%\lib\psdk\nddeapi.lib + >> b32.bc
echo %bcdir%\lib\psdk\iphlpapi.lib + >> b32.bc
echo %bcdir%\lib\psdk\rasapi32.lib, >> b32.bc

IF EXIST %1.res echo %1.res >> b32.bc
rem uncomment this line to use the debugger and comment the next one
rem %bcdir%\bin\ilink32 -Tpe -s @b32.bc
%bcdir%\bin\ilink32 -Gn -aa -Tpe -s @b32.bc

IF ERRORLEVEL 1 GOTO LINKERROR
ECHO * Application successfully built
%1
GOTO EXIT
ECHO

rem delete temporary files
@del %1.c

:LINKERROR
ECHO * There are errors
GOTO EXIT

:SINTAX
ECHO SYNTAX: Build [Program] {-- No especifiques la extensi¢n PRG
ECHO {-- Don't specify .PRG extension
GOTO EXIT

:NOEXIST
ECHO The specified PRG %1 does not exist

:EXIT

Saludos

Posted: Wed Jun 21, 2006 3:16 pm
by R.F.
Los tiros van por el tema del protocolo.... quita el NetBeui deja solo TCP/IP e IPX/SPX.

Asegurate que la trama IPX sea la misma en ambos, cliente y servidor.

Si tienes novell 5.x o superior, quita el protocolo IPX y deja solo TCP/IP

Instala el ARC en tu estacion de trabajo y prueba si tienes conectividad al servidor.

La aplicaciones en Clipper / FW funcinan porque tienen asumido el tema del protocolo, por defaul para las aplicaciones de 16 bits es IPX/SPX, sin embargo para las aplicaciones de 32 bits hay que trabajar un poco mas con la configuracion de la red.