Difference between revisions of "paszlib/de"

From Free Pascal wiki
Jump to navigationJump to search
m
Line 10: Line 10:
 
=Beispiele=
 
=Beispiele=
 
==Dateien packen==
 
==Dateien packen==
Die Klasse TZipper stellt für das Komprimieren mehrere Methoden als das gezeigte Beispiel wird zur Verfügung.<br>
 
 
<syntaxhighlight>
 
<syntaxhighlight>
 
procedure subZip(strZipAusgabeDatei: string; strListeZuPackenderDateien: TStringList);
 
procedure subZip(strZipAusgabeDatei: string; strListeZuPackenderDateien: TStringList);
Line 28: Line 27:
 
end;
 
end;
 
</syntaxhighlight>
 
</syntaxhighlight>
 +
 
==Dateien entpacken==
 
==Dateien entpacken==
 
<syntaxhighlight>
 
<syntaxhighlight>

Revision as of 10:10, 7 May 2013

Deutsch (de) English (en) 한국어 (ko) polski (pl) русский (ru)


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

Dateien packen

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

procedure subUnZip(strZipDatei, strAusgabeOrdner: string);
var
  UnZipper: TUnZipper;
begin
  UnZipper := TUnZipper.Create;
  try
    // Name der Zip-Datei
    UnZipper.FileName := strZipDatei;
    // Name des Ziel-Verzeichnisses
    UnZipper.OutputPath := strAusgabeOrdner;
    UnZipper.Examine;
    UnZipper.UnZipAllFiles;
  finally
    FreeAndNil(UnZipper);
  end;
end;



--Olaf 09:07, 7 May 2013 (UTC)