Ver Mensaje Individual
  #3  
Antiguo 26-08-2007
Avatar de b3nshi
b3nshi b3nshi is offline
Miembro
 
Registrado: feb 2005
Ubicación: Tucuman - Argentina
Posts: 164
Reputación: 20
b3nshi Va por buen camino
Bien... digamos q lo q hago en el codigo es ir leyendo parte por parte el archivo, buffer contiene el tamaño del archivo, entonces en el leidos voy cargando por partes mi archivo? Asi seria?

Por ejemplo yo puedo hacer algo asi?

Código Delphi [-]
var
archivo: FILE of byte;
contenido, enviando : ansistring;
tam, i, tamenvio : integer;
begin
{Archivo Basico}
try
   AssignFile(archivo, "miarchivo.ext");
   Reset(archivo); // intentar abrirlo
Except On Exception do
   begin
   try
      {Error: el archivo no existe o esta en uso}
      exit;
   end; 
   end;
end;
 
{Creo el componente para el envio y bueno... se lo configura}
cliente:= TTCPClient.Create(nil);
...
 
{Ahora voy leyendo por parte}
tam := strlen(archivo);
seek(archivo,0);
read(archivo, contenido); //Aqui cargo todo el archivo
closefile(archivo); //Ya no lo necesito
 
for i := 0 to tam do //Recorro la variable contenido hasta el final
begin
if (i + tamenvio) < tam then
 begin
  enviando := copy(contenido, i, tamenvio);
 end
 else
 begin
  enviando := copy(contenido, i, tam - i);
 end;
cliente.sendln(enviando);//Envio por parte el archivo
i := i + tamenvio; //Incremento la variable
end;
end;

Bueno supongo q algo mal tiene q haber en el codigo pero lo escribi de memoria... ahora mi pregunta es... puedo hacerlo de esta forma?

No se si se entendio pero la idea de esta forma es ir leyendo el archivo en partes como si fuera cadena de texto y la pc q lo reciba va a tener q ir armandolo al archivo en partes tambien...

Si es asi cuales son las ventajas y desventajas de hacerlo de esta forma?

Muchas Gracias por tu respuesta
{Saludos}
Responder Con Cita