[rzawm]

Всем доброго времени суток!
Уважаемые комрады, требуется помощ, ответ думаю элементарен, но никак я сам его не найду.
Суть вопроса
Есть форма, на форме TMemo, TButton, TSaveDialog, TZipForge.
В процессе работы приложения Memo заполняется различными данными и в некоторый момент времени нам надо щелкнув Button содержимое Memo сохранить в zip архив, задав имя архива через savedialog. Сам архив и архивировируемый файл должный иметь одно и тоже имя, взятое из savedialog, архивируемый файли должен лежать в корне полученного архива, без каких либо папок.
пример:
щелкнули по button вышел savedialog, в нем указали имя например 945 и решили сохранить например на рабочем столе, в итоге у нас должен полчуится zip архив на рабочем столе 945.zip а в нем файлик 945.txt без каких либо папок.

Уважаемые, очень надо! Буду очень благодарен!

[M.A.D.M.A.N.]

Используй gzip. Там вообще нет понятия имени файла в архиве.

[Alegun]

Ну или вот адаптированный кусок из демки к данному пакету

Код:

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;

[rzawm]

M.A.D.M.A.N., мне не приницпиально что использовать, с zip архивами вобще не работал никогда. можно и gzip

[rzawm]

Alegun, спасибо попробую

[rzawm]

Alegun, не получилось, ругается вот на это AddFromFile(fn);