کامپوننت ZIP؟؟؟ [بایگانی]

tami_1369

چهارشنبه 29 تیر 1384, 14:32 عصر

سلام.ببخشید اگه بخوام تو دلفی با یه فایل zip ارتباط برقرار کنم باید از چه کامپوننتی استفاده کنم؟؟؟
آقا اگه نمیخواد کامپوننت بگیرم چه بهتر پس برای کدنویسیش راهنمایی کن.

دنیای دلفی

پنج شنبه 30 تیر 1384, 10:10 صبح

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

Delphi Skyline

پنج شنبه 30 تیر 1384, 10:12 صبح

یا ZipTV است . برای توضیحات بیشتر بهم Pm بزن

seyed_farid

پنج شنبه 30 تیر 1384, 21:21 عصر

و بهتر از اون هم استفاده از فایل اجرائی Rar.exe میباشد که هم بهتر از Zip فشرده میکنه و نیاز به نصب کمپوننت هم نداره و با ارسال سوئیچ میتونی فشرده سازی رو انجام بدی.

seyed_farid

پنج شنبه 30 تیر 1384, 22:52 عصر

این هم کدش:
#
function ExecAndWait(const ExecuteFile, ParamString : string): boolean;
var
SEInfo: TShellExecuteInfo;
ExitCode: DWORD;
begin
FillChar(SEInfo, SizeOf(SEInfo), 0);
SEInfo.cbSize := SizeOf(TShellExecuteInfo);

with SEInfo do
begin
fMask := SEE_MASK_NOCLOSEPROCESS;
Wnd := Application.Handle;
lpFile := PChar(ExecuteFile);
lpParameters := PChar(ParamString);
nShow := SW_hide;
end;
if ShellExecuteEx(@SEInfo) then
begin
repeat
Application.ProcessMessages;
//--------------------------- progress
prog:=SEInfo.hProcess;// SizeOf(SEInfo);
//------------------------------------
GetExitCodeProcess(SEInfo.hProcess, ExitCode);
until (ExitCode <> STILL_ACTIVE) or
Application.Terminated;
Result:=True;
end
else Result:=False;
end;
**********************************************
////// Raring:
ExecAndWait('Rar.exe',' a -o+ -ep -pPASSWORD CompressFileName FilesToCompress');

//////UnrRaring:
ExecAndWait('Rar.exe',' e -o+ -ep -pPASSWORD CompressFileName Distination');
#

راحله سعادتی

شنبه 27 اسفند 1384, 14:24 عصر

راجب استفادش بیشتر توضیح میدهید .

////// Raring:
ExecAndWait('Rar.exe',' a -o+ -ep -pPASSWORD CompressFileName FilesToCompress');

//////UnrRaring:
ExecAndWait('Rar.exe',' e -o+ -ep -pPASSWORD CompressFileName Distination');
#

Ehsansh

شنبه 27 اسفند 1384, 18:02 عصر

کامپوننت Zip رو از این پست میتونید گیر بیارید:
http://www.barnamenevis.org/forum/showthread.php?t=39174&page=2

راحله سعادتی

دوشنبه 29 اسفند 1384, 11:10 صبح

کامپوننت Zip رو از این پست میتونید گیر بیارید:
http://www.barnamenevis.org/forum/showthread.php?t=39174&page=2

من نتونستم باهاش کار کنم

saeed_d

دوشنبه 29 اسفند 1384, 11:46 صبح

سلام
جناب seyed_farid اگه از تگ Code استفاده کنین کداتون بهتر خونده میشه

#
function ExecAndWait(const ExecuteFile, ParamString : string): boolean;
var
SEInfo: TShellExecuteInfo;
ExitCode: DWORD;
begin
FillChar(SEInfo, SizeOf(SEInfo), 0);
SEInfo.cbSize := SizeOf(TShellExecuteInfo);

with SEInfo do
begin
fMask := SEE_MASK_NOCLOSEPROCESS;
Wnd := Application.Handle;
lpFile := PChar(ExecuteFile);
lpParameters := PChar(ParamString);
nShow := SW_hide;
end;
if ShellExecuteEx(@SEInfo) then
begin
repeat
Application.ProcessMessages;
//--------------------------- progress
prog:=SEInfo.hProcess;// SizeOf(SEInfo);
//------------------------------------
GetExitCodeProcess(SEInfo.hProcess, ExitCode);
until (ExitCode <> STILL_ACTIVE) or
Application.Terminated;
Result:=True;
end
else Result:=False;
end;
**********************************************
////// Raring:
ExecAndWait('Rar.exe',' a -o+ -ep -pPASSWORD CompressFileName FilesToCompress');

//////UnrRaring:
ExecAndWait('Rar.exe',' e -o+ -ep -pPASSWORD CompressFileName Distination');
#

راحله سعادتی

دوشنبه 29 اسفند 1384, 11:56 صبح

آقا سعید شما چه جوری از کد استفاده کردید؟

saeed_d

سه شنبه 01 فروردین 1385, 13:03 عصر

سلام
برای جواب دادن به یه پست ابتدا به حالت پیشرفته برید. برای این کار روی دکمه "برو به حالت پیشرفته" در پایین همین صفحه کلیک کنید. در اونجا وقتی کدتون رو تایپ کردید اون رو انتخاب کرده و روی دکمه "#" در بالای صفحه کلیک کنید. با این کار تگ Code به طور اتوماتیک اضافه می شود.

راحله سعادتی

سه شنبه 01 فروردین 1385, 23:36 عصر

saeed_d

چهارشنبه 02 فروردین 1385, 10:09 صبح

این کار برای همان کد برنامه است. به طور کلی گفتم.

راحله سعادتی

پنج شنبه 03 فروردین 1385, 11:03 صبح

این کار برای همان کد برنامه است. به طور کلی گفتم.

حالا بگو چه جوری از تابع استفاده کنم

saeed_d

جمعه 04 فروردین 1385, 08:19 صبح

سلام می خواهید تو دلفی تابع بنویسید؟
متوجه منظورتان نشدم.

راحله سعادتی

جمعه 04 فروردین 1385, 10:07 صبح

سلام

#
function ExecAndWait(const ExecuteFile, ParamString : string): boolean;
var
SEInfo: TShellExecuteInfo;
ExitCode: DWORD;
begin
FillChar(SEInfo, SizeOf(SEInfo), 0);
SEInfo.cbSize := SizeOf(TShellExecuteInfo);

with SEInfo do
begin
fMask := SEE_MASK_NOCLOSEPROCESS;
Wnd := Application.Handle;
lpFile := PChar(ExecuteFile);
lpParameters := PChar(ParamString);
nShow := SW_hide;
end;
if ShellExecuteEx(@SEInfo) then
begin
repeat
Application.ProcessMessages;
//--------------------------- progress
prog:=SEInfo.hProcess;// SizeOf(SEInfo);
//------------------------------------
GetExitCodeProcess(SEInfo.hProcess, ExitCode);
until (ExitCode <> STILL_ACTIVE) or
Application.Terminated;
Result:=True;
end
else Result:=False;
end;
**********************************************
////// Raring:
ExecAndWait('Rar.exe',' a -o+ -ep -pPASSWORD CompressFileName FilesToCompress');

//////UnrRaring:
ExecAndWait('Rar.exe',' e -o+ -ep -pPASSWORD CompressFileName Distination');
#

از این کد چه جوری استفاده کنم

saeed_d

دوشنبه 07 فروردین 1385, 13:59 عصر

سلام
خانم سعادتی اگه دقت کرده باشید این تابع رو جناب Seyed_farid نوشته اند و من فقط توضیح دادم که برای بهتر خوانده شدن باید چکار کرد. پس لطفا این سوال رو از ایشون بپرسید. متشکرم