[Oxa78]

Saludos, estoy buscando una forma de trnasferir archivos con Indy en una red Lan, se q debo utilizar :

Server part (TIdTCPServer)

with IdTCPServer.Bindings.Add do
begin
IP:='192.168.167.12';
Port:=9999;
end;

Client part (TIdTCPClient)

with IdTCPClient do begin
Host := '192.168.167.12';
Port := 9999;
Connect;
WriteBuffer(MySendingRecord,SizeOf(MySendingRecord),true);
Disconnect;
end;

Como puedo transferir un archivo, por ejemplo, quiero transferir este archivo C:\texto.txt hacia \\Servidor\Destino.

Si alguien tiene algun ejemplo o tal vez no busque bien en los ejemplos.

Gracias