КАк упаковать раром папку?

← →
TStas © (2013-04-01 19:22) [0]

Из интернета скачал всякие примеры, но ничего не работает. Мне надо просто упаковать папку с файлами с настройками по умолчанию. Это делает менюшка "Дадавить в архив имя_ПАПКИ"

← →
antonn © (2013-04-01 19:35) [1]

он же запуск с параметрами поддерживает

← →
TStas © (2013-04-01 19:42) [2]

Код можешь написать? Ну никак не получяается.

← →
clickmaker © (2013-04-01 19:45) [3]

у винрара есть хелп. А в нем - раздел "Режим командной строки"

← →
TStas © (2013-04-01 20:00) [4]

Ну? А - добавить в архив. А как папку-то добавить? Там не написано. Какие-то ключ1, ключ2 и прочая хрень.
Напишите, если естиь код. Ну уже несколько часов потратил.

← →
TStas © (2013-04-01 20:02) [5]

Было бы просто, в интернете находилось бы. А то там куча примеров, но не один не работает. В справке примеров тоже нет.

← →
brother © (2013-04-01 20:03) [6]

ключ- не хрень!

← →
TStas © (2013-04-01 20:12) [7]

Мне нужен просто пример, как это сделать. Программно раром мне вряд ли придется когда-то пользоваться. Если это уже второй заход, то проще через систему соообщений. Если знаете, то ответьте, а то что в раре есть справка, я как-то и сам догадался.

← →
brother © (2013-04-01 20:25) [8]

http://www.sql.ru/forum/actualthread.aspx?tid=908668

← →
clickmaker © (2013-04-01 20:33) [9]

> Какие-то ключ1, ключ2 и прочая хрень

действительно, для кого всю эту хрень пишут? Писали бы сразу код для Стаса

← →
Inovet © (2013-04-01 21:07) [10]

> [9] clickmaker © (01.04.13 20:33)
> код для Стаса

rar a МояАрхива c:\МояМамка\МояПапка
rar a -r МояАрхива c:\МояМамка\МояПапка

← →
TStas © (2013-04-01 22:00) [11]

Приведенные примеры не работают, а через посыл клавиш все работает отлично.

← →
clickmaker © (2013-04-01 22:47) [12]

> через посыл клавиш все работает отлично

ну, станешь гуру в посыле клавиш

← →
TStas © (2013-04-01 23:39) [13]

ПРосто вопрос явно не простой, был бы простой, интернет бы выплевывал ответ сразу. РАр программа очень мощная, а задача - упаковать папку с гововыми документами и послать ее по почте. Раньше делал руками это, но решил что надо, чтобы все делала сама. Понятно, что в моём случае это не лучший выход, но я несколько раз пробовал, искал, и ничего не выходило. Вы ведь и сами ответ не знаете.
Розыч на форуме умную вещь сказал: пиши, как тебе удобно, если все работает, то и трогать не надо.
Я читал не только справну оконного рара, но и консольного. Нифига не понял. Там ограмная куча параметров и во всех надо разбираться. А 90% отлично делают дельфи. Например, удаляют после упаковки, перемещают, куда надо, ждут и т. д.
А дождаться конца упаковки очень просто, без WaitForSingleObject. Текст окна упаковки извествен. КАк только перестанет Hendl на это окно находиться, значит упаковка закончена.
То, что у других компов менюшки другие, ну и что? Если мне отправлять по почте, то я могу это делать только из дома, в противном случае документы просто печатаются, зачем их вообще отправлять?
Хорошо бы уметь раром пользоваться, только вот где взять кноиги и время?

← →
clickmaker © (2013-04-02 00:21) [14]

> Вы ведь и сами ответ не знаете

двумя постами выше дали практически готовый ответ

← →
Германн © (2013-04-02 01:41) [15]

> TStas © (01.04.13 23:39) [13]
>
> ПРосто вопрос явно не простой, был бы простой, интернет
> бы выплевывал ответ сразу.

Вопрос простой как "2+2" в арифметике. И ответ на него
> Inovet © (01.04.13 21:07) [10]

уже дал. И полностью рабочий. Чем сей ответ не устроил? Твоим незнанием работы с командной строкой? Так учись с ней работать.
Иначе
> clickmaker © (01.04.13 20:33) [9]
>
> > Какие-то ключ1, ключ2 и прочая хрень
>
> действительно, для кого всю эту хрень пишут? Писали бы сразу
> код для Стаса

← →
Германн © (2013-04-02 01:43) [16]

Первый в моей практике случай, когда весьма подробная справка на родном языке автора вопроса ему не помогла :)

← →
KilkennyCat © (2013-04-02 01:50) [17]

> А 90% отлично делают дельфи

ты же программист. допиши оставшиеся 10, заодно платить не придется.

> Розыч на форуме умную вещь сказал

дык ведь и не к идиотам обращался.

← →
Плохиш © (2013-04-02 10:53) [18]

> ты же программист.

Долго смеялся... Это такой прикол 2 апреля :-)

← →
TStas © (2013-04-02 12:00) [19]

Это где-то на первом часу мучений с раром стало прообоваться
procedure TForm1.Button1Click(Sender: TObject);
Const
AName = "Тестовая";
var
Src, Dest, S: String;
begin
Src := ExtractFilePath(ParamStr(0));
Dest := Src;
Src := Src + AName + "\"; //Хоть со слешом, хоть без слеша
Dest := Dest + AName + ".rar";
if DirectoryExists(Src) then ShowMessage("DirectoryExists(Src) = True") else
ShowMessage("DirectoryExists(Src) = False");// вывод переменной DirectoryExists(Src)
//rar a МояАрхива c:\МояМамка\МояПапка
S := "rar a -r "" + Dest + "" "" + Src + """;
WinExec(PChar(S), SW_SHOW); //Не работает

S := "rar a "" + Dest + "" "" + Src + """;
WinExec(PChar(S), SW_SHOW); //Не работает
end;

← →
Rouse_ © (2013-04-02 12:27) [20]

ну еще бы работало.
Ты просто открой консоль и попробуй там выполнить свою команду: "rar a МояАрхива c:\МояМамка\МояПапка", заработает?

← →
clickmaker © (2013-04-02 12:28) [21]

> WinExec(PChar(S), SW_SHOW); //Не работает

а rar.exe живет в папке, которая прописана в переменной окружения PATH?
И еще, так для справки, WinExec возвращает результат, который можно проверить

← →
antonn © (2013-04-02 13:21) [22]

> Код можешь написать? Ну никак не получяается.

я из пхп примерно так делаю:
exec("rar.exe a -r -ep1 -mt6 "путь и имя получаемого архива" "папка\*.*" ");

← →
brother © (2013-04-02 13:25) [23]

О_о рар консольный?

← →
clickmaker © (2013-04-02 13:29) [24]

дык, rar.exe всегда консольный. Гуевый называется WinRar

← →
antonn © (2013-04-02 13:31) [25]

> О_о рар консольный?

версия 4.20, что тебя удивляет?

← →
brother © (2013-04-02 13:45) [26]

у меня консольный ассоциируется с ДОС)

← →
antonn © (2013-04-02 14:54) [27]

Фигня, у меня до сих пор где-то еще работает arj.exe и tar :)

Да и не обязательно прям "консольный" - с поддержкой параметров запуска, вывода он может не делать (а это вроде как основное для консольного приложения).

← →
Inovet © (2013-04-02 15:39) [28]

> [11] TStas © (01.04.13 22:00)
> Приведенные примеры не работают

Всё работает. Мне лично, когда разово надо вручную запаковать, удобнее перейти в нужную папку и набрать
rar a MyArchive
или
rar a -r MyArchive

И вообще первое апреля уже кончился.

> [26] brother © (02.04.13 13:45)
> у меня консольный ассоциируется с ДОС)

У меня с консолью. Что я думаю не так? Кстати, гуевый точе можно вызывать с параметрами, никогда не пользовался этой возможностью, но Рошалью респект.

правильный rar называется zip

>правильный rar называется zip

Точно - новый метод шифрования :)

← →
брат Птибурдукова (2013-04-02 16:29) [33]

> Кстати, гуевый точе можно вызывать с параметрами, никогда
> не пользовался этой возможностью
я пользовался. консольный unrar не умеет распаковывать не-раровские архивы, графический -- умеет. я этим нагло пользовался.

Edit1.Text := "rar a -r""+ " "" + DocFolder + DOC_FOLDER_NAME + ".rar" "" + DocFolder + """;
WinExec(PChar(Edit1.Text), SW_SHOW);
Нихрена не наботает. И еще ShellExecute и по-всякому. Даже консоль не вылезает

> [35] TStas © (03.04.13 15:21)
> не наботает

ShowMessage(Edit1.Text);
в нём Ctrl+C
В консоль умеешь вставлять из буфера обмена? Вставь и нажми Enter.

да бесполезно всё... человек надел пробковый шлем

>clickmaker //Самый умный? Ну не работал я с раром. Ну не получается. Прямого ответа так никто не написал. Не работает. Через сообщения все чудно работает. Хамить-то зачеем? Я тебе хоть одно слово плохо сказал?

КАк упаковать раром папку? Найти похожие ветки