yu-gi-oh! GX
22/09/2007, 12:41 PM
بسم الله الرحمن الرحيم و الصلاة و السلام على سيدنا محمد و على آله وصحبه و التابعين
الـzlib.dllمكتبة مجانية ومفتوحة المصدر تسمح بإنشاء ملفات مضغوطة نمطية بامتداد zip طورها Jean-loup Gailly و Mark Adlerتستطيع تحميلها من هذا الرابط [فقط الأعضاء المسجلين والمفعلين يمكنهم رؤية الوصلات] ([فقط الأعضاء المسجلين والمفعلين يمكنهم رؤية الوصلات])
و لتسهيل استغلالها في الفجوال بيسك ستحتاج لوحدتي أصناف للسيد Andrew McMillan تستطيع تحميلهما من :
[فقط الأعضاء المسجلين والمفعلين يمكنهم رؤية الوصلات] ([فقط الأعضاء المسجلين والمفعلين يمكنهم رؤية الوصلات])
[فقط الأعضاء المسجلين والمفعلين يمكنهم رؤية الوصلات] ([فقط الأعضاء المسجلين والمفعلين يمكنهم رؤية الوصلات])
و بطريقة مبسطة هذا الكود يسمح بانشاء الـ zip
رمز:
Dim z As ZipClassSet z = New ZipClassz.AddFile "c:\test.doc" z.AddFile "c:\test.jpg"z.WriteZip "c:\test.zip", TrueSet z = Nothing
و هذا الكود يسمح بتفكيكه
رمز:
Dim zip As ZipExtractionClassSet zip = New ZipExtractionClassIf zip.OpenZip("C:\Test\Test.zip") Then If zip.Extract("C:Test\Extract", True, True) Then MsgBox "Extraction terminée.", vbInformationEnd If zip.CloseZipEnd IfSet zip = Nothing
المصدر[فقط الأعضاء المسجلين والمفعلين يمكنهم رؤية الوصلات] ([فقط الأعضاء المسجلين والمفعلين يمكنهم رؤية الوصلات])
المشروع المرفق مع هذه المذكرة سوف يعطيك نظرة جيدة على على طريقة استعمالهما في الفجوال بيسك و هو من إنشائي و بواجهة عربية قريبة من واجهة الوينرار ويمكنك التعديل عليه كما تشاء فربما مع إضافات الإخوة يتحول إلى تطبيق احترافي
ملاحظة هامة:
المشروع مرفق مع
المكتبةzlib.dllقم بنسخها في مجلدWINDOWS\system32
الملفZipExtractionClass.cls
الملفZipFile.cls
أي كل ما تحتاج إليه فلا داعي لتتعب نفسك في التحميل و لكن زيادة للفائدة ذكرت الروابط المذكورة أعلاه
شكرا وأرجو أن نرا تطبيقاتكم:!
الـzlib.dllمكتبة مجانية ومفتوحة المصدر تسمح بإنشاء ملفات مضغوطة نمطية بامتداد zip طورها Jean-loup Gailly و Mark Adlerتستطيع تحميلها من هذا الرابط [فقط الأعضاء المسجلين والمفعلين يمكنهم رؤية الوصلات] ([فقط الأعضاء المسجلين والمفعلين يمكنهم رؤية الوصلات])
و لتسهيل استغلالها في الفجوال بيسك ستحتاج لوحدتي أصناف للسيد Andrew McMillan تستطيع تحميلهما من :
[فقط الأعضاء المسجلين والمفعلين يمكنهم رؤية الوصلات] ([فقط الأعضاء المسجلين والمفعلين يمكنهم رؤية الوصلات])
[فقط الأعضاء المسجلين والمفعلين يمكنهم رؤية الوصلات] ([فقط الأعضاء المسجلين والمفعلين يمكنهم رؤية الوصلات])
و بطريقة مبسطة هذا الكود يسمح بانشاء الـ zip
رمز:
Dim z As ZipClassSet z = New ZipClassz.AddFile "c:\test.doc" z.AddFile "c:\test.jpg"z.WriteZip "c:\test.zip", TrueSet z = Nothing
و هذا الكود يسمح بتفكيكه
رمز:
Dim zip As ZipExtractionClassSet zip = New ZipExtractionClassIf zip.OpenZip("C:\Test\Test.zip") Then If zip.Extract("C:Test\Extract", True, True) Then MsgBox "Extraction terminée.", vbInformationEnd If zip.CloseZipEnd IfSet zip = Nothing
المصدر[فقط الأعضاء المسجلين والمفعلين يمكنهم رؤية الوصلات] ([فقط الأعضاء المسجلين والمفعلين يمكنهم رؤية الوصلات])
المشروع المرفق مع هذه المذكرة سوف يعطيك نظرة جيدة على على طريقة استعمالهما في الفجوال بيسك و هو من إنشائي و بواجهة عربية قريبة من واجهة الوينرار ويمكنك التعديل عليه كما تشاء فربما مع إضافات الإخوة يتحول إلى تطبيق احترافي
ملاحظة هامة:
المشروع مرفق مع
المكتبةzlib.dllقم بنسخها في مجلدWINDOWS\system32
الملفZipExtractionClass.cls
الملفZipFile.cls
أي كل ما تحتاج إليه فلا داعي لتتعب نفسك في التحميل و لكن زيادة للفائدة ذكرت الروابط المذكورة أعلاه
شكرا وأرجو أن نرا تطبيقاتكم:!