استفاده از کامپوننتZIPTV

[ahmad sajjad]

من میخوام با استفاده از کامپوننت ZIPTV یک فایل رو zip و unzip کنم.
کدی هم نوشتم اجرا میشه ولی کاریو که میخوام اجرار نمیکنه.
با استفاده از demo و با کمک از موارد دیگه هم نتونستم به نتیجه برسم.
اگر یکی از دوستان بتونند کدی رو شاملzip و unzip بذاردن مشکل من حل میشه یا اینکه مشکل من از کجاست؟ .متشکر
مشابه کدی که برای zip کردن نوشتم این بود:

ZIP1.ArchiveFile :='activex';
ZIP1.FileSpec.Clear;
ZIP1.FileSpec.Add ('G:\ASA.txt');
FilesCompressed := ZIP1.Compress;
ShowMessage(IntToStr(FilesCompressed));
(لطفا نمونه کدها را در بین تگ های Code قرار دهید تا مانند فوق نمایش داده شود)

[ahmad sajjad]

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

[hr110]

براتون یک کامپوننت ارسال کردم، با این کامپوننت من تا چند صد مگابایت رو هم فشرده کردم و ضمناً این کامپوننت Streamها رو هم پشتیبانی میکنه
کافی است نام فایل ورودی و خروجی رو بهش بدید و متد Compress رو صدا کنید.

[Behzad_Asharkhan]

سلام

من هم همین مشکل رو داشتم.
متد Compress رو اینطوری Call کن.


FilesCompressed := ZIP1.Compress();

کدی که من استفاده میکنم و کار میکنه اینه:


Zip1.ArchiveFile := zipfilename;
Zip1.DateAttribute := daFileDate;
Zip1.StoredDirNames := sdRelative;
Zip1.CompressMethod := cmDeflate;
Zip1.Switch := swAdd;
Zip1.StoreEmptySubDirs := False;

Zip1.ExcludeSpec.Clear( );
Zip1.FileSpec.Clear( );
Zip1.FileSpec.Add( filename );

Zip1.Compress();

موفق باشی :sunglass:

.

[tami_1369]

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

[brians2000]

یه کامپوننت توپپپ به اسم وی سی ال زیپ هست که مجانیه (من اینجا ندارمش) و من توی برنامه ام در کمال پرروییی! استفاده کردم :)) زحمت کشیده اینترفیس عین وین زیپ رو هم گذاشته جدیدا هم رار و همه چیو ساپورت می کنه! چون مفتیه و ایضا همه چی آماده است! ازش استفاده کردم! سرچ کن پیدا می کنی.

[brians2000]

اینجا فیلتر شده؟؟؟ اینجا که دیگه خیلی خیلی فنیه یعنی فقط برنامه نویسیه !!! کم میان...