Permisos para acceder a BD en Paradox

[quali]

Hola todos.
Estoy desarrollando una aplicación que debe leer datos de una tabla Paradox que se encuentra en una maquina corriendo Windows 98. Esta maquina comparte su disco con protección con contraseña. Cuando ejecuto la aplicación, al intentar acceder a las tablas remotas, obtengo una excepción que me informa que tengo 'permiso denegado'.

Desde el explorador de la maquina en donde ejecuto la aplicación entro al entorno de red, selecciono la maquina que tiene la base de datos, accedo al recurso compartido e ingreso la clave de acceso. Luego vuelvo a ejecutar la aplicación y funciona correctamente. Evidentemente el problema es que necesito pasarle la password al recurso compartido para poder accederlo.
Alguien sabe como puedo hacer eso en tiempo de ejecución?
O sea, que la aplicación se loguee en un recurso compartido protegido por contraseña en W98.
Estoy desarrollando con Delphi y la aplicacion debe correr en windows XP o Windows server 2003
Desde ya agradezco cualquier ayuda.

[marcoszorrilla]

Tengo esta información, creo recordar haber hecho alguna prueba y que funcionaba correctamente, ya nos dirás como te va.

Código Delphi [-]
utilice una funcion de la api de Windows que oi mencionar aqui en el foro, la cosa esta en iniciar
una conexion con la carpeta compartida psandole un nombre de usuario y una contraseña, en
Win9x no importa el nombre de usuario solo la contraseña de la carpeta, mientras que en Windows
Nt y 2000 tienes que pasarle un usuario valido y el password del usuario no de la carpeta. el codigo
es mas o menos asi
 
function TDModulo.ConectaRed: boolean;
var
   RecursoRed: _NETRESOURCE;
   Resultado: Word;
begin
   Resultado := NO_ERROR;
   Conectado := false;
 
   with RecursoRed do
   begin
      dwType := RESOURCETYPE_DISK;
      LpLocalName := nil;
      LpRemoteName := Pchar(DirServer);  // dirserver podria ser  "\\maquina\carpeta"
      LpProvider := nil;
   end;
 
   // --------------- nos conectamos al directorio ------------------
   Resultado := WNetAddConnection2(
      RecursoRed, // points to structure that specifies connection details
      PChar(Contrasenia), // points to password string
      PChar(Usuario), // points to user name string
      CONNECT_UPDATE_PROFILE // set of bit flags that specify connection options
      );
 
   // --------------------------------------- ya que te conectaste al directorio inicias la sesion de paradox
---------------------------------
   try
      if not Resultado in [NO_ERROR, ERROR_ALREADY_ASSIGNED] then
         raise EInvalidOperation.Create('');
 
      with Sesion do begin
         NetFileDir := DirServer + '\NET';
         PrivateDir := ObtenWindowsTemp;
      end;
 
      with DataBase do begin
         Params.Clear;
         Params.Add('PATH=' + DirServer);
         Params.Add('DEFAULT DRIVER=PARADOX');
         Params.Add('ENABLE BCD=FALSE');
         Connected := true;
      end;
      Conectado := true;
   except
      ShowMessage('No se ha podido establecer una sesion en red para el sistema' + #13 +
         'posiblemente el servidor no este funcionando en este momento o' + #13 +
         'existe un error en la configuracion, por favor verifique y vuelva a intentar.');
      Conectado := False;
   end;
   Result := Conectado;
end;
 
esto es obviamente al momento de crear tu Datamodulo (supongo que utilizaras uno) o en el
momento de abrir tu base de datos.

Un Saludo.

[quali]

Marcos, crei haber respondido al otro dia que pusiste tu mensaje, pero por lo visto no lo hice.
Lo que me pasaste anduvo perfecto.

Muchas gracias

[marcoszorrilla]

Hubo un problema en el Foro y se perdieron algunos mensajes, pero recuerdo haber leido tu respuesta favorable.

Un Saludo.