Скачать: CL | DM;

Кто знаком с 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?
>

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

---

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

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

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

---

← →
keht ©   (2006-11-14 15:11) [5]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.027 c