Вопрос по ZipForge

[rzawm]

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

Чего я смог добится:
Получился вот такой код

procedure TForm1.Button11Click(Sender: TObject);
begin
with SaveDialog2, Memo3 do
       if Execute then
         begin
            Lines.SaveToFile(FileName);
            ZipForge1.FileName:=Savedialog2.FileName;
            zipforge1.OpenArchive(fmcreate);
            ZipForge1.AddFiles(filename);
            ZipForge1.CloseArchive();
            saveDialog2.FileName:=FileName;
         end;
end;

Результатом его работы стало создание zip файла, но абсолютно пустого, а нужен внутри зип файлик с содержимым из memo

Заранее всем благодарен

[Аватар]

FileName в данном контексте и будет saveDialog2.FileName. И что получится в результате? with убери

[rzawm]

т.е. убираю with и Lines.SaveToFile(FileName); - это меняю на Lines.SaveToFile(saveDialog2.FileNa me)

Получается

procedure TForm1.Button11Click(Sender: TObject);
 begin
 SaveDialog2, Memo3 do
 if Execute then
 begin
 Lines.SaveToFile(saveDialog2.FileName);
 ZipForge1.FileName:=Savedialog2.FileName;
 zipforge1.OpenArchive(fmcreate);
 ZipForge1.AddFiles(aveDialog2.FileName);
 ZipForge1.CloseArchive();
// saveDialog2.FileName:=FileName;
 end;
 end;

Так получается, правильно понял?

[Аватар]

Вообще-то из мемо должно выгружаться в один файл, архив создаваться в другой. И with так не убирается

[rzawm]

Аватар, да всё так. Изначально на форме была одна кнопочка, по которой содержимое мемо сохранялось в файл, имя и путь пользователь сам указвает, сейчас появилась задача сохранять содержимое мемо еще и в zip архив.
А нельзя на примере моего куска кода показать понагляднее, очень буду благодарен?

Уважаемы, ну очень надо, подскажите наглядно на моем примере

[Аватар]

Ну примерно так. С ZipForge не работал, методов не знаю

procedure TForm1.Button11Click(Sender: TObject);
var TempPath,TempFileName: String;
    i: Integer;
begin
  if SaveDialog2.Execute then begin
    SetLength(TempPath,MAX_PATH);
    i:=GetTempPath(Length(TempPath),PChar(TempPath));
    SetLength(TempPath,i);
    SetLength(TempFileName,MAX_PATH);
    i:=GetTempFileName(PChar(TempPath),'myf',0,PChar(TempFileName));
    SetLength(TempFileName,i);
    TempFileName:=TempFileName+'.txt';
    try
      Memo3.Lines.SaveToFile(TempFileName);
    except
      ShowMessage('Ошибка выгрузки из memo');
      Exit;
    end;
    try
      try
        ZipForge1.FileName:=Savedialog2.FileName;
        ZipForge1.OpenArchive(fmcreate);
        ZipForge1.AddFiles(TempFileName);
        ZipForge1.CloseArchive();
      except
        ShowMessage('Ошибка создания архива');
        Exit;
      end;
    finally
      DeleteFile(TempFileName);
    end;
  end;
end;

[rzawm]

Аватар, спасибо большое! Вечером испытаю. Ваша помощ неоценима!

Аватар, попробовал, какбы получилось но отчасти.
Архив создался, именно в том месте куда я указал savedialog ом, но содержимое архива, дежит ещё в нескольких папках, а необходимо чтобы бло в корне и расширение почемуто *.tmp

Вот скрин



Файлик zip я создал под именем 963.zip
мне надо чтобы открыл созданный зип архив и внем сразу файлик с расширением например *.txt без каких либо папок.

Что то никак не получается разобраться с путем по которому создается архив и откуда расширение *.tmp берется, надо файл с архивом создать выбрав в savedialog путь и имя, а файл из memo должен лежать в корне созданного архива, а не в пяти папках как получилось. Подскажите пожалуйста

Всем спасибо, разобрался, тему можно закрывать

[FaTaL]

Чтобы не плодить новые тему, спрошу здесь. Тем более название темы соответсвует.
Скачал я ZipForge v.6.50 - Personal Edition с сайта http://www.componentace.com/
Этот компонент вроде бесплатный. Но вот собственно вопрос. Могу ли я распространять свою программу, использующую этот компонент? Что-то ничего не нашёл по этому поводу.

[Serge_Bliznykov]

FaTaL, простите, а с чего Вы решили, что это БЕСПЛАТНЫЙ компонент?!

по вашей же ссылке -
http://www.componentace.com/order/or...oduct.php?id=2

[FaTaL]

Сообщение от Serge_Bliznykov

простите, а с чего Вы решили, что это БЕСПЛАТНЫЙ компонент?!

Потому что он скачивается бесплатно и не имеет триального периода. Или это не так? Он у меня стоит в среде уже несколько месяцев и работает нормально, без каких либо запросов на оплату этого продукта.