DecodeStream(MS, MS1);
MS1.SaveToFile(Path+'zip_from_fb2.zip');
MS.Free; MS1.Free;
end;
// конец кода
Еще, в uses добавь EncdDecd.
Сохрани проект и unit1 в какую либо папку (я имею в виду, создай папку).
Туда же брось, подготовленный файл zzz.txt
Запусти Delphi на выполнение.
Нажми на кнопку.
Все.
Полученный архив распакуй в новую папку.
А все сделанное можешь спокойно удалить.
|go| А зачем удалять, может и дальше ею пользоваться?
|t_| Нет, программка одноразова, тут целая история, об эмоциональности программирования, но об это потом...
Запускай проект полученный из архива
И проверь его на этой книге
Ну, как, получилось?
|go| Постой, постой!
А, как подготавливать архивы для вставки в книгу?
|t_| А, тебе зачем?
|go| Ну, вот, пожадничал.
|t_| Да нет, мне не жалко... хотя постой, ты совершенно прав, тебе пригодится возможность кодировать рисунки.
|go| А еще и извлекать картинки из книги...
|t_| Ну ладно, уговорил. Сейчас переделаю прогу. И напишу еще одну, и их исходники засуну в эту книгу. Чтобы тебе не запутаться, программа для декодирования будет находится в конце книги.
|go| Хорошо, я потом посмотрю исходники, и если, что-то пойму...
|t_| Ладно, пиши. Успехов!