Problemas con copia de archivos a la RED

[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!

[[duilioisola]]

Me sigue quedando la duda: ¿No te da ningún mensaje de error?
¿O sea, pasa por la linea CopyFile(...); y no dice nada?
¿No te da una exception que diga algo? (el archivo ya existe, no tiene permiso, no existe la unidad, etc.)

Prueba poniendo a True la útima propiedad de CopyFile

Código Delphi [-]
CopyFile(PChar(vFile), PChar('X:\RIS.XML'), True);

Código sacado de Torry's Delphi Pages

Código Delphi [-]
{
  The CopyFile function copies an existing file to a new file.


 CopyFile(
  lpExistingFileName : PChar, // name of an existing file
  lpNewFileName : PChar,      // name of new file
  bFailIfExists : Boolean);   // operation if file exists

bFailIfExists:
  Specifies how this operation is to proceed if a file of the same name as
  that specified by lpNewFileName already exists.
  If this parameter is TRUE and the new file already exists, the function fails.
  If this parameter is FALSE and the new file already exists,
  the function overwrites the existing file and succeeds.
}

var
  fileSource, fileDest: string;
begin
  fileSource := 'C:\SourceFile.txt';
  fileDest := 'G:\DestFile.txt';
  CopyFile(PChar(fileSource), PChar(fileDest), False);
end;

[edgwin]

Gracias por responder duilioisola

No, no me marca ningun error. De echo el programa sigue corriendo sin problemas. Voy a optar por hacer un servidor de archivos en la maquina cliente que reciba los archivos ...

Gracias por tus respuestas

Saludos!

[[duilioisola]]

He hecho este pequeño programita ejemplo, para ver si puedes buscar el error.
Tiene un panel alineado alTop con un boton y un Memo para guardar un Log de todos los pasos.
En el evento del botón se llama al procedimiento que copia.
Si alguna función devuelve un error, te lo muestra en el memo.
Yo he probado con

• IP que no existe
• Nombre de usuario y contraseña incorrectos
• Carpeta que no existe dentro de la ip

Todos estos me dan algún tipo de error.

Ya nos contarás...

Código Delphi [-]
unit UFMMainCopia;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TFMMainCopia = class(TForm)
    PNLMain: TPanel;  {Panel alineado alTop}
    BCopiar: TButton;
    MLog: TMemo;      {Memo alineado alClient}
    procedure BCopiarClick(Sender: TObject);
  private
    procedure prcCopiARed(vOrigen, vDestino, vUser, vPassword :string);
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FMMainCopia: TFMMainCopia;

implementation

{$R *.dfm}

procedure TFMMainCopia.prcCopiARed(vOrigen, vDestino, vUser, vPassword :string);
var
   NetResource: TNetResource;
   vRuta : PChar;
   ErrCode : integer;
   ErrCode2 : LongBool;
begin
   MLog.Clear;
   {*****************************************}
   { IMPORTANTE: vRuta NO debe terminar en \ }
   {*****************************************}
   vRuta := PChar('\\192.168.152.127\Compartida');
   MLog.Lines.Add('vRuta := PChar(''\\192.168.152.127\Compartida'')');

   NetResource.dwType := RESOURCETYPE_DISK;
   MLog.Lines.Add('NetResource.dwType := RESOURCETYPE_DISK');

   //Letra con la cual sera mapeado el recurso
   NetResource.lpLocalName := 'X:';
   MLog.Lines.Add('NetResource.lpLocalName := ''X:''');

   //Nombre del recurso
   NetResource.lpRemoteName := vRuta;
   MLog.Lines.Add('NetResource.lpRemoteName := vRuta');

   NetResource.lpProvider := '';
   MLog.Lines.Add('NetResource.lpProvider := ''''');

   if (vUser = '') then
   begin
      ErrCode := WNetAddConnection2(NetResource, nil, nil, CONNECT_UPDATE_PROFILE);
      MLog.Lines.Add('WNetAddConnection2(NetResource, nil, nil, CONNECT_UPDATE_PROFILE)');
   end
   else
   begin
      ErrCode := WNetAddConnection2(NetResource, PChar(vPassword), PChar(vUser), CONNECT_UPDATE_PROFILE);
      MLog.Lines.Add('WNetAddConnection2(NetResource, PChar(' + vPassword + '), PChar(' + vUser + '), CONNECT_UPDATE_PROFILE)');
   end;

   MLog.Lines.Add('ErrCode: '+IntToStr(ErrCode));
   if (ErrCode = ERROR_ACCESS_DENIED             ) then MLog.Lines.Add('ERROR_ACCESS_DENIED') else
   if (ErrCode = ERROR_ALREADY_ASSIGNED           ) then MLog.Lines.Add('ERROR_ALREADY_ASSIGNED') else
   if (ErrCode = ERROR_BAD_DEV_TYPE              ) then MLog.Lines.Add('ERROR_BAD_DEV_TYPE') else
   if (ErrCode = ERROR_BAD_DEVICE           ) then MLog.Lines.Add('ERROR_BAD_DEVICE') else
   if (ErrCode = ERROR_BAD_NET_NAME           ) then MLog.Lines.Add('ERROR_BAD_NET_NAME') else
   if (ErrCode = ERROR_BAD_PROFILE           ) then MLog.Lines.Add('ERROR_BAD_PROFILE') else
   if (ErrCode = ERROR_BAD_PROVIDER           ) then MLog.Lines.Add('ERROR_BAD_PROVIDER') else
   if (ErrCode = ERROR_BUSY                   ) then MLog.Lines.Add('ERROR_BUSY') else
   if (ErrCode = ERROR_CANCELLED           ) then MLog.Lines.Add('ERROR_CANCELLED') else
   if (ErrCode = ERROR_CANNOT_OPEN_PROFILE       ) then MLog.Lines.Add('ERROR_CANNOT_OPEN_PROFILE') else
   if (ErrCode = ERROR_DEVICE_ALREADY_REMEMBERED ) then MLog.Lines.Add('ERROR_DEVICE_ALREADY_REMEMBERED') else
   if (ErrCode = ERROR_EXTENDED_ERROR            ) then MLog.Lines.Add('ERROR_EXTENDED_ERROR') else
   if (ErrCode = ERROR_INVALID_PASSWORD          ) then MLog.Lines.Add('ERROR_INVALID_PASSWORD') else
   if (ErrCode = ERROR_NO_NET_OR_BAD_PATH        ) then MLog.Lines.Add('ERROR_NO_NET_OR_BAD_PATH') else
   if (ErrCode = ERROR_NO_NETWORK           ) then MLog.Lines.Add('ERROR_NO_NETWORK') else
   MLog.Lines.Add('DESCONOCIDO');

   ErrCode2 := CopyFile(PChar(vOrigen), PChar('X:\destino.txt'), True);
   MLog.Lines.Add('CopyFile(PChar(' + vOrigen + '), PChar(' + vDestino + '), True)');
   if (ErrCode2) then
      MLog.Lines.Add('ErrCode: True')
   else
      MLog.Lines.Add('ErrCode: False');

   ErrCode := WNetCancelConnection2('X:', CONNECT_UPDATE_PROFILE, True);
   MLog.Lines.Add('WNetCancelConnection2(''X:'', CONNECT_UPDATE_PROFILE, True)''');
   MLog.Lines.Add('ErrCode: '+IntToStr(ErrCode));
end;

procedure TFMMainCopia.BCopiarClick(Sender: TObject);
begin
   prcCopiARed('C:\Origen.txt', 'X:\Destino.txt', 'Usuario', 'password');
end;

end.

[edgwin]

Gracias nuevamente por responder.

Este es el resultado que me genera:

vRuta := PChar('\\132.147.160.51\RIS')
NetResource.dwType := RESOURCETYPE_DISK
NetResource.lpLocalName := 'X:'
NetResource.lpRemoteName := vRuta
NetResource.lpProvider := ''
WNetAddConnection2(NetResource, PChar(Radiologia1), PChar(UPC), CONNECT_UPDATE_PROFILE)
ErrCode: 0
DESCONOCIDO
CopyFile(PChar(C:\Origen.txt), PChar(X:\Destino.txt), True)
ErrCode: False
WNetCancelConnection2('X:', CONNECT_UPDATE_PROFILE, True)'
ErrCode: 0

Adjunto, archivo zip con imagen del explorador de Windows

...

Saludos!