Zip erstellen über Shell API

[ConstantGardener]

Hallo sx2008,

danke für die angepasste Unit. Das tut erstmal. Wobei er nach dem erstellen des Zips abschmiert bzw. in der Schleife hängen bleibt die auf das beenden der ShellThreads wartet.

Ausserdem schmeisst mir D2010 eine Access Violation wenn ich die TestApp mit Debugger starte. Das könnte aber auch an meiner Installation liegen. Irgendwas läuft da noch nicht ganz rund.

Aber Danke schonmal...

cg

[Luckie]

Wozu ist denn das
// wait till all shell threads are terminated erforderlich?

[ConstantGardener]

@Luckie

... laut Blogeintrag um mit der Ausführung zu warten bis das Zip auch wirklich fertig erstellt ist. Wartet man nicht wird das Zip-Archiv im Hintergrund erstellt und die Funktion kehrt sofort zurück.
Das kann in einigen Bereichen (wie bei mir) problematisch sein.

[Daniel]

Kurz am Rande: Wäre einer von Euch so nett, die hier erarbeiteten Lösungen auch an den Blog-Autor von TMS zurück zu senden?

[ConstantGardener]

@Daniel

sobald das gut funzt geht das sofort zurück an Bruno. BTW dort hatte scheinbar noch keiner Probleme. (siehe Comments)

ps. : Dein Avatar ist ja.... süß Angst einflößend... irgendwie

[Schwedenbitter]

Hallo,

könnte mir bitte jemand mal einen funktionierenden Beispielcode senden oder hier im Forum einstellen?

Ich habe TurboDelphi und habe mit beiden Units versucht, eine zip-Datei zu entpacken. Das Entpacken ist auch mein Fernziel. Ich bekomme aber stets Fehlermeldungen:
Bei der ersten Unit kommt trotz Anpassung von String nach WideString stets eine Zugriffsverletzung wegen eines Leseversuches von Adresse 0. Bei der zweiten Unit (objektorientiert) bekomme ich immer eine Exception der Klasse EOleException mit der Meldung 'Das System kann die angegebene Datei nicht finden'. Die zip-Datei existiert und Sie wurde mit dem kompletten Pfad 'C:\...meine.zip' angegeben.

Ich habe keine Ahnung, was ich verkehrt mache, denn laut ConstantGardener funktioniert das wohl. Die Zip-Datei ist auch OK. Jedenfalls kann sie XP mit Bordmitteln entpacken. Und nichts anderes tut der Code, wenn ich das richtig verstehe.

Danke im Voraus, Alex

[himitsu]

Und an welchen Stellen tauchen denn diese "Adresse 0"-Exceptions denn auf? (laut deinem Debugger)

[Schwedenbitter]

So sieht die Funktion / der Aufruf aus:

Delphi-Quellcode:

Function ShellUnzip(Zipfile, Targetfolder: WideString;
  Filter: String = ''): Boolean;
Var
  Shellobj       : Variant;
  SrcFldr        : Variant;
  DestFldr       : Variant;
  ShellFldrItems : variant;
Begin
  Shellobj:=CreateOleObject('Shell.Application');
  SrcFldr:= Shellobj.NameSpace(Zipfile);
  DestFldr:=Shellobj.NameSpace(TargetFolder);

  ShellFldrItems:=SrcFldr.Items;  // <- hier kommt die Zugriffsverletzung
                                 // Ich VERMUTE, dass es daran liegt, dass ich zwar die zip-Datei
                                 // definiert habe, diese aber irgendwie noch GEÖFFNET werden muss.
  If (Filter <> '') Then
    ShellFldrItems.Filter(128 or 64 or 32, Filter);
  DestFldr.CopyHere(ShellFldrItems, 4 or 16);
End;

Procedure TForm1.Button1Click(Sender: TObject);
Var
  tmpF      : WideString;
  Target    : WideString;
Begin
  If Not OOpen.Execute Then Exit;

  Target:=ExtractFilePath(OOpen.FileName);
  tmpF:=Target + 'tmp.zip';
  RenameFile(OOpen.FileName, tmpF);
  Try
    ShellUnzip(tmpF, Target, 'content.xml');
  Except  End;
  RenameFile(tmpF, OOpen.FileName);
End;

Das ist der Code für die objektorientierte Unit:

Delphi-Quellcode:

procedure TShellZip.Unzip(const targetfolder: WideString);
var
  srcfldr, destfldr: Olevariant;
  shellfldritems: Olevariant;
begin
  shellobj:=CreateOleObject('Shell.Application');
  srcfldr:= GetNameSpaceObj(Fzipfile);  // <- hier kommt der Fehler
                                       // 'Das System kann die angegebene Datei nicht finden'


  srcfldr:= GetNameSpaceObj_zipfile;       // <- Variante laut sx2008 -> Bringt dieselbe Fehlermeldung.

  destfldr:=GetNameSpaceObj(targetfolder);
  ...


Procedure TForm1.Button1Click(Sender: TObject);
Var
  tmpF          : WideString;
  Target        : WideString;
Begin
  If Not OOpen.Execute Then Exit;

  Target:=ExtractFilePath(OOpen.FileName);
  tmpF:=Target + 'tmp.zip';
  RenameFile(OOpen.FileName, tmpF);
  With TShellZip.Create Do
  Try
    ZipFile:=tmpF;
    Filter:='content.xml';
    Unzip(Target);
  Finally
    Free;
  End;
  RenameFile(tmpF, OOpen.FileName);
End;

Hier kommt dann die Meldung mit der nicht angegebenen Datei.

Ich suche meine Fehler auch gern selber. Daher die Bitte nach einem funktionierenden Beispiel, damit ich sehen kann, was anders gemacht wurde.

Gruß und Dank, Alex

[himitsu]

Versuch mal dieses:

Delphi-Quellcode:

Function ShellUnzip(Zipfile, Targetfolder: WideString;
...
begin
  Shellobj:=CreateOleObject('Shell.Application');
  if not Assigned(Shellobj) then RaiseLastOSError;
  SrcFldr:= Shellobj.NameSpace(Zipfile);
  if not Assigned(SrcFldr) then RaiseLastOSError;
  DestFldr:=Shellobj.NameSpace(TargetFolder);
  if not Assigned(DestFldr) then RaiseLastOSError;
  ...

Zitat:

ShellFldrItems:=SrcFldr.Items;

Wenn SrcFldr hier NIL ist, dann bedeutet das Shellobj.NameSpace(Zipfile) hat nix zurückgeliefert und da in diesen Codes nirgendwo eventuelle Fehler abgefangen werden, muß es ja irgendwo auch mal heftig knallen.

[Schwedenbitter]

If not Assigned(Shellobj) then RaiseLastOSError; will mein Compiler nicht. Er meckert dann über "E2008 inkompatible Typen".

Und dann muss ich sagen: Es funktioniert. Vermutlich tat es das schon die ganze Zeit.
Mein Problem ist folgendes: Ich möchte eine odt-Datei entapcken. Das sind Dateien von OpenOffice, deren Text üblicher Weise in der content.xml gespeichert wird. Das ganze wird dann in einen Container mit anderen Daten gepackt. Ich ging immer davon aus, dass das Standard-zip ist. Denn wenn ich die Datei in irgendwas.zip umbenenne, kann ich sie mit Windows Bordmitteln entpacken (Inhalt ansehen mit Doppelklick und entpacken nach Rechtsklick). Andere Programme (z.B. mein uralter Norton Commander) bringen mir bei odt-Dateien Fehlermeldungen. Scheinbar schlägt das dann auch auch bei der Verwendung der API durch.
Andere Dateien ließen sich jedenfalls (jetzt) problemlos entpacken.

Entschuldigt daher meine Aufregung.

Ich frage mich jetzt bloß noch, warum das im BS geht und beim Aufruf aus Delphi nicht (mehr)? Gelöst habe ich das jetzt mit der Unit SciZipFile. Die benutzt keine DLL (was mir besonders wichtig war), ist sehr klein (= nimmt in meiner fertigen exe nur ca. 1KB mehr ein) und ist sehr schnell.

Danke nochmal für die Hilfe
<OT>Warum bekomme ich keine mail mehr, wenn ich eine Antwort auf eine Frage bekommen habe? Diese Option war nach dem Update der Forensoftware zwar ausgeschaltet. Aber auch nach dem Einschalten tut sich nichts.</OT>

Gruß, Alex