Delphi-PRAXiS
Seite 2 von 2     12   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Programmieren allgemein (https://www.delphipraxis.net/40-programmieren-allgemein/)
-   -   Abbrevia + Folders (https://www.delphipraxis.net/53973-abbrevia-folders.html)

Christian Seehase 26. Sep 2005 20:52

Re: Abbrevia + Folders
 
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 26. Sep 2005 21:11

Re: Abbrevia + Folders
 
??? 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 26. Sep 2005 22:24

Re: Abbrevia + Folders
 
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 26. Sep 2005 23:17

Re: Abbrevia + Folders
 
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:


Alle Zeitangaben in WEZ +1. Es ist jetzt 07:10 Uhr.
Seite 2 von 2     12   

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz