خطا در zip کردن فایل با password

[ali190]

باسلام و عرض خسته نباشید
در سورس زیر متاسفانه کدهای zip و unzip نمودن فایل عمل نمیکنه
ممنون میشم راهنماییم کنید
یاعلی

[ali190]

سلام
دوستان ممنون میشم اگر کمکم کنید

[محسن واژدی]

سلام، علی آقا
این سورس رو ببینین
حاوی دوتا فایل ه است؛ یکی برای zip و دیگری unzip که با استفاده از فایل های zip.dll و unzip.dll انجام میشه
همچنین میتوانید فایل زیپ ایجاد شده را هم رمزی کنید و همینطور برایش comment هم بنویسین
دستور العمل هایش هم بسیار ساده هست ، تقریبا مشابه با کنترل های Xceed

موفق باشید
یاعلی

[parselearn]

نياز به License هست

Dim ResultCode As xcdError

With XceedZip1
.FilesToProcess = App.Path & "\test.txt"
.ZipFilename = App.Path & "\s.zip"
.EncryptionPassword = "123"
.License "y"
ResultCode = .Zip
If ResultCode = xerNotLicensed Then
MsgBox 1
End If
End With

[ali190]

سلام
دوستان چطور میتونم License مربوط به کامپوننت XCEEDZIP رو تهیه کنم؟
ممنون و متشکر
یاعلی

[parselearn]

نمونه اي براي زيپ كردن با XceedZip

[ali190]

سلام
ممنون و متشکر جناب Parselearn عزیز از لطف شما
واقعاً ممنون
فقط 3 نکته:
1- میتونم اب خیالت راحت از این کامپوننت در برنامه ام استفاده کنم ، منظورم اینه که امکان داره این لایسنس بعد از چند وقت از کار بیفته و باز هم کامپوننت دیگه کار نکنه؟
2- گویا این کامپوننت فقط فایلهادر مسیر برنامه رو میتونه زیپ و unzip کنه ، چطور میتونم فایل ها در مسیرهای دیگه رو زیپ و آنزیپ کنم ، مثلاً میتونم یه فایل رو با commomn diablog فراخوانی کنم و در مسیر دلخواهم زیپ کنم ، و همون فایل زیپ شده رو با commomn diablog فراخوانی کرده و در مسیر مورد نظرم unzip کنم؟
ممنون میشم راهنتماییم کنید
ممنون و متشکر
یاعلی

[parselearn]

من كه به صورت دستي آدرسي ديگر دادم و مشكلي نبود


.FilesToProcess = "E:\test.txt"
.ZipFilename = "C:\s.zip"

[ali190]

سلام
ممنون از پاسختون
منتها من هنگام کمپایل برنامه ارور زیر رو دریافت میکنم:


67320

مممنون میشم راهنماییم کنید
یاعلی

[knight-rak]

خوب این پیغام مطلب اصلیش اینه که شما لایسنس استفاده از این کامپوننت رو ندارید پس نمیتونید برنامه رو کامپایل کنید و ازش استفاده کنید

اگر امکانش هست اسم کامپوننت و همینجا بگید تا ببینم میتونم براتون پیداش کنم با لایسنس
موفق باشید ....

[ali190]

سلام
پروژه در حالت design در محیط ویژوال بیسیک کار میکنه
فقط کمپایل نمیشه
کامپوننت مورد استفاده xceedzip هست
خود پروژه به همراه کامپوننت و ورژنش در لینک زیر قرار داره:
http://barnamenevis.org/attachment.php?attachmentid=66858&d=1298724162
از لطفتون ممنونم
یاعلی

[knight-rak]

اکثر لایسنس ها موقع کامپایل اجازه استفاده نمیدن و همونجا کارو خراب میکنن

موفق باشید ....

[ali190]

اکثر لایسنس ها موقع کامپایل اجازه استفاده نمیدن و همونجا کارو خراب میکنن

سلام
یعنی هیچ راهی وجود نداره؟

[knight-rak]

هیچ راهی که غیر ممکنه نباشه " من نمیدونم مطمئنا راهی برای kرک کردن این فایل ها باید باشه

