Создания архива

← →
IgorM © (2005-08-29 10:50) [0]

Если можно то подробно опишите как создать архив! Например, есть папка c:\program\data - ее надо заархивировать в c:\program\arhiv\data.rar ! если можно, то без дополнительных компонент!

← →
Leonid Troyanovsky © (2005-08-29 10:58) [1]

> IgorM © (29.08.05 10:50)
> Если можно то подробно опишите как создать архив! Например,
> есть папка c:\program\data - ее надо заархивировать в c:\program\arhiv\data.rar
> ! если можно, то без дополнительных компонент!

Можно даже без дельфи: rar /?

--
Regards, LVT.

← →
IgorM © (2005-08-29 11:02) [2]

Надо в делфи!

← →
dmitry501 © (2005-08-29 11:04) [3]

Никак. Только раром. Его можно вызвать из Delphi

← →
Юрий Зотов © (2005-08-29 11:10) [4]

> IgorM © (29.08.05 10:50)

Есть компоненты, пакующие в ZIP, их легко можно найти в Сети. Если без компонентов, то в Delphi есть модуль ZLib, но формат архива не будет совместим с zip, rar и пр.

← →
IgorM © (2005-08-29 11:17) [5]

> dmitry501
Вот раром мне и надо! Приведи код - если можеж !

> Юрий Зотов но ведь можно как то через shellexecute!

← →
Anatoly Podgoretsky © (2005-08-29 11:24) [6]

IgorM © (29.08.05 11:02) [2]
Компоненты для архивирования отсутствуют, формат закрытый.

← →
IgorM © (2005-08-29 11:27) [7]

> Anatoly Podgoretsky Непонял, что ты имел ввиду!

← →
dmitry501 © (2005-08-29 11:28) [8]

IgorM © (29.08.05 11:17) [5]
Я-то могу. А тебе в многочисленные FAQ лень глядеть? Вот и мне лень копи-пасте делать...

Я смотрел! конкретно ничего ненашел! Был один пример архивирования но оно даже показало процес архивирования а архив не делало! Так что пожалуйста помоги если конечно очень не впадло!

Вот, правда для 7z. Надеюсь для rar сам переделаешь.
function ArcFile(Path: string; FileName: string; const Extension: string):Boolean; var PMSI: StartupInfo; PMPI: Process_Information; FileNameArc: string; cmdLine: string; CurrPath: string; begin Result := True; CurrPath := GetCurrentDir(); ChDir(Path7z); ZeroMemory(@PMSI, sizeof(PMSI)); PMSI.cb := SizeOf(PMSI); PMSI.dwFlags := STARTF_USESHOWWINDOW; PMSI.wShowWindow := SW_NORMAL; // PMSI.wShowWindow := SW_HIDE; ChDir(Path); FileNameArc := ChangeFileExt(FileName, Extension); cmdLine := Path7z + "7za.exe a " + FileNameArc + " " +FileName + " -y"; if not CreateProcess(nil, PChar(cmdLine), nil, nil, False, NORMAL_PRIORITY_CLASS, nil, nil, PMSI, PMPI) then begin result := False; Log := "Не могу запустить " + Path7z + "7za.exe"; end else begin if WaitForSingleObject(PMPI.hProcess, 10000) = WAIT_OBJECT_0 then else begin result := False; Log := "Таймаут архиватора " + Path7z + "7za.exe"; end; end; CloseHandle(PMPI.hProcess); CloseHandle(PMPI.hThread); ChDir(CurrPath); end;
p.s.
Вырвал из программы ничего не исправляя, так что ....

И на том спасибо! Попробую разобраться!

← →
Brother (2005-09-07 08:44) [12]

1.А консольный Rar не подойдет? Загоняй в CommandLine че хочешь во проблемма!
2. Поищи описания процедур в инете к UnRar.dll я где-то видел.

Создания архива Найти похожие ветки