Цитата opel431:
|
Создается ли вначале файл - ZipFile := TZipFile.Create »
|
Когда прочитал ваше сообщение как ошпарило, ведь действительно ZipFile=nil
Цитата opel431:
|
Открывается ли он для записи - ZipFile.Open('опачки.zip', TZipMode.zmWrite); »
|
Вот я и не знал, что его надо так открывать, в документации Embarcadero только описание объектов, а как применять не показано.
Цитата opel431:
|
Для чего такие сложности - ExtractFileNameW, наверное своя функция? С D2009 string, это юникод. »
|
Я честно говоря не помню, под какой версией начинал писать эту прогу, скорее всего 2010, но знаю про стандартную фунцкию, но почему-то не применил ее, сейчас переправлю на стандартную. (Прога писалась год назад, сейчас она мне понадобилась, решил доработать и исправил несколько ошибок и говнокод, удивляюсь, как я мог такое написать).
Сейчас при попытка ZipFile.Add возникает такая ошибка:
---------------------------
Support for compression method not registered: PPMd version I, Rev 1.
---------------------------
И так с любым методом.
