Transferencia de Archivos x Sockets

[ecfisa]

Empezado por ØnLy

Ehh , esa seria la manera de recivir texto mediante el socket( Cosa que se)
pero yo hablo de recibir un string con la data de un archivo y desde delphi , recivirla y crear un nuevo archivo co ella........

alo comp

var
Data : string;

begin

data : socket.ReceiveText;

WriteFile( Data ) // <<< Esta parte es la que mas me confunde

end.

No se si me explique bien , pero espero que alguin me ayude!

Hola.

Código Delphi [-]
...
var
  txt: TextFile;
  Str: string;
begin
  Str:= Socket.ReceiveText;
  AssignFile(txt,'UNIDAD:\RUTA\NOMBRE_DE_ARCHIVO.TXT'); //unidad,ruta,nombre y extensión a gusto...
  try
    Reset(txt);
  except
    Rewrite(txt);
  end;
    Writeln(txt, Str);
  CloseFile(txt);
end;

Guía de estilo .

Saludos.