Abbrevia + Folders

[japetos]

Wie bekomme ich es hin dass mir das Teil auch ganze Ordner zippt?

So sieht mein Code bisher aus:

Delphi-Quellcode:

         begin
          try
              AbZipper1.BaseDirectory := ExtractFilePath(FileName);
              AbZipper1.FileName := s;
              abZipper1.OpenArchive(s);
              AbZipper1.AddFiles(ExtractFileName(FileName), 0);
              AbZipper1.Save;
              AbZipper1.CloseArchive;
              ShowMessage(ExtractFileName(FileName) + ' zipped');
          except
          on E: Exception do
          ShowMessage('NO: ' + E.Message);
        end;
     end;

[trifid]

Hallo japetos,

schau mal die Komponente hat
unter StoreOptions ein Element, diese auf soRecurse = True setzen oder

Delphi-Quellcode:

AbZipper1.StoreOptions := [soStripDrive,soRemoveDots,soRecurse]

[japetos]

1. in den Optionen hab ich das schon gemacht.
2. wenn ich dann soRecurse := true setze wird zwar das zip-file erstellt, allerding ohne jeglichen Inhalt.

[trifid]

Hallo japetos,
probiers mal damit

Delphi-Quellcode:

   
   try
      AbZipper1.BaseDirectory := 'C:\mypath\';
      AbZipper1.FileName := 'my.zip';
      AbZipper1.StoreOptions := [soStripDrive, soRemoveDots, soRecurse];
      AbZipper1.AddFiles('*.*', faReadOnly + faDirectory + faArchive + faAnyFile);
      AbZipper1.Save;
      AbZipper1.CloseArchive;

      ShowMessage('zipped');
   except
      on E: Exception do ShowMessage('NO: ' + E.Message);
   end;

geht natürlich auch mit

Delphi-Quellcode:

AbZipper1.AddFiles('*.*', 0);

[japetos]

bei:

Delphi-Quellcode:

AbZipper1.StoreOptions := [soStripDrive, soRemoveDots, soRecurse];

kommt die Fehlermeldung: undeclared Identifier

bei:

Delphi-Quellcode:

AbZipper1.AddFiles('*.*', faReadOnly + faDirectory + faArchive + faAnyFile);

kommt die Fehlermeldung: Incompatible Types

und wenn ich

Delphi-Quellcode:

AbZipper1.AddFiles('*.*', 0);

eingebe, dann zippt er mir alles was auf dem Desktop ist :(

[trifid]

Zitat:

kommt die Fehlermeldung: undeclared Identifier

verstehe ich nicht

Zitat:

kommt die Fehlermeldung: Incompatible Types

bei mir nicht reproduzierbar

Welche Version verwendest du ?
bist du mal mit dem Debugger durch, die sourcen sind ja mit dabei

Zitat:

AbZipper1.AddFiles('*.*', 0);

wenn der Desktop gezipt wird, dann simmt das BaseDirectory nicht

Ich bekomme bei diesem code keinen Fehler !
sonst hätte ich ihn ja nicht gepostet

Delphi-Quellcode:

   try
      AbZipper1.BaseDirectory := 'C:\mypath\';
      AbZipper1.FileName := 'my.zip';
      AbZipper1.StoreOptions := [soStripDrive, soRemoveDots, soRecurse];
      AbZipper1.AddFiles('*.*', 0);
      AbZipper1.Save;
      AbZipper1.CloseArchive;

      ShowMessage('zipped');
   except
      on E: Exception do ShowMessage('NO: ' + E.Message);
   end

und diese Variante geht auch

Delphi-Quellcode:

   try
      AbZipper1.BaseDirectory := 'C:\mypath\';
      AbZipper1.FileName := 'my.zip';
      AbZipper1.AddFiles('*.*', 0);
      AbZipper1.Save;
      AbZipper1.CloseArchive;

      ShowMessage('zipped');
   except
      on E: Exception do ShowMessage('NO: ' + E.Message);
   end

und die Komponente ist so im dfm-file beschrieben

Delphi-Quellcode:

  object AbZipper1: TAbZipper
    AutoSave = True
    DOSMode = False
    StoreOptions = [soStripDrive, soRemoveDots, soRecurse]
    Left = 120
    Top = 72
  end

versuche zuerst über einen statischen Pfad eine Lösung zu finden,
wenn es dann funktioniert kannst du immer noch ExtractFilePath(FileName) verwenden

[japetos]

nope.

hab jetzt beides ausprobiert.
beim ersten erstellt er zwar das ZIP aber ohne Inhalt

und bei zweiten zippt es alles was sich auf dem Desktop befindet.
Total bescheuert.

:wall:

[trifid]

Zitat:

hab jetzt beides ausprobiert.

wie hast du es ausprobiert mit C:\mypath ?
welche Version von Abbrevia verwendest du ?
aus welchen Pfad wird die Applikation gestartet - überprüfe das ?

Zitat:

beim ersten erstellt er zwar das ZIP aber ohne Inhalt

ich weiss nicht ob du die auch die Änderungen von der dfm vorgenommen hast

geh mal mit dem Debugger durch und schaue was er
bei AbZipper1.BaseDirectory zuordnet ?
später in AbZipper1.AddFiles('*.*', 0);
welchen Pfad verwendet er und warum diesen ?
Wie wird die FindFirst und FindNext in Abbrevia aufgerufen und abgearbeitet ?

manchmal stelle ich Fragen, damit diese auch beantwortet werden, falls es zu einer Rückantwort kommt

[Christian Seehase]

Moin japetos,

dass hier:

Delphi-Quellcode:

faReadOnly + faDirectory + faArchive + faAnyFile

ist falsch.
Solche Flags solltest Du nur mit or verknüpfen.

Code:

faReadOnly  =   1 => binär 00000001
faDirectory =  16 => binär 00010000
faArchive   =  32 => binär 00100000
faAnyFile   =  63 => binär 00111111
===================================
Summe       = 112 => binär 01110000
===================================
OR          =  63 => binär 00111111
===================================

Der Funktion wird als der Wert 112 übergeben, was aufgeschlüsselt nach Flagwerten

Delphi-Quellcode:

faDirectory or faArchive or faSymLink

bedeutet.
Mit OR verknüpft wäre es hingegen faAnyFile, was

Delphi-Quellcode:

faReadOnly or faHidden or faSysFile or faVolumeID or faDirectory or faArchive

entspricht.

[trifid]

@Christian Seehase
du hast recht, aber dann ist auch die Hilfe falsch (s.a. Das Beispiel zur FindFirst (Funktion) )
Im code der FindFirst-Funktion sieht man die richtige Schreibweise

Delphi-Quellcode:

function FindFirst(const Path: string; Attr: Integer;
  var F: TSearchRec): Integer;
const
  faSpecial = faHidden or faSysFile or faVolumeID or faDirectory;

Sorry :oops:
Nur gut dass ich auch ein Beispiel ohne dieser Dateiattribute gemacht habe

[Christian Seehase]

Moin trifid,

Zitat:

Zitat von trifid

du hast recht, aber dann ist auch die Hilfe falsch (s.a. Das Beispiel zur FindFirst (Funktion) )

Stimmt.
Das Beispiel hatte ich mir garnicht angesehen ;-)

[japetos]

??? Bahnhof ???

getestet mit c:\mypath
Abbreva Version: 3.05
die App wird aus diesem Pfad gestartet: C:\mypath
Aenderung im dfm uebernommen!

Ansosnten hab ich keine Ahnung wie ich das mit dem Debugger machen soll.
Habs grad versucht. Aber da kam nichts bei raus.

Es muss am Pfad liegen.

[trifid]

Ich hab mal kurz die Abbrevia 3.05 BETA 6 von Sourceforge heruntergezogen und installiert.
Das ist die aktuellste BETA

Dabei habe ich folgende 2 Varianten ausprobiert
Neu war, dass AbZipper1.FileName den Pfad noch benötigt, naja

Delphi-Quellcode:

   
   try
      AbZipper1.BaseDirectory := 'C:\mypath\';
      AbZipper1.FileName := 'C:\mypath\my.zip';
      AbZipper1.AddFiles('*.*', faReadOnly or faDirectory or faArchive or faAnyFile);
      AbZipper1.Save;
      AbZipper1.CloseArchive;

      ShowMessage('zipped');
   except
      on E: Exception do ShowMessage('NO: ' + E.Message);
   end

und die 2te Variante

Delphi-Quellcode:

   
   try
      AbZipper1.BaseDirectory := 'C:\mypath\';
      AbZipper1.FileName := 'C:\mypath\my.zip';
      AbZipper1.AddFiles('*.*', 0);
      AbZipper1.Save;
      AbZipper1.CloseArchive;

      ShowMessage('zipped');
   except
      on E: Exception do ShowMessage('NO: ' + E.Message);
   end

Zitat:

??? Bahnhof ???

Was für eine Antwort erwartest du mit dieser Zeile?

Zitat:

Ansonten hab ich keine Ahnung wie ich das mit dem Debugger machen soll.

Wie der Debugger funktioniert, wie man Komponenten debuggt oder den Compiler-Schalter dafür einstellt,
steht einmal im Handbuch oder du sucht nach Tutorials

Abschließend zusammenfassend.
Mit der V3.05Beta6 habe ich in beiden oben stehenden Varianten jeweils eine my.zip erzeugen können,
die Dateien mit Unterverzeichnissen beinhaltet. Die Dateien der Unterverzeichnisse waren ebenfalls in der ZIP-Datei enthalten.
Reproduzierbar.
Der Bug wie auf sourceforge nachzulesen ist, dass leere Unterverzeichnisse nicht mit aufgenommen werden, dürfte auch bekannt sein.

[japetos]

VIELEN VIELEN DANK.

Werde mich morgen damit beschäftigen.

mit

Zitat:

??? Bahnhof ???

wollte ich nur meine beschämende Unwissenheit dokumentieren.
:duck:

Sollte kein Aufruf zu Komentaren sein.

also nochmals vielen Danke für die Mühe.

:freak: