كيف استخراج جزء من ملف bin - نسخة قابلة للطباعة

كود :

function Extract_File(const FileName : String; From,SizeFrag : longint) : tMemoryStream;
var      FS : tFileStream;
begin    Result:=tMemoryStream.create;
         if (not FileExists(FileName)) then
         begin Showmessage('Fichier '+FileName+' : inexistant'); EXIT; end;
         FS := TFileStream.create(FileName, fmOpenRead or fmShareDenyWrite);
         FS.Position := From;
         Result.CopyFrom(FS, SizeFrag);
         Result.Position:=0;
         FS.Free;
end;

 function file_Extractor(adress_file1: string ;debut_offset_files1 : integer ;Nombre_des_offsets_a_copier : integer ;adress_files2:string ; offset_coller : integer ): string;
var
F1, F2: file;
lus,ecrit:integer;
Buf: array[1..1000000] of Char;
begin
AssignFile(F1, adress_file1);
Reset(F1, 1);
seek(F1,debut_offset_files1);
AssignFile(F2, adress_files2);
reset(F2, 1);
seek(F2,offset_coller);
BlockRead(F1, Buf, Nombre_des_offsets_a_copier, lus);
BlockWrite(F2, Buf, lus, ecrit);
CloseFile(F1);
CloseFile(F2);

 end;

كود :

var MS : TMemoryStream; FileName : String; From,SizeFrag : longint;


begin

FileName:=edit1.text;
From:=393088; SizeFrag:=131200;
MS:=Extract_File(FileName,From,SizeFrag);
MS.SaveToFile('userdb(64+64).bin');