كيف اعمل نسخة احتياطية للبرنامج على هيءة ملف واحد

يمكنك ظغط كل الملفات في ملفف واحد

اي كل من .db .px .xg0 .yg0 وغيرها

والسلام عليكم ورحمة الله و بركاته

ممكن تشرحو الطريقة اكثر لاني من زمان وانا ابحث عن اجابة لهدا السؤال

أخي الكريم في المرفقات ستجد مشروع دمج ملفين في ملف واحد

وثم إعادة فك هذا الملف إلى ملفين

هذه الطريقة لا تقوم بالضغط أو تغيير خصائص أي ملف

لغير الراغبين في تحميل الملف يمكنهم الإكتفاء بالكود المبين أدناه

procedure MergFile(Filename1,Filename2,ResultFilename:string);
var
 str1,str2,str : TFileStream;
begin

str1:= TFileStream.Create(Filename1,fmOpenRead);
str2:= TFileStream.Create(Filename2,fmOpenRead);

str := TFileStream.Create(ResultFilename,fmCreate);

str.CopyFrom(str1,str1.Size);

str.Position := str1.Size;

str.CopyFrom(str2,str2.Size);

str.Free;
str1.Free;
str2.Free;


end;



procedure SeparetFile(Filename,ResultFilename1,ResultFilename2:string;siz1,siz2:integer);
var
 str1,str2,str : TFileStream;
begin
str := TFileStream.Create(Filename,fmOpenRead);

str1:= TFileStream.Create(ResultFilename1,fmCreate);
str2:= TFileStream.Create(ResultFilename2,fmCreate);



str1.CopyFrom(str,Siz1);
str.Position := Siz1;
str2.CopyFrom(str,Siz2);


str.Free;
str1.Free;
str2.Free;


end;

والله ولي التوفيق

Stream_div.rar

/index.php?showtopic=74734

ليس المطلوب تماما لكن الفكرة تنفع...