Кто знаком с KAZip? Не получаются элементарные вещи... :(

← →
Morrison © (2006-11-14 02:06) [0]

Добрый день!
У меня все та же задача: упаковать несколько файлов в один архив. Я скачал KAZip, изучил всю демку, но так и не смог понять, как оно работает.
Я полностью повторил код процедуры создания нового архива:

var KAZip1 : TKAZip; ... procedure TForm1.NewZipArchive1Click(Sender: TObject); Var FS : TFileStream; begin if SaveDialog1.Execute Then Begin KAZip1.Close; FS := TFileStream.Create("C:\zip1.zip", FmCreate); Try KAZip1.CreateZip(FS); Finally FS.Free; End; KAZip1.Open("C:\zip1.zip"); End; end;

Уже на строчке KAZip1.Close; появляется ошибка "Access violation", если же удалить эту строчку, та же ошибка появляется на KAZip1.Open("C:\zip1.zip");

Ради Боуи, объясните, что нужно сделать, чтобы этот KAZip1 начал открываться, закрываться, и вообще работать...

← →
Германн © (2006-11-14 02:40) [1]

> Уже на строчке KAZip1.Close; появляется ошибка "Access violation",
>

А создать его ты не пробовал?

← →
Morrison © (2006-11-14 03:29) [2]

Благодарю! :)

Странно, но почему же в демо отсутствует какой бы то ни было Create?

← →
Германн © (2006-11-14 03:36) [3]

>
> Странно, но почему же в демо отсутствует какой бы то ни
> было Create?
>

Ей богу, то демо писАл не я!

> Morrison © (14.11.06 03:29) [2]

Но ты всё же поосторожней с именами. :-)
Тут на форуме есть такие, что мало не покажется!

Не юзай KAZIP. Юзай VCLZIP. С казипом у меня тоже были странные глюки на ровном месте.

Кто знаком с KAZip? Не получаются элементарные вещи... :( Найти похожие ветки