Page 1 of 1
ocultar directorio y ADS
Posted: Fri Aug 11, 2006 4:17 pm
by meskamas
Cuales son los pasos para ocultar un directorio y solo pueda accesarlo desde Advantage??? mi servidor es un Netware 6.0 y el servidor ADS es 7.0
Trabajo con Fivewin/xharbour, PHP y ASP accesando a las mismas tablas
gracias
Gracias por la Ayuda
Posted: Sat Aug 12, 2006 12:54 am
by reinaldocrespo
No tengo la experiencia con Netware y ADS. Pero si con Linux y Windows server. El proceso debe ser similar.
Primero asigno "ownership" del directorio y los archivos al mismo usuario que es dueño del servicio de ADS server. Mas nadie tiene acceso a ver, o escribir en ese directorio.
Segundo necesitas un ADS data dictionary al cual te vas a conectar desde tu applicación de FWh + xharbour. Una vez el DD exite, ya te puedes conectar y tienes acceso a la data. Y es porque al conectarte al DD es el servicio del ADS server quien tiene el acceso a la data y le habla al cliente que se conecta al DD.
Un poco de código abajo:
Code: Select all
INI oIni FILE cIni
Get xRDD SECTION "RDD" ENTRY "RDD-VERSION" OF oIni DEFAULT "LOCAL"
Get xRDDpath SECTION "RDD" ENTRY "PATH" OF oIni DEFAULT cAppPath + "data\"
ENDINI
if xRDD <> "LOCAL"
rddsetdefault( "ADS" )
AdsSetFileType( ADS_NTX )
AdsLocking( ADS_COMPATIBLE_LOCKING )
rddRegister ( "ADS", 1 )
AdsRightsCheck( 0 )
if xRDD == "REMOTE"
ADSSetServerType( ADS_REMOTE_SERVER )
if !AdsConnect60( xrddpath + "pathlabs.add", ADS_REMOTE_SERVER, "ADSSYS", "" )
MsgStop( "Cannot connect to Remote Server " + Str( AdsGetLastError() ), xrddpath + "pathlabs.add" )
Quit
endif
else
ADSSetServerType( ADS_AIS_SERVER )
if !AdsConnect60( xrddpath + "pathlabs.add", ADS_AIS_SERVER, "internetuser", "pathlabs" )
MsgStop( "Cannot connect to AIS Server " + Str( AdsGetLastError() ), xrddpath + "pathlabs.add" )
Quit
endif
Endif
endif
Aqui ya tengo creado el DD y se llama pathlabs.add y con este codigo me conecto al DD ya sea dentro de la red o desde afuera via internet.
Posted: Sat Aug 12, 2006 5:22 pm
by R.F.
1) Comparte la carpeta donde tienes los datos
2) No asignes ningun usuario a dicha capeta
3) en tu codigo llama a la función ADSRightsCheck(.F.)
y listo.
pues....
Posted: Mon Aug 14, 2006 6:48 pm
by meskamas
vamos a hacer las pruebas, gracias