| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

Morrison ©   (2006-11-14 02:06:00) 

Добрый день!
У меня все та же задача: упаковать несколько файлов в один архив. Я скачал 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 начал открываться, закрываться, и вообще работать...

---

keht   (2006-11-14 15:11:00) [1]

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

---

Германн   (2006-11-14 03:46:00) [2]

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

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

---

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

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

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

---

Morrison   (2006-11-14 03:29:00) [4]

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

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

---

Германн   (2006-11-14 02:40:00) [5]

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

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

---

Наверх