FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
como enviar un archivo comprimido con Tcliensocket
Hola a todos:
Estoy haciendo un programa de envio de ficheros comprimidos en gz utilizando el componente Tclientsocket de delphi, hasta ahi bien. El error es que nunca me llega la ultima linea del fichero al servidor. Utilizo este codigo para mandar el fichero comprimidor: 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); Haber si alguien me puede ayudar. Gracias |
|
|
|