Архив.

← →
Scavenger © (2006-03-24 10:15) [0]

Пожалуйста подскажите. Я копирую файлы с одного компа на другой это базы данных, и они достаточно много весят. А можно при помощи Delphi архивировать эти базы и тем самым кидать на другой камп уже архив. Есть ли такой компонент для архивирования, если есть подскажите плиз.

← →
Рамиль © (2006-03-24 10:24) [1]

самое простое
ShellExecute +
rar.exe /?

← →
Scavenger © (2006-03-24 16:21) [2]

Пробовал набирать тоже
ShellExecute +
rar.exe /?
но выдает ошибку, модуль Shellapi я подключил.

ShellExecute(HWND,"open","C:\Program Files\WinRAR\WinRAR.exe",NULL,"",SW_SHOWNORMAL);

Пишу в проге как показано выше, вот только не могу разобраться что это за параметр HWND. Подскажи пожалуйста , а лучше приведи пример если можеш.

← →
Рамиль © (2006-03-24 16:33) [3]

ShellExecute(Self.Handle, "open", программа, параметры, nil, SW_SHOWNORMAL);

← →
Scavenger © (2006-03-27 09:48) [4]

Спасибо получилось, а можно сразу сделать так чтоб после вызова программы WinRar программным способом запускать ее на выполнение.

← →
TUser © (2006-03-27 10:10) [5]

> Спасибо получилось, а можно сразу сделать так чтоб после
> вызова программы WinRar программным способом запускать ее
> на выполнение.

Тебе надо запускать к-л программу, для которой можно с помощью командной строки указать требуемое действие. Например, rar, gzip.

← →
TUser © (2006-03-27 10:11) [6]

Кстати, я не знаю, какие там в БДах форматы используют, но неужели там изначально уже нет архивирования? Если да, то все эти пляски с бубном бессмысленны - так же как нельзя существенно упаковать jpeg или mp3.

← →
Scavenger © (2006-03-27 10:51) [7]

В БД информация текстовая по этому сжимать будет хорошо. Я в функции уже указываю какую папку нужно архивировать. Остаетсся лишь запустить rar автоматом. Вот только как это сделать.

ShellExecute(Self.Handle, "open", "C:\Program Files\WinRAR\WinRAR.exe", "\\okt\e$\Архив_1С\27.03.2006",nil, SW_SHOWNORMAL);

Если это нельзя сделать, то может есть какой то другой способ?

В папке с WinRAR-ом есть и просто RAR.EXE - утилита командной строки.

← →
SpellCaster (2006-03-27 13:44) [9]

Консольная версия чем плоха - вылезает окно консоли, сообщения об ошибках пишутся туда же, да и вообще не очень гуд. К тому же нужно сам рар везде таскать.
Гораздо проще заюзать компоненту kaZIP.
Кстати, если БД - Интербейс, то с помощью штатной утилы gbak можно ужать базу так, как не жмет самый крутой режим РАРа. А если потом еще и зазиповать, вообще сказка будет. У меня метровая база в таком архиве вместе с самой gbak (на всякий случай) занимала 20 кило.

Спасибо большое все получилось.

ShellExecute(Self.Handle, "open", "C:\Program Files\WinRAR\RAR","a D:\P.A\sinx\ -agdd.mm.yyyy -m5 -sfx \\okt\e$\Архив_1С\27.03.2006",nil, SW_SHOWNORMAL);

Архив. Найти похожие ветки