Форум: "Основная";
Текущий архив: 2002.10.10;
Скачать: [xml.tar.bz2];
ВнизНе получается Заархивировать файл из Проги Найти похожие ветки
← →
Artemkin (2002-10-02 08:39) [0]Помогите - я не знаю как заархивировать файл.
В программе это требуется.
Может компонента какая-нить, или внешний архиватор....плз
← →
Anatolyk (2002-10-02 08:49) [1]я пользовался самым простым, на мой взгляд методом -
установил LMDTools5se для D5 (то же можно и для D6);
в них есть компонент LMDStarter на закладке LMD Shell;
написал следующее:
StatusBar1.SimpleText := "Создаю архив";
LMDStarter1.Command := GetEnvironmentVariable("COMSPEC"); //надо выполнять через command.com (в Win9*) или Cmd.EXE (в NT)
LMDStarter1.Parameters := "/C " + "ARJ.EXE M C:\ArchiveName " + "SomeDirectory\*.* -R";
LMDStarter1.Wait := True; //Ожидать окончания выполнения
LMDStarter1.StartOption := (soSW_HIDE);//не показывать консоль
LMDStarter1.Execute;
← →
andrey_pst (2002-10-02 08:51) [2]Можно компоненты найти, можно внешним архиватором, например Rar.exe:
var
PChTmp : PChar;
si : STARTUPINFO;
pi : PROCESS_INFORMATION;
ExitCodes : DWORD; // коды возврата архиватора
...
// свернем контракт в архив RAR:
PChTmp := StrNew(PChar(ExtractShortPathName(GetCurrentDir) + "\rar.exe a " + fdPath + "fd.rar " + fdPath "*.xls -df -ep -m5 -ri15:0 -s -rr"));
ZeroMemory(@si, sizeof(si));
si.cb := SizeOf(si);
// запустим Rar.exe
if not CreateProcess( nil, PChTmp, nil, nil, False, 0, nil, nil, si, pi ) then
begin
MessageDlg("ОШИБКА !!!." + #13 + "Не могу запустить архиватор.", mtError, [mbOK], 0);
end
else
begin
WaitForSingleObject(pi.hProcess, INFINITE); // ждем окончания процесса
GetExitCodeProcess(pi.hProcess, ExitCodes); // получаем код возврата
// посмотрим что вернулось:
case ExitCodes of
255 : MessageDlg("ОШИБКА АРХИВАТОРА № 255 !!!." + #13 + "Процесс архивации прерван пользователем.", mtError, [mbOK], 0);
...
CloseHandle( pi.hProcess );
CloseHandle( pi.hThread );
StrDispose(PChTmp);
← →
Artemkin (2002-10-02 09:09) [3]
> andrey_pst © (02.10.02 08:51)
> Можно компоненты найти, можно внешним архиватором, например
> Rar.exe:
извините, а где вставлять путь к архивируемому файлу?
И если можно, подскажите пару компонент по архивации, а я уже поищу??
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.10.10;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.007 c