Difference between revisions of "paszlib/de"
From Free Pascal wiki
Jump to navigationJump to search (Created page with "{{paszlib}}<br> <br> PASZLIB ist eine Umsetzung der in der Programmiersprache C geschriebenen Standard Bibliothek zlib in die Programmiersprache Pascal.<br> Mit PASZLIB könne...") |
m (Fixed syntax highlighting; removed categories included in template) |
||
| (9 intermediate revisions by one other user not shown) | |||
| Line 1: | Line 1: | ||
| − | {{paszlib}} | + | {{paszlib}} |
| − | + | ||
| + | |||
| + | Zurück zu den [[Additional information/de|Zusätzlichen Informationen]]. | ||
| + | |||
| + | |||
PASZLIB ist eine Umsetzung der in der Programmiersprache C geschriebenen Standard Bibliothek zlib in die Programmiersprache Pascal.<br> | PASZLIB ist eine Umsetzung der in der Programmiersprache C geschriebenen Standard Bibliothek zlib in die Programmiersprache Pascal.<br> | ||
| − | Mit PASZLIB können zip-Dateien erstellt werden.<br> | + | Mit PASZLIB können zip-Dateien erstellt, bearbeitet und extrahiert werden.<br> |
| − | Die vorliegende | + | Die vorliegende Umsetzung in die Programmiersprache Pascal wurde von Jacques Nomssi Nzali erstellt. |
__TOC__ | __TOC__ | ||
| + | |||
=TZipper= | =TZipper= | ||
| + | |||
TZipper enthält Funktionen für die Komprimierung und für die Dekomprimierung von Dateien. | 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 [http://svn.freepascal.org/svn/fpc/trunk/packages/paszlib/examples/ Beispielseite]. | Mehr Beispiele als die unten gezeigten finden Sie auf der [http://svn.freepascal.org/svn/fpc/trunk/packages/paszlib/examples/ Beispielseite]. | ||
| + | |||
=Beispiele= | =Beispiele= | ||
| + | Die Klassen TZipper und TUnZipper stellen für das Komprimieren und Dekomprimieren mehrere Methoden als die unten gezeigten Beispiele zur Verfügung. | ||
| + | |||
==Dateien packen== | ==Dateien packen== | ||
| − | + | ||
| − | <syntaxhighlight> | + | <syntaxhighlight lang=pascal> |
| + | uses | ||
| + | Zipper, SysUtils, Classes, ...; | ||
| + | |||
| + | ... | ||
| + | |||
procedure subZip(strZipAusgabeDatei: string; strListeZuPackenderDateien: TStringList); | procedure subZip(strZipAusgabeDatei: string; strListeZuPackenderDateien: TStringList); | ||
var | var | ||
| Line 27: | Line 41: | ||
end; | end; | ||
end; | end; | ||
| + | |||
| + | ... | ||
| + | |||
</syntaxhighlight> | </syntaxhighlight> | ||
| + | |||
==Dateien entpacken== | ==Dateien entpacken== | ||
| − | <syntaxhighlight> | + | <syntaxhighlight lang=pascal> |
| + | uses | ||
| + | Zipper, SysUtils, Classes, ...; | ||
| + | |||
| + | ... | ||
| + | |||
procedure subUnZip(strZipDatei, strAusgabeOrdner: string); | procedure subUnZip(strZipDatei, strAusgabeOrdner: string); | ||
var | var | ||
| Line 36: | Line 59: | ||
UnZipper := TUnZipper.Create; | UnZipper := TUnZipper.Create; | ||
try | try | ||
| − | // Name der Zip-Datei | + | // Name der Zip-Datei, die entpackt werden soll |
UnZipper.FileName := strZipDatei; | UnZipper.FileName := strZipDatei; | ||
// Name des Ziel-Verzeichnisses | // Name des Ziel-Verzeichnisses | ||
| Line 46: | Line 69: | ||
end; | end; | ||
end; | end; | ||
| + | |||
| + | ... | ||
| + | |||
</syntaxhighlight> | </syntaxhighlight> | ||
| − | |||
| − | |||
| − | |||
| − | |||
Latest revision as of 07:52, 23 February 2020
│
Deutsch (de) │
English (en) │
한국어 (ko) │
polski (pl) │
русский (ru) │
Zurück zu den Zusätzlichen Informationen.
PASZLIB ist eine Umsetzung der in der Programmiersprache C geschriebenen Standard Bibliothek zlib in die Programmiersprache Pascal.
Mit PASZLIB können zip-Dateien erstellt, bearbeitet und extrahiert werden.
Die vorliegende Umsetzung in die Programmiersprache Pascal wurde von Jacques Nomssi Nzali erstellt.
TZipper
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.
Beispiele
Die Klassen TZipper und TUnZipper stellen für das Komprimieren und Dekomprimieren mehrere Methoden als die unten gezeigten Beispiele zur Verfügung.
Dateien packen
uses
Zipper, SysUtils, Classes, ...;
...
procedure subZip(strZipAusgabeDatei: string; strListeZuPackenderDateien: TStringList);
var
OurZipper: TZipper;
begin
OurZipper := TZipper.Create;
try
// Name der Zip-Datei, die erstellt werden soll
OurZipper.FileName := strZipAusgabeDatei;
// Stringliste mit den Dateien, die gepackt werden sollen
OurZipper.Entries.AddFileEntries(strListeZuPackenderDateien);
OurZipper.ZipAllFiles;
finally
FreeAndNil(OurZipper);
end;
end;
...
Dateien entpacken
uses
Zipper, SysUtils, Classes, ...;
...
procedure subUnZip(strZipDatei, strAusgabeOrdner: string);
var
UnZipper: TUnZipper;
begin
UnZipper := TUnZipper.Create;
try
// Name der Zip-Datei, die entpackt werden soll
UnZipper.FileName := strZipDatei;
// Name des Ziel-Verzeichnisses
UnZipper.OutputPath := strAusgabeOrdner;
UnZipper.Examine;
UnZipper.UnZipAllFiles;
finally
FreeAndNil(UnZipper);
end;
end;
...
