Форум: "Основная";
Текущий архив: 2005.10.02;
Скачать: [xml.tar.bz2];
Вниз
Создания архива Найти похожие ветки
← →
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 лень глядеть? Вот и мне лень копи-пасте делать...
← →
IgorM © (2005-08-29 11:32) [9]Я смотрел! конкретно ничего ненашел! Был один пример архивирования но оно даже показало процес архивирования а архив не делало! Так что пожалуйста помоги если конечно очень не впадло!
← →
dmitry501 © (2005-08-29 11:43) [10]Вот, правда для 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.
Вырвал из программы ничего не исправляя, так что ....
← →
IgorM © (2005-08-29 11:56) [11]И на том спасибо! Попробую разобраться!
← →
Brother (2005-09-07 08:44) [12]1.А консольный Rar не подойдет? Загоняй в CommandLine че хочешь во проблемма!
2. Поищи описания процедур в инете к UnRar.dll я где-то видел.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2005.10.02;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.005 c