- عجله که نداری چون من فردا و پس فردا نمیتونم بیام سایت و سرم خیلی شلوغه
- دنبالش میگردم و آمارش رو در میارم تا لایسنسش رو گیر بیارم برگشتم اگر پیدا کرده باشم خبرت میکنم

میشه اسم کمپانی سازنده این کامپوننت رو بگی

موفق باشید ....

[ali190]

سلام
ممنون از لطفت
این هم سایت سازندش:
http://xceed.com/Zip_ActiveX_Intro.html

[محسن واژدی]

سلام علیکم
خب چرا از سورس موجود در پست 3 استفاده نمیکنین!
درهر حال جواب میداد

[ali190]

سلام علیکم
خب چرا از سورس موجود در پست 3 استفاده نمیکنین!
درهر حال جواب میداد
سلام
چون میخوام از این روش در برنامه ام استفاده کنم ، حجم کدها در اون پروزه خیلی زیاد بود و امکانات برنامه هم خیلی نسبت به این ocx کم هست
در هر حال از شما ممنونم
یاعلی

[knight-rak]

شرمنده دوست عزیز چند جایی رو دنبالش گشتم ولی پیدا نشد - پیدا شد ولی لایسنس نداشت

تنها کسی هم که میتونست برا پیدا کردنش بهم کمک کنه رفت تا بعد 13 فروردین شاید ببینمش

موفق باشید ....

[محسن واژدی]

شرمنده دوست عزیز چند جایی رو دنبالش گشتم ولی پیدا نشد - پیدا شد ولی لایسنس نداشت

تنها کسی هم که میتونست برا پیدا کردنش بهم کمک کنه رفت تا بعد 13 فروردین شاید ببینمش

موفق باشید ....

سلام علیکم
license برای کدوم یک از کامپوننت هاش میخواستین؟

[knight-rak]

همون که برای زیپ هست هست واسه سویت و باقی چیزا نه فقط واسه زیپ

موفق باشید ....

[محسن واژدی]

البته معرفی کرک و سریال یک نرم افزار علنا" در تالار خواف قوانین است، واستو pm میدم

موفق باشید

[ali190]

سلام
آیا امکانش هست در کامپوننت Xceedzip پروسه زیپ شدن یک فایل رو با ابزاری مثل Progessbar (یا بصورت درصد) نمایش داد؟
ممنون ومتشکر
یاعلی

[ali190]

باسلام و عرض خسته نباشید
میخواستم از خدمت دوستان سئوال کنم چطور میشه با استفاده از xceedzip یک پوشه رو zip کرد
متاسفانه موفق به این کار نشدم
پوشه رو یا حجم 1 کیلو بایت زیپ میکنه که یه جای کار مشکل داره
ممنون میشم کمکم کنید
یاعلی

[vbhamed]

سلام
فشرده كردن پوشه 4 در درايو D

With XceedZip1
.FilesToProcess = "D:\4\*.*"
.ProcessSubfolders = True
.ZipFilename = "d:\11.zip"
.Zip
End With

[ali190]

سلام
ممنون جناب vbhamed
فقط یه مشکل کوچیک وجود داره
اونم اینکه که مثلاً زمانیکه میخوام از مسیر C:\Documents and Settings\Administrator\Desktop\mnm\New Folder فولدر newfolder رو زیپ کنم تمام پوشه های موجود در مسیر رو در داخل فایل زیپ (با همین سلسله مراتب ) ایجاد میکنه

70352

مثلاً به مسیر تشکیل شده فایل زیپ که در نرم افزار winrar ایجاد شده ور ملاحظه کنید (تصویر بالا)
من در واقع میخوام از هرجا که پوشه ام رو مسیر میدم در مسیر root فایل زیپ تشکیل بشن
ممنون میشم کمکم کنید
یاعلی

[vbhamed]

سلام

در مثال زير Barcode پوشه اي هست كه داخل پوشه 4 از درايو D قرار داره

With XceedZip1
.ZipFilename = "d:\11.zip"
.BasePath = "d:\4"
.FilesToProcess = "Barcode\*.*"
.PreservePaths = True
.ProcessSubfolders = True
.Zip
End
End With