Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Temas relacionados > Redes
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 16-02-2007
m8estrella83 m8estrella83 is offline
Miembro
 
Registrado: ene 2006
Posts: 58
Poder: 19
m8estrella83 Va por buen camino
hacer que mi aplicacion se connecte a una carpeta compartida pidiendo contraseña

Hola a todos estoy aciendo una aplicacion en donde tengo que accesar a una carpeta compartida en otra pc de mi red pero necesito que en el momento de conectarse me muestre el dialogo de usuario y contraseña.

Estoy utilizando delphi 5
Responder Con Cita
  #2  
Antiguo 17-02-2007
Avatar de marcoszorrilla
marcoszorrilla marcoszorrilla is offline
Capo
 
Registrado: may 2003
Ubicación: Cantabria - España
Posts: 11.221
Poder: 10
marcoszorrilla Va por buen camino
Código Delphi [-]
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;

Mira a ver si con este código te solucionas el problema.

Un Saludo.
__________________
Guía de Estilo de los Foros
Cita:
- Ça c'est la caisse. Le mouton que tu veux est dedans.
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Como hacer que mi aplicación acceda a la red sin que pida la contraseña al usuario Nbull Redes 8 02-02-2007 17:49:38
Hacer drag drop a una carpeta kloud OOP 3 28-11-2006 12:56:10
carpeta compartida Genner Varios 3 04-07-2006 21:57:45
Obtener la ruta real de una carpeta compartida en mi ordenador Javi2 API de Windows 0 14-07-2004 12:17:12
Como averiguar la ruta real de una carpeta compartida? Javi2 Varios 0 09-07-2004 12:36:04


La franja horaria es GMT +2. Ahora son las 02:04:07.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi