Ok, tengo este codigo:
Código Delphi
[-]Procedure TForm1.FormCreate(Sender: TObject);
Var
Archivo1, Archivo2: TFileStream;
BytesBuffer: Array[0..1024] Of String;
I: Integer;
Begin
Archivo1 := TFileStream.Create('/home/diego/Tux', FmOpenRead);
Archivo2 := TFileStream.Create('/home/diego/Tux2', FmOpenWrite
Or FmCreate);
Repeat
Archivo1.Read(BytesBuffer, SizeOf(BytesBuffer));
Archivo2.Write(BytesBuffer, SizeOf(BytesBuffer));
Until (Archivo2.Size = Archivo1.Size);
Archivo1.Free;
Archivo2.Free;
End;
lo que quiero hacer es copiar el archivo "tux" a la misma ruta con el nombre "tux2" en bloques de 1 KB, cuando ejecuto ese codigo el archivo se copia pero el bucle nunca termina y tengo que cerrarlo a la fuerza y al final el archivo "tux2" pesa hasta 700 MB cuando el archivo original pesa 1 MB, lo mas raro es que el archivo "tux2" se ejecuta correctamente
se que puedo copiar de otras formas que si funcionan como por ejemplo:
TFileStream.CopyFrom etc...
pero yo necesito copiar el archivo de esta forma , asi que les agradeceria mucho que me pudieran ayudar.
Gracias