Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Архив. [D7, XP]

Scavenger © (2006-03-24 10:15:00)
Пожалуйста подскажите. Я копирую файлы с одного компа на другой это базы данных, и они достаточно много весят. А можно при помощи Delphi архивировать эти базы и тем самым кидать на другой камп уже архив. Есть ли такой компонент для архивирования, если есть подскажите плиз.

Scavenger (2006-03-27 16:43:00) [1]
Спасибо большое все получилось.

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);

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

Sergey13 (2006-03-27 10:59:00) [3]
В папке с WinRAR-ом есть и просто RAR.EXE - утилита командной строки.

Scavenger (2006-03-27 10:51:00) [4]
В БД информация текстовая по этому сжимать будет хорошо. Я в функции уже указываю какую папку нужно архивировать. Остаетсся лишь запустить rar автоматом. Вот только как это сделать.

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

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

TUser (2006-03-27 10:11:00) [5]
Кстати, я не знаю, какие там в БДах форматы используют, но неужели там изначально уже нет архивирования? Если да, то все эти пляски с бубном бессмысленны - так же как нельзя существенно упаковать jpeg или mp3.

TUser (2006-03-27 10:10:00) [6]

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

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

Scavenger (2006-03-27 09:48:00) [7]
Спасибо получилось, а можно сразу сделать так чтоб после вызова программы WinRar программным способом запускать ее на выполнение.

Рамиль (2006-03-24 16:33:00) [8]
ShellExecute(Self.Handle, 'open', программа, параметры, nil, SW_SHOWNORMAL);

Scavenger (2006-03-24 16:21:00) [9]
Пробовал набирать тоже
ShellExecute +
rar.exe /?
но выдает ошибку, модуль Shellapi я подключил.

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

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

Рамиль (2006-03-24 10:24:00) [10]
самое простое
ShellExecute +
rar.exe /?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »