|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
ZipForge нужна помощь
Всем доброго времени суток!
Уважаемые комрады, требуется помощ, ответ думаю элементарен, но никак я сам его не найду. Суть вопроса Есть форма, на форме TMemo, TButton, TSaveDialog, TZipForge. В процессе работы приложения Memo заполняется различными данными и в некоторый момент времени нам надо щелкнув Button содержимое Memo сохранить в zip архив, задав имя архива через savedialog. Сам архив и архивировируемый файл должный иметь одно и тоже имя, взятое из savedialog, архивируемый файли должен лежать в корне полученного архива, без каких либо папок. пример: щелкнули по button вышел savedialog, в нем указали имя например 945 и решили сохранить например на рабочем столе, в итоге у нас должен полчуится zip архив на рабочем столе 945.zip а в нем файлик 945.txt без каких либо папок. Уважаемые, очень надо! Буду очень благодарен! |
#2
|
||||
|
||||
Используй gzip. Там вообще нет понятия имени файла в архиве.
— Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |
#3
|
||||
|
||||
Ну или вот адаптированный кусок из демки к данному пакету
Код:
uses ZipForge; ... var fn: string; begin if SaveDialog1.Execute do begin fn:= ChangeFileExt(ExtractFileName(SaveDialog1.FileName), 'txt'); Memo1.Lines.SaveToFile(fn); with TZipForge.Create(nil) do begin FileName:= SaveDialog1.FileName; OpenArchive(fmCreate); AddFromFile(fn); CloseArchive; Free; end; DeleteFile(fn); end; end; Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
Этот пользователь сказал Спасибо Alegun за это полезное сообщение: | ||
rzawm (08.02.2015)
|
#4
|
|||
|
|||
M.A.D.M.A.N., мне не приницпиально что использовать, с zip архивами вобще не работал никогда. можно и gzip
|
#5
|
|||
|
|||
Alegun, спасибо попробую
|
#6
|
|||
|
|||
Alegun, не получилось, ругается вот на это AddFromFile(fn);
|