Hallo,

ich versuche mich gerade am packen von Dateien.
Ich nutze hierfür KAZip unter BDS 2006.

Der Compiler bringt keinen Fehler, aber zur Laufzeit bekomme ich eine Zugriffsverletzung an der folgenden Stelle

zusammenfalten · markieren

Delphi-Quellcode:

procedure TKAZip.Close;
begin
  Entries.Clear; // <- Hier wird der Zugriffsfehler erzeugt
  if Assigned(FZipStream) AND (NOT FExternalStream) Then FZipStream.Free;
  FExternalStream := False;
  FZipStream := Nil;
  FIsZipFile := False;
  FIsDirty := True;
  FReadOnly := False;
  DoChange(Self,0);
end;

Der Code liegt in KAZip.
Und "Entries" ist auch unter Properties deklariert.
Mein Projekt liegt im Anhang.

Vielleicht hat ja jemand eine Idee oder noch besser eine Erklärung für mich.


Gruß Holger.

Moin Holger,

hättest du eventuell ein Link zu der Homepage der Komponente ?

Ja klar.

KAZip gibt es HIER

Das verwendete BZip2 gibt es HIER

Hallo,

ich habe das Projekt gerade noch mal in Turbo Delphi getestet.
Aber das Ergebnis ist das gleiche.
Habe schon im Forum nach einem Beispielprojekt gesucht, aber nichts verwertbares gefunden.

[edit]Schreibfehler[/edit]

Also mir fehlt da irgendwo ein myZipArchive.Create, für mich siehts so aus als wenn du auf ein nicht erzeugtes Objekt zugreifst. Du musst das Objekt myZipArchive also noch irgendwo erzeugen (im OnCreate vielleicht).

Hallo,

ich habe im OnCreate folgendes eingetragen

markieren

Delphi-Quellcode:

procedure Tfrm_main.FormCreate(Sender: TObject);
begin
  myZipArchive.Create(self);
end;

Und sobald das Programm zur Laufzeit da ankommt
bekomme ich wieder eine Exeption mit Zugriffsverletzung.

Ich hatte mir das mir den nicht erzeugten Objekten auch schon gedacht,
aber das erzeugen des ZIPs klappt deswaegen habe ich die Idee verworfen.

zusammenfalten · markieren

Delphi-Quellcode:

procedure Tfrm_main.Neuanlegen1Click(Sender: TObject);
var FS : TFileStream;
begin
  // Archiv neu anlegen
  if SaveDialog1.Execute Then
     Begin
       FS := TFileStream.Create(SaveDialog1.FileName,fmOpenReadWrite or FmCreate);
       Try
         myZipArchive.CreateZip(FS); // <- Hier wird das ZIP erzeugt (kein Fehler)
       Finally
         FS.Free;
       End;
       myZipArchive.Open(SaveDialog1.FileName);
       Statusbar1.simpletext := ' Aktuelles Archiv: ' + SaveDialog1.FileName;
     End;
end;

Ich hab keine richtige Idee mehr.
Auf den Seiten von Torry, wo ich die Komponente heruntergeladen habe, ist sie auch nur bis D2005 angegeben.
Vielleicht klappt sie einfach nicht mit D2006.

Du weist schon was du mit "self" übergibst, oder ?

Den Bezug auf meine eigene Anwendung.
Dachte ich wenigsten.
Tue ich das nicht?

Doch, aber wie es in deinem 2. Code zeigt, möchte er einen Filestream als Parameter haben.

ohne jetzt in den code geschaut zu haben:

markieren

Delphi-Quellcode:

procedure Tfrm_main.FormCreate(Sender: TObject);
begin
  myZipArchive.Create(self);
end;

kommt mir etwas spanisch vor.. wäre das nicht eigentlich:

markieren

Delphi-Quellcode:

procedure Tfrm_main.FormCreate(Sender: TObject);
begin
  myZipArchive := TZipAchrive.Create(self); // oder wie auch immer die klasse heißt ?
end;

gruß
reli