Problemas con copia de archivos a la RED

[edgwin]

Que tal amigos del foro.

Estoy intentando copiar un archivo a una carpeta compartida en otro equipo, lo que intento es lo siguiente:

Código Delphi [-]
var
   NetResource: TNetResource;
   vRuta : PChar;
begin
   vRuta := PChar('c:\carpetaTmp\archivo.xml');
   NetResource.dwType := RESOURCETYPE_DISK;
   NetResource.lpLocalName := 'X:';
   NetResource.lpRemoteName := vRuta;
   NetResource.lpProvider := '';
   WNetAddConnection2(NetResource, 'Pass','Usuario', CONNECT_UPDATE_PROFILE);
   CopyFile(PChar(vFile),PChar('X:\archivo.XML'),False);
   WNetCancelConnection2('X:', CONNECT_UPDATE_PROFILE, True);

Cabe mensionar que el usuario y password es correcto, si se conecta a la unidad de red, y si cambio, en la linea "CopyFile" a una unidad local, si me copia el archivo ...

Pero no me copia nada a la unidad de RED "x", alguna sugerencia?

Saludos!

[[duilioisola]]

Seguramente este código te da un error al copiar. Si nos dices el error, puede que podamos ayudarte un poco más.

Yo supongo que el problema debe estar en la parte donde generas el recurso compartido (WNetAddConnection2).

WNetAddConnection2 devuelve a su vez un código de error. Si es 0 es que la carpeta compartida se generó correctamente.

Yo supongo que debe devolver algo distinto de 0.

Código Delphi [-]
var
   NetResource: TNetResource;
   vRuta : PChar;
   ErrCode : integer;
begin
   vRuta := PChar('c:\carpetaTmp\archivo.xml');
   NetResource.dwType := RESOURCETYPE_DISK;
   NetResource.lpLocalName := 'X:';
   NetResource.lpRemoteName := vRuta;
   NetResource.lpProvider := '';
   ErrCode := WNetAddConnection2(NetResource, 'Pass','Usuario', CONNECT_UPDATE_PROFILE);
   if (ErrCode=0) then
   begin
      CopyFile(PChar(vFile),PChar('X:\archivo.XML'),False);
      WNetCancelConnection2('X:', CONNECT_UPDATE_PROFILE, True);
   end else
      ShowMessage('No puedo conectar la unidad de red.');

[[duilioisola]]

También veo el siguiente problema.

• vRuta debe ser la ruta y no el archivo.
• vRuta debe ser un lugar en la red y no en el C: local.

Supongo que deberías cambiarlo a algo así:

Código Delphi [-]
   vRuta := PChar('\\EquipoRemoto\c\carpetaTmp');

[edgwin]

Gracias por responder:

Me equivoque en el codigo, voy a postear el codigo real que tengo:

Código Delphi [-]
procedure TfrmMain.prcCopiARed(vFile:string;vModa:string);
var
   NetResource: TNetResource;
   vIniFile : TIniFile;
   vRuta : PChar;
begin
   vIniFile := TIniFile.Create('./Config.ini');
   if vModa = '' then
      vRuta := PChar(vIniFile.ReadString('RUTA','RX','')) // Ruta: \\132.147.160.50\RIS
   else
      vRuta := PChar(vIniFile.ReadString('RUTA','MA','')); // Ruta: \\132.147.160.51\RIS
   NetResource.dwType := RESOURCETYPE_DISK;
   //Letra con la cual sera mapeado el recurso
   NetResource.lpLocalName := 'X:';
   //Nombre del recurso
   NetResource.lpRemoteName := vRuta;
   NetResource.lpProvider := '';
   WNetAddConnection2(NetResource, 'Radiologia1','UPC', CONNECT_UPDATE_PROFILE);
   CopyFile(PChar(vFile),PChar('X:\RIS.XML'),False);
   WNetCancelConnection2('X:', CONNECT_UPDATE_PROFILE, True);
end;

Ya intente como me dice duilioisola (como podran ver, la ruta la saco de un archivo INI) cambiando la ruta y nada!!!

Saludos!

[[duilioisola]]

Seguramente este código te da un error al copiar. Si nos dices el error, puede que podamos ayudarte un poco más.

Es importante que nos cuentes "el mensaje de error que te da".

Sin ese "detallito" no sabemos qué contestarte excepto suposiciones...

Suposición 1:
Después de leer el ini vRuta = '\\132.147.160.50\RIS' o vRuta = '\\132.147.160.51\RIS'
Puede que no sea ninguna de las dos y que no esté leyendo el ini correcto.

Suposición 2:
CopyFile(PChar(vFile),PChar('X:\RIS.XML'),False);
se traduciría como
CopyFile(PChar(vFile),PChar('\\132.147.160.51\RIS\RIS.XML'),False);

Quizás te has liado y el archivo RIS.XML está en la raiz del lugar al que apunta la dirección IP y no dentro de una carpeta que se llama RIS.

Suposición 3:
Radiologia1 y UPC no son los nombres de ususario y contraseña correctos o no tiene permisos de lectura.

Seguimos suponiendo ???

[edgwin]

Gracias por contestar.

Hice una pequeña modificacion en el codigo:

Código Delphi [-]
...
   vErr := WNetAddConnection2(NetResource, 'Agsrvc2ls','Crservice', CONNECT_UPDATE_PROFILE);
...

Es importante que nos cuentes "el mensaje de error que te da".
R.- El valor que me regresa es "0".

Sin ese "detallito" no sabemos qué contestarte excepto suposiciones...

Suposición 1:
Después de leer el ini vRuta = '\\132.147.160.50\RIS' o vRuta = '\\132.147.160.51\RIS'
Puede que no sea ninguna de las dos y que no esté leyendo el ini correcto.
R.- Claro que lo esta leyendo de manera correcta, en caso contrario no se conectaria a la unidad de red.

Suposición 2:
CopyFile(PChar(vFile),PChar('X:\RIS.XML'),False);
se traduciría como
CopyFile(PChar(vFile),PChar('\\132.147.160.51\RIS\RIS.XML'),False);
R.- No puedo hacer eso, ya que el equipo remoto esta protegido con contraseña, es por eso que me meti en este lio ...
Quizás te has liado y el archivo RIS.XML está en la raiz del lugar al que apunta la dirección IP y no dentro de una carpeta que se llama RIS.

Suposición 3:
Radiologia1 y UPC no son los nombres de ususario y contraseña correctos o no tiene permisos de lectura.
R.- Yo mismo cree la ruta y la comparti como administrador. Me asegure de tener todos los permisos necesarios, tan asi que puedo escribir sobre esa carpeta de manera remota.

El problema es que al parecer la funcion de copyFile no soporta la copia a unidades mapeadas, porque si se mapea la unidad (cuando lo corro paso a paso, abro un explorador y ahi aparece) y si hace la copia si cambio la unidad "X" por alguna unidad y carpeta local.

Alguien que me pueda ayudar!!
Gracias!