Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   C++ Builder (https://www.clubdelphi.com/foros/forumdisplay.php?f=13)
-   -   acceder a carpeta remota con password (https://www.clubdelphi.com/foros/showthread.php?t=73183)

chinchan 06-04-2011 01:34:35

acceder a carpeta remota con password
 
Hola de nuevo a todos. Necesito acceder a una carpeta remota por TCP con una aplicación C++ Builder, pero esta carpeta (si lo montamos como una unidad de red, pide usuario y password). ¿Sabéis como puedo acceder a la carpeta sin tener que montar previamente la unidad de red, teniendo en cuenta que aparte de la IP, tengo que enviar usuario y password?. Muchas Gracias

escafandra 07-04-2011 13:52:48

Código:

int SHCopy(String Source, String Target)
{
  SHFILEOPSTRUCT FS = {0};
  FS.wFunc = FO_COPY;
  FS.pFrom = (Source + "\0").c_str();
  FS.pTo = (Target + "\0").c_str();
  FS.fFlags = FOF_NOCONFIRMATION;
  return  SHFileOperation(&FS);
}


//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  NETRESOURCE NetResource;

  NetResource.dwType = RESOURCETYPE_DISK;
  NetResource.lpLocalName = "M:";
  NetResource.lpRemoteName = "\\\\IP remota\\Carpeta compartida";
  NetResource.lpProvider = "";
 
  // Conecto
  if(NO_ERROR != WNetAddConnection2(&NetResource, Password, User, CONNECT_UPDATE_PROFILE)){
      SHCopy("\\\\IP remota\\Carpeta compartida\\Archivot", "C:\\Archivo");

      // Desconecto 
      WNetCancelConnection2("M:", CONNECT_UPDATE_PROFILE, true);
  }
}

Saludos.

chinchan 12-04-2011 13:33:59

Perfecto, genial. Escafandra... ahora mismo te estoy haciendo la ola. Como siempre... muchísimas gracias.


La franja horaria es GMT +2. Ahora son las 21:11:02.

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