inforchica
25 de Mayo del 2005

Hola a todos:

Estoy haciendo un programa que envia un fichero comprimido a un servidor en formato gz utilizando el componente Tclientsocket, hasta ahi todo bien. Lo que no me sale es que el fichero no me llega entero al servidor, siempre me falta la ultima linea. El codigo que utilizo para enviar el fichero comprimido es el siguiente:

vpath:='C:Documents and SettingsmireyaMis documentos\'+nombrefichero;
Assignfile(A,vpath);
reset(A); Longitud:=FileSize(A); Leidos:=0;
while Longitud > 0 do
begin
move(buff2,Buff,sizeof(Buff));
BlockRead(A,Buff[0],SizeOf(Buff),Leidos); ClientSocket1.socket.SendBuf(Buff[0],SizeOf(Buff));
Longitud:=Longitud - Leidos;

end;
CloseFile(A);

Haber si me puede ayudar alguien.

Gracias