Como copiar archivos de una pc a otra por TCP/IP?

[JBalda]

Hola foro:

Tengo una aplicacion funcionando en una red local y necesito copiar archivos desde el servidor a la pc cliente. Hasta el momento lo resuelvo con la funcion copyfile.
Me gustaria saber como copiar desde el servidor a una pc cliente mediante TCP/IP, con copyfile no lo logre, ya que necesito colocar una unidad de red conectada a un recurso compartido en el servidor.

saludos!

[[duilioisola]]

function CopyFileTo(const Source: string; const Destination: string): Boolean;

Parameters

const Source: string

Source file name.


const Destination: string

Destination file name.


Returns

Boolean - True if the file is copied, False on error.


Description

CopyFileTo is a function used to copy the file specified in Source to the file specified in Destination.
CopyFileTo will return False if the file in Destination already exists.
CopyFileTo encapsulates the platform-specific calls needed to perform the file copy operation. On the Windows platform, this is the Win32 API function CopyFile. On the Linux platform, CopyFileTo uses a TFileStream instance to create the destination file.

Has probado poniendo :

Código Delphi [-]
var Exito : Boolean;
begin
   Exito := CopyFileTo('\\192.168.1.1\DirCompartido\Archivo.txt','C:\Temp\Archivo.txt');
end;

[JBalda]

Donde encuentro la funcion CopyFileTo ?

[[Delphius]]

Empezado por JBalda

Donde encuentro la funcion CopyFileTo ?

Escribe el nombre de la función, selecciona el nombre y luego presiona F1. Te debería aparecer la ayuda sobre dicha función. Allí en la ayuda se especifica a que Unit pertenece.

Saludos,

[JBalda]

No me aparece, segun veo esa funcion viene con las INDY, a esa te referis?

[[Delphius]]

Al menos en Delphi 6, exite esa función y está declarada en la unidad idGlobal.
Con declarar en uses dicha unidad debería funcionar.

Saludos,

[[cHackAll]]

Pues la API CopyFile está en todas las versiones de Delphi y de Güindos

Código Delphi [-]
CopyFile('C:\Temp\Archivo.txt', '\\192.168.1.1\DirCompartido\Archivo.txt', True);