Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
1 / 1 / 0
Регистрация: 03.12.2013
Сообщений: 21
1

Сохранить в архив

10.06.2015, 14:22. Показов 500. Ответов 2
Метки нет (Все метки)

В ходе работы программы, формируются 2 файла, txt и jpg. Необходимо с помощью savedialog сохранить эти файлы под одним именем (задаваемым пользователем) в архив (.zip). Подскажите как это можно сделать?
У меня при помощи zipforge создается архив, но записать файлы не получается

Добавлено через 50 минут
Тема закрыта. использовал компонент ZipForge, пришлось сохранить файлы, добавить их в архив, а после удалить.
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
procedure TForm2.N1Click(Sender: TObject);
var FName:string;
archiver : TZipForge;
Begin
if sd.Execute then
archiver := TZipForge.Create(nil);
 
with archiver do
  begin
    FileName := sd.FileName+'.zip';
    OpenArchive(fmCreate);
    Memo1.Lines.SaveToFile(sd.FileName + '.xml');
    Image1.Picture.SaveToFile(sd.FileName+ '.jpg');
    AddFiles(sd.FileName+'.xml');
    AddFiles(sd.FileName+'.jpg');
    CloseArchive();
    deletefile(sd.FileName+'.xml');
    deletefile(sd.FileName+'.jpg');
  end;
End;
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.06.2015, 14:22
Ответы с готовыми решениями:

ZipForge - сохранить содержимое Memo и запаковать в архив
Всем доброго времени суток! Уважаемые комрады, требуется помощ, ответ думаю элементарен, но никак...

Архив
можете написать код на кнопку чтобы при нажатии этой кнопки программа разблокироввывала архив с...

RAR-архив
как написать код на кнопку чтобы программа снимала пароль с рар архива? Оч. надо

Электронный архив
Здравствуйте. Такая проблема: нужно сделать архив документов предприятия. Т.е. чтобы документы...

2
836 / 731 / 342
Регистрация: 22.09.2012
Сообщений: 5,034
10.06.2015, 22:03 2
ZipForge умеет сохранять.
Давно им пользуюсь.
0
Пишу на Delphi...иногда
1419 / 1276 / 286
Регистрация: 03.12.2012
Сообщений: 3,914
Записей в блоге: 5
10.06.2015, 22:22 3
Цитата Сообщение от Mitya44kostr Посмотреть сообщение
пришлось сохранить файлы, добавить их в архив, а после удалить.
без использования файлов TZipForge.AddFromStream
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.06.2015, 22:22

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Архив и TreeView
Здравствуйте! Нужна помощь!!!!! Дерево выглядит примерно так: Содержание Практика 1 ...

Перемещение файлов в архив
Подскажите пожалуйста, возможно ли переместить командой MoveFile переместить(а программа сама за...

Как создать архив?
Подскажите, пожалуйста, 1) Как добавить в архив файл *.Xml путь к которому прописан в Edit1.text...

Не получается открыть архив RAR
Использую Delphi XE7. Нужно из программы открыть RAR архив. Скачал компонент TRAR написанный...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.