ایجاد فایل Zip

[Yasersadegh]

سلام به دوستان عزیز
شرمنده من همیشه با سوال می یام و هیچ وقت هیچ حرکت مثبتی انجام نمی دم.
این بار سوالم در مورد فایل های زیپه.
چطوری میشه با کد نویسی دلفی چند تا فایل موجود بر روی هارد رو فشرده (Zip & Rar) کرد.!؟:متفکر:
اصلا با دلفی میشه چنین کاری کرد؟


با تشکر

[Future]

دوست عزیز وقتی winzip را بطور کامل نصب کنی command line آن نیز نصب میشه که (command line یک فایل اجرایی جداگانه است که شما باید آنرا نصب کنی)بعد به راحتی می تونی آنرا در دلفی فراخوانی کنی. اگه مشکلت حل نشد بگو تا کدش را بدهم

[Valadi]

بله امکان دارد شما باید از کامپونت های Easy Compression و Vcl zip و ... می تونی استفاده کنی

[MNosouhi]

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

[Yasersadegh]

میشه اگه کامپوننتهارو دارید رو سایت بذارید.!!

با تشکر

[MNosouhi]

http://www.ziptv.com/downloads.htm

[soroush_vs]

موردی که آقا/خانم Future گفتن به نظر من عالیه

[MNosouhi]

موردی که آقا/خانم Future گفتن به نظر من عالیه
در اینصورت اگر روی یه سیستمی winzip نصب نباشه ، با مشکل دچار میشیم.
باید سعی کنیم تا آنجایی که ممکن است برنامه ای که مینویسیم به برنامه های دیگه وابسته نباشه.

[Yasersadegh]

یکی از معروفترین کامپوننتها در این مورد مجموعه ziptv هستش که نتنها zip بلکه فرمتهای دیگه مانند rar و tar رو پوشش میده.
من فایلشو دانلود کردم . چظوری می تونم ازش استفاده کنم!!؟
اگه امکان داره یه نمونه کد یا برنامه را هم بذارید.!!

با تشکر

[MNosouhi]

خودش دمو داره.

[vcldeveloper]

می تونی از ZLib هم استفاده کنی که با خود دلفی هست (یونیت zlib.pas)

[soroush_vs]

در اینصورت اگر روی یه سیستمی winzip نصب نباشه ، با مشکل دچار میشیم.
باید سعی کنیم تا آنجایی که ممکن است برنامه ای که مینویسیم به برنامه های دیگه وابسته نباشه.

این برنامه یک برنامه مجزا است که اصلا وابستگی به WinZip نداره یه برنامه است که باید با Command Prompt اجرا و بهش پارامتر بدید

[soroush_vs]

می تونی از ZLib هم استفاده کنی که با خود دلفی هست (یونیت zlib.pas)

این یکی دیگه واقعا عالیه

[Yasersadegh]

می تونی از ZLib هم استفاده کنی که با خود دلفی هست (یونیت zlib.pas)
چطوری می تونم ازش استفاده کنم. یعنی Zlib.pas رو به عنوان کامپوننت نصبش کنم؟:متفکر:
لطفا اگه نمونه دارید میشه بذارید؟:خجالت:

با تشکر

[Hamid_PaK]

zlib را در قسمت یوززهای یونیت اضافه کنید و از دو کلاس TCompressionStream و TDecompressionStream می توانید برای فشرده سازی و بالعکس استفاده کنید ...
این هم یک مثال برای فشرده سازی و رها سازی :


procedure Tfrm_main.bt_doCompClick(Sender: TObject);
var
bytBuff:PByteArray;
bytSize:DWORD;
inStream,outStream:TMemoryStream;
zStream:TCompressionStream;
begin
inStream := TMemoryStream.Create;
try
outStream := TMemoryStream.Create;
inStream.LoadFromFile(in_anyPath.Text);
bytSize := inStream.Size;
ShowMessage(IntToStr(bytSize));
GetMem(bytBuff,bytSize);
try
inStream.Position := 0;
inStream.Read(pointer(bytBuff)^,bytSize);
outStream.Write(bytSize,SizeOf(bytSize));
zStream := TCompressionStream.Create(clMax,outStream);
try
ShowMessage(IntToStr(outStream.Position));
zStream.Write(pointer(bytBuff)^,bytSize);
finally
zStream.Free;
end;
outStream.SaveToFile(in_compPath.Text);
MessageBox(Handle,pChar('File compressed successfully ...'#9),'iNFO',MB_ICONINFORMATION);
bt_resetClick(nil);
finally
FreeMem(bytBuff);
outStream.Free;
end;
finally
inStream.Free;
end;
end;

procedure Tfrm_main.bt_deCompClick(Sender: TObject);
var
bytBuff:PByteArray;
bytSize:DWORD;
inStream,outStream:TMemoryStream;
zStream:TDecompressionStream;
begin
inStream := TMemoryStream.Create;
try
inStream.LoadFromFile(in_compPath.Text);
inStream.Read(bytSize,SizeOf(bytSize));
outStream := TMemoryStream.Create;
GetMem(bytBuff,bytSize);
try
zStream := TDecompressionStream.Create(inStream);
try
inStream.Position := 0;
zStream.Read(pointer(bytBuff)^,bytSize);
finally
zStream.Free;
end;
outStream.Write(pointer(bytBuff)^,bytSize);
outStream.SaveToFile(in_anyPath.Text);
MessageBox(Handle,pChar('File decompressed successfully ...'#9),'iNFO',MB_ICONINFORMATION);
bt_resetClick(nil);
finally
FreeMem(bytBuff);
outStream.Free;
end;
finally
inStream.Free;
end;
end;


یا حق ...