یک سوال ابتدایی در مورد کامپوننت zip froge

[kamal_habibi]

من واسم یک سوال ابتدایی پیش امده هرچند که خودمم زیاد Advanced نیستم تو کار دلفی ولی به هر حال پیش اومده کاریش نمیشه کرد
سوال: من کامپوننت zipfroge رو نصب کردم ولی نمیدونم تو کجای کار مشکل دارم که نمیتونم یک فایلی رو از یک مسیر بخونم و اونو ZIP کنم و به مسیر دیگری ببرم

از دوستانی که با این کامپوننت کار کردند لطف کنید بگید که چگونه یک فایلی رو از یک مسیرzip کنم و در مسیر دیگه save کنم

این هم لینک Download کامپوننت zip froge
http://www.componentace.com/download/download.php?editionid=12

[vcldeveloper]

توی دموهای خودش هست.
یک خصوصیت FileName داره که نام فایل zip را میگیره. این فایل با استفاده از دستور OpenArchive باز میشه، یا ایجاد میشه. یک خصوصیت BaseDir هم داره که مسیر پوشه ایی که باید فایل هاش zip بشند را مشخص میکنه. با استفاده از متد AddFiles هم می تونید فایل های موجود در BaseDir را به فایل Zip مربوطه اضافه کنید.

[kamal_habibi]

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


program ZipFile;

{$APPTYPE CONSOLE}

uses
// Add a ZipForge unit to the program
SysUtils, ZipForge, Classes;

var
archiver : TZipForge;

begin
// Create an instance of the TZipForge class
archiver := TZipForge.Create(nil);
try
with archiver do
begin
// Set the name of the archive file we want to create
FileName := 'C:\test.zip';
// Because we create a new archive,
// we set Mode to fmCreate
OpenArchive(fmCreate);
// Set base (default) directory for all archive operations
BaseDir := 'C:\';
// Add file C:\test.txt the archive; wildcards can be used as well
AddFiles('c:\test.txt');
CloseArchive();
end;
except
on E: Exception do
begin
Writeln('Exception: ', E.Message);
// Wait for the key to be pressed
Readln;
end;
end;
end.