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;
... 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;