Tengo un servidor que todo lo que le llega lo almacena en un archivo de texto:
Código Delphi
[-]
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var
Archivo: TextFile;
begin
System.Assign(Archivo,'archivo.txt');
System.Rewrite(archivo);
System.Write(archivo,Socket.ReceiveText);
System.Close(Archivo);
end;
y tengo un cliente que envía todo el contenido de un archivo de texto al servidor:
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
var
caracter: char;
begin
System.Assign(archivo,'archivo.txt');
System.Reset(archivo);
repeat
System.Read(archivo,caracter);
ClientSocket1.Socket.SendText(caracter);
until (EOF(archivo))
System.Close(archivo);
end;
El caso es que no me llegan todos los datos al servidor, sólo unos pocos y me pregunto por qué pasa esto si en teoría se envían todos y cada unos de los caracteres del fichero original.
Thanks!