Побывал в 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;
