Delphi - como enviar archivos comprimidos con Tclientsocket

Hola a todos!!!

Tengo un programa cliente que manda un archivo comprimido en gz utilizando el componente Tclientsocket, hasta ahi todo bien. Solo que cuando mando el fichero utilizando esto

vpath:='C:\Documents and Settings\mireya\Mis 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);

el fichero no me llega entero al servidor, siempre me falta la ultima linea.

Si alguien me pudiera ayudar se lo agradeceria.

En lugar de abrir el archivo mediante la forma antigua (assign(), reset(),...) puedes utilizar un TFileStream para cargar el archivo y posteriormente enviar el archivo leyendo de dicho stream en lugar de utilizar la función move() a un buffer que siempre puede dar más problemas.

Saludos.

Diego :: beosman

Gracias por todo pero al final ya lo he arreglado, gracias

No seria mala idea que exlicases como lo has solucionado para que todos aprendamos un poco.

Pues simplemente en la declaracion del buff que era de la siguiente forma:

buff : array [0..1023] of byte;

Ahora en vez de 1024 le he puesto a 2048 y funciona!!! es muy raro,raro,raro pero funciona. Queda asi:

buff:array[0..2047] of byte;

Gracias Mireya, era por el bien de la comunidad.
Suerte