Difference between revisions of "paszlib/de"
From Free Pascal wiki
Jump to navigationJump to searchm |
m (Fixed syntax highlighting; removed categories included in template) |
||
| Line 1: | Line 1: | ||
{{paszlib}} | {{paszlib}} | ||
| − | + | ||
| − | Zurück zu den [[Additional information/de|Zusätzlichen Informationen]]. | + | |
| − | + | 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, bearbeitet und extrahiert werden.<br> | Mit PASZLIB können zip-Dateien erstellt, bearbeitet und extrahiert werden.<br> | ||
Die vorliegende Umsetzung in die Programmiersprache Pascal wurde von Jacques Nomssi Nzali erstellt. | 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. | + | 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 | uses | ||
Zipper, SysUtils, Classes, ...; | Zipper, SysUtils, Classes, ...; | ||
| Line 40: | Line 47: | ||
==Dateien entpacken== | ==Dateien entpacken== | ||
| − | <syntaxhighlight> | + | <syntaxhighlight lang=pascal> |
uses | uses | ||
Zipper, SysUtils, Classes, ...; | Zipper, SysUtils, Classes, ...; | ||
| Line 66: | Line 73: | ||
</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;
...
