المشاركات : 73
المواضيع 27
:
: 6
الإنتساب : Dec 2012
السلام عليكم
كيف يستخرج جزء من ملف bin ؟
مثلا الحجم الكلي للملف هو 32 ميغا والجزء المستخرج هو 4 ميغا
المشاركات : 15
المواضيع 8
:
: 0
الإنتساب : Jan 2010
أستخراج جزء من ملف 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');
كيف استخراج جزء من ملف bin