Problemas con copia de archivos a la RED

[[duilioisola]]

Parece ser que si... No veo ningún otro error.
Si lo que quieres copiar es un archivo XML, lo que te sugiero que hagas es lo siguente:
Creas un TStrings y utilizas los métodos LoadFromFile SaveToFile

Código Delphi [-]
var
  ts : TStrings;
[...]
   {CopyFile(PChar(vFile),PChar('X:\archivo.XML'),False);}
   ts := TStrings.Create;
   try
      ts.LoadFromFile(vFile);
      ts.SaveToFile('X:\archivo.XML');
   finally
      ts.Free;
   end;
[...]

[[duilioisola]]

Otra opción es usar Streams. TFileStream en este caso...

Ejemplo de Delphi 6:

Código Delphi [-]
procedure TForm1.Save1Click(Sender: TObject);

var
  NewFileName: string;
  Msg: string;
  NewFile: TFileStream;
  OldFile: TFileStream;
begin
  NewFileName := ExtractFilePath(Application.ExeName) + ExtractFileName(Edit1.Text);
  Msg := Format('Copy %s to %s?', [Edit1.Text, NewFileName]);
  if MessageDlg(Msg, mtConfirmation, mbOKCancel, 0) = mrOK then
  begin
    OldFile := TFileStream.Create(Edit1.Text, fmOpenRead or fmShareDenyWrite);
    try
      NewFile := TFileStream.Create(NewFileName, fmCreate or fmShareDenyRead);

      try
        NewFile.CopyFrom(OldFile, OldFile.Size);
      finally
        FreeAndNil(NewFile);
      end;
    finally
      FreeAndNil(OldFile);
    end;
  end;
end;

[[duilioisola]]

Otra opcion BlockRead - BlockWrite

Ejemplo de Delphi 6:

Código Delphi [-]
var
  FromF, ToF: file;
  NumRead, NumWritten: Integer;
  Buf: array[1..2048] of Char;
begin
  if OpenDialog1.Execute then     { Display Open dialog box }
  begin
    AssignFile(FromF, OpenDialog1.FileName);
    Reset(FromF, 1);  { Record size = 1 }
    if SaveDialog1.Execute then      { Display Save dialog box}
    begin
      AssignFile(ToF, SaveDialog1.FileName);  { Open output file }

      Rewrite(ToF, 1);  { Record size = 1 }
      Canvas.TextOut(10, 10, 'Copying ' + IntToStr(FileSize(FromF))
        + ' bytes...');
      repeat
        BlockRead(FromF, Buf, SizeOf(Buf), NumRead);
        BlockWrite(ToF, Buf, NumRead, NumWritten);
      until (NumRead = 0) or (NumWritten <> NumRead);
      CloseFile(FromF);
      CloseFile(ToF);
    end;
  end;
end;

[edgwin]

Gracias amigo .... ya resolvi el problema.

Hice un servidor de archivos TCP, donde el servidor enviar el archivo y en la computadora cliente lo recibe y lo coloca en la ruta indicada.

Gracias nuevamente

Saludos!

[juank1971]

saludos edgwin y como hiciste ese servidor, postea eso me interesa estoy haciendo lo mismo.

saludos juank

[edgwin]

Claro que si amigo. En un momento mas te posteo el programita que hice, solo deja lo modifico para que sea un poco mas "generico" y no te marque errores.

Saludos!

[edgwin]

Que tal juank1971

Dame un correo para poderte enviar los archivos ya que el foro no me deja postearlos. Cabe mensionar que el programa servidor es un servicio, por lo que hay que compilar y construir e instalar en el sistema (inicio -> ejecutar -> C:\...\SrvDicomAgfa.exe /install).

Saludos!