في هذا الدرس سنشرح كيفية استعمال مكون ZipForge من شركة ComponentAce لضغط الملفات في الدلفي للإحتفاظ بها كأرشيف مثل ارشفة و ضغط قاعدة البيانات الخاصة بالبرامج و اعادة استعمالها اذا حدفت القاعدة الحالية او حصل فيها خطأ طبعا اعطينا مثال عن قاعدة البيانات و لكن هذا المكون يستعمل في الدلفي لضغط الملفات مهما كان امتدادها
في الموقع الرسمي للشركة هناك عدة مكونات خاصة بالدلفي مثل AbsoluteDataBase الخاصة بقاعدة البيانات
و مكونات اخرى يمكنكم الإضطلاع عليها المكونات المجانية على الموقع للإستعمالات الفردية اما الإستعمالات التجارية فهي
ليست مجانية اليوم سنقدم لكم جميع النسخ الغير مجانية للتحميل و التنصيب و سنريكم الطريقة ان شاء الله
اولا لتحمبل الملف التنفيدي للبرنامج يمكنكم اقتناؤوه من الموقع الرسمي
حيث النسخة Personel مجانية اما التجارية للحصول على كود التفعيل يجب شراؤه
بامكانكم تحميل النسخ المتوفرة لدينا من النسخة 4 الى النسخة XE6 للبرنامج في نسخته ZipForge v.6.40 التجارية
ZipForge_Commercial_Edition_Delphi_4
ZipForge_Commercial_Edition_Delphi_5
ZipForge_Commercial_Edition_Delphi_6
ZipForge_Commercial_Edition_Delphi_7
ZipForge_Commercial_Edition_Delphi_2005
ZipForge_Commercial_Edition_Delphi_2006,_C++_Builder_2006
ZipForge_Commercial_Edition_Delphi_2006,_C++_Builder_2007
ZipForge_Commercial_Edition_Delphi_2006,_C++_Builder_2009
ZipForge_Commercial_Edition_Delphi_2006,_C++_Builder_2010
ZipForge_Commercial_Edition_Delphi_XE,_C++_Builder_XE
ZipForge_Commercial_Edition_Delphi_XE2,_C++_Builder_XE2
ZipForge_Commercial_Edition_Delphi_XE3,_C++_Builder_XE3
ZipForge_Commercial_Edition_Delphi_XE4,_C++_Builder_XE4
ZipForge_Commercial_Edition_Delphi_XE5,_C++_Builder_XE5
ZipForge_Commercial_Edition_Delphi_XE,_C++_Builder_XE6
شرح التنصيب ستجدونه في الفيديو المرفق للموضوع الأن سنقوم بتطبيق صغير نستعمل فيه المكون قي ضغط الملفات و سيكون العمل كالتالي اولا نفتح الدلفي -- تطبيق جديد ثم نضع المكونات التالية :
Button x 3
الأول بإختيار مسار تواجد الملف المراد ضغطه
الثاني خاص بمكان وتسمية و حفظ الملف
الثالث خاص بتنفيد عملية الضغط
2 Edit x
تحديد المسارات
OpenDialog
SaveDialog
خاصين بفتح و حفظ الملفات
ZipForge
المكون الخاص بعملية الضغط
الأن نبدأ عملية البرمجة على الأزرار
الزر الأول نكتب فيه الكود التالي:
procedure TForm1.Button1Click(Sender: TObject);
begin
opendialog1.Execute ;
edit2.Text := opendialog1.FileName ;
end;
الزر الثاني نكتب فيه الكود التالي:
procedure TForm1.Button2Click(Sender: TObject);
begin
savedialog1.Execute;
edit1.Text := savedialog1.FileName ;
end;
الزر الثالث نكتب فيه الكود التالي:
procedure TForm1.Button3Click(Sender: TObject);
begin
with Form1.ZipForge1 do
begin
FileName := savedialog1.FileName; //اختيار اسم zip
OpenArchive(fmCreate); //فتح ملف الارشيف
AddFiles(opendialog1.FileName); //اضافة الملف الذي نريد ضغطه
CloseArchive; //غلق الارشيف
end;
end;
نضغط على المكون Savedialog و في الخاصية DefaultExt نضع Zip
ثم ننفد البرنامج
الشرح على هذا الفيديو
اتمنى ان يكون الموضوع نال اعجابكم
قد يعجبك ايضا