Sign in Join
Wiki copytemporary

paszlib/de: what changed

Revision 0 to 1. Removed lines have a minus sign; added lines have a plus sign.

Title: paszlib/de

OldNewLine
1+Zurück zu den [[Additional information/de|Zusätzlichen Informationen]].
2+
3+PASZLIB ist eine Umsetzung der in der Programmiersprache C geschriebenen Standard Bibliothek zlib in die Programmiersprache Pascal.\
4+Mit PASZLIB können zip-Dateien erstellt, bearbeitet und extrahiert werden.\
5+Die vorliegende Umsetzung in die Programmiersprache Pascal wurde von Jacques Nomssi Nzali erstellt.
6+
7+# TZipper
8+
9+TZipper enthält Funktionen für die Komprimierung und für die Dekomprimierung von Dateien. Mehr Beispiele als die unten gezeigten finden Sie auf der [Beispielseite](http://svn.freepascal.org/svn/fpc/trunk/packages/paszlib/examples/).
10+
11+# Beispiele
12+
13+Die Klassen TZipper und TUnZipper stellen für das Komprimieren und Dekomprimieren mehrere Methoden als die unten gezeigten Beispiele zur Verfügung.
14+
15+## Dateien packen
16+
17+``` pascal
18+uses
19+ Zipper, SysUtils, Classes, ...;
20+
21+...
22+
23+procedure subZip(strZipAusgabeDatei: string; strListeZuPackenderDateien: TStringList);
24+var
25+ OurZipper: TZipper;
26+begin
27+ OurZipper := TZipper.Create;
28+ try
29+ // Name der Zip-Datei, die erstellt werden soll
30+ OurZipper.FileName := strZipAusgabeDatei;
31+ // Stringliste mit den Dateien, die gepackt werden sollen
32+ OurZipper.Entries.AddFileEntries(strListeZuPackenderDateien);
33+ OurZipper.ZipAllFiles;
34+ finally
35+ FreeAndNil(OurZipper);
36+ end;
37+end;
38+
39+...
40+```
41+
42+## Dateien entpacken
43+
44+``` pascal
45+uses
46+ Zipper, SysUtils, Classes, ...;
47+
48+...
49+
50+procedure subUnZip(strZipDatei, strAusgabeOrdner: string);
51+var
52+ UnZipper: TUnZipper;
53+begin
54+ UnZipper := TUnZipper.Create;
55+ try
56+ // Name der Zip-Datei, die entpackt werden soll
57+ UnZipper.FileName := strZipDatei;
58+ // Name des Ziel-Verzeichnisses
59+ UnZipper.OutputPath := strAusgabeOrdner;
60+ UnZipper.Examine;
61+ UnZipper.UnZipAllFiles;
62+ finally
63+ FreeAndNil(UnZipper);
64+ end;
65+end;
66+
67+...
68+```
69+
70+---
71+*From the Free Pascal wiki, page "paszlib/de", as it stood on 2020-02-23 after a change by Trev, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's [[Licensing]] page. If you have concerns about this material, [message the admin](/wiki-contact).*

Back to history