Побывал в zipper использовать SaveToStream но неудачно. Видать что то не так пишу. Если кто шарит, поправьте пожалуйста.
Ещё скачал библиотеку от сюда: http://wiki.lazarus.freepascal.org/FreePascalArchivePackage Дальше прописи types в uses дело не пошло. И то я не у верен, привольное ли это подключение))
Вот то что я накатал для zipper
var S: TStringStream;
Zip: TZipper;
F: TZipFileEntries;
begin
S := TStringStream.Create('<html>ну типа страница будет</html>');
F.AddFileEntry('C:\varhiv\mod.php', 'mod.php');
F.AddFileEntry('C:\varhiv\mod.xml', 'mod.xml');
F.AddFileEntry(S, 'index.html');
Zip:=TZipper.Create;
Zip.ZipFiles(F);
Zip.SaveToStream(S);
Zip.Free;
F.Free;
end;
Сохранения Zip в TStreem после архивации
Модератор: Модераторы
-
Ichthyander
- энтузиаст
- Сообщения: 701
- Зарегистрирован: 04.04.2007 08:32:43
- Откуда: Астрахань
- Контактная информация:
Я с zipper не работал. Но почему объект F класса TZipFileEntries нигде не создается в коде (Create). А объект S кстати не освобождается...
И совсем не рассказали в чем состоит неудача, какие ошибки. Выдавайте больше информации и тогда будет больше вероятности что Вам ответят.
И еще: оформляйте исходный код в тег code
И совсем не рассказали в чем состоит неудача, какие ошибки. Выдавайте больше информации и тогда будет больше вероятности что Вам ответят.
И еще: оформляйте исходный код в тег code