ahmad sajjad
یک شنبه 21 فروردین 1384, 09:48 صبح
من میخوام با استفاده از کامپوننت 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 قرار دهید تا مانند فوق نمایش داده شود)
کدی هم نوشتم اجرا میشه ولی کاریو که میخوام اجرار نمیکنه.
با استفاده از demo و با کمک از موارد دیگه هم نتونستم به نتیجه برسم.
اگر یکی از دوستان بتونند کدی رو شاملzip و unzip بذاردن مشکل من حل میشه یا اینکه مشکل من از کجاست؟ .متشکر
مشابه کدی که برای zip کردن نوشتم این بود:
ZIP1.ArchiveFile :='activex';
ZIP1.FileSpec.Clear;
ZIP1.FileSpec.Add ('G:\ASA.txt');
FilesCompressed := ZIP1.Compress;
ShowMessage(IntToStr(FilesCompressed));
(لطفا نمونه کدها را در بین تگ های Code قرار دهید تا مانند فوق نمایش داده شود)