"Entpacker" erstellen (zip.datei)

[-Phantom-]

Hey Leute,

Ich versuche derzeit einen kleinen "Entpacker" zu programmieren.
Ich schaffe es eine .zip datei zu erstellen die auch Größe hat, aber ich kann die .zip Datei nicht mit einem "richtigen" Entpacker entpacken. Ich benutze D7 und die Zlib Unit.
So packe ich zusammen

Delphi-Quellcode:

procedure Compress(InputFileName, OutputFileName: string);
var InputStream, OutputStream: TFileStream; 
  CompressionStream: ZLib.TCompressionStream;
begin
inputstream := Tfilestream.Create(InputFileName, fmOpenRead);
 try 
    OutputStream:=TFileStream.Create(OutputFileName, fmCreate); 
    try 
      CompressionStream:=TCompressionStream.Create(clMax, OutputStream); 
      try 
        CompressionStream.CopyFrom(InputStream, InputStream.Size); 
      finally 
        CompressionStream.Free; 
      end;
    finally 
      OutputStream.Free; 
    end; 
  finally 
    InputStream.Free; 
  end;
  end;
procedure Decompress(InputFileName, OutputFileName: string); 
var InputStream, OutputStream: TFileStream; 
  DeCompressionStream: ZLib.TDeCompressionStream; 
  Buf: array[0..4095] of Byte;
  Count: Integer; 
begin 
  InputStream:=TFileStream.Create(InputFileName, fmOpenRead); 
  try 
    OutputStream:=TFileStream.Create(OutputFileName, fmCreate); 
    try 
      DecompressionStream := TDecompressionStream.Create(InputStream); 
      try 
        while true do 
        begin 
          Count := DecompressionStream.Read(Buf[0], SizeOf(Buf));
          if Count = 0 then 
            break 
          else 
            OutputStream.Write(Buf[0], Count); 
        end; 
      finally 
        DecompressionStream.Free; 
      end; 
    finally 
      OutputStream.Free; 
    end;
  finally 
    InputStream.Free; 
  end; 
end;
// erst mal nur packen
procedure TForm1.sButton1Click(Sender: TObject);
begin
savedialog1.Execute;
speicher := savedialog1.FileName;
Compress(pfadn,speicher+'.zip');// pfadn = die Dateien in der Listbox , Speicher = der Speicherort wo die .zip Datei erstellt werden soll.
end;

Das Problem ist:
Wenn ich die .zip Datei entpacken will kommt die Fehlermeldung von meinem Entpacker
"Error this file Format cannot be extracted"

[himitsu]

TCompressionStream komprimiert nur, aber es erstellt den nötigen ZIP-File-Header nicht, welcher zum Zip-Dateiformat gehört.

Wenn ich mich nicht irre, so wurde dieses "Problem" schon ein-/zweimal in anderen Threads behandelt.

[-Phantom-]

Wie erstelle ich den "Header". Was ist das überhaupt

[himitsu]

http://de.wikipedia.org/wiki/ZIP_%28Dateiformat%29

Der "Header" beschreibt was wo und in welchem Format in der Datei liegt.

TCompressionStream erstellt aber nur die Daten, also es komprimiert nur den Dateiinhalt.
Die Daten/Informationen über Dateiname, sonstige Informationen, wie Dateigröße, Datum usw. und vorallem wo in der Datei der komprierte Dateiinhalt liegt, daß müßtest du selber erstellen.

Oder du vberwendest eine ZIP-Komponente, welche diesen Header verwaltet.
Mir fällt zwar grad kein Komponentenname ein, aber dieses sollte sich in den anderen ZIP-Threads finden lassen > zip oder zip komprimieren > http://www.delphipraxis.net/internal...p+komprimieren

[-Phantom-]

Oke... Also so wie hier
http://www.delphipraxis.net/internal...ct.php?t=42047 ?

[Luckie]

Bitte gib deinem Beitrag einen aussagekräftigen Titel. Der jetzige Titel lässt nicht erkennen, um was für ein Problem oder Frage es sich handelt. Um den Titel zu ändern, editiere einfach deinen ersten Beitrag. Damit erleichterst du das Auffinden deines Beitrages mit der Suche und ersparst anderen Mitglieder ein unnötiges Öffnen deines Beitrages.

[DeddyH]

Nichtsdestotrotz werfe ich mal wieder Abbrevia in den Raum.

[-Phantom-]

Das scheit ja schon mal nicht schlecht zu sein... muss nur noch lernen wie man damit umgeht..

[scrat1979]

ich nehme immer ZipForge von ComponentAce

[-Phantom-]

Ich habe es nun mit der Abbrevia Komponente gemacht. So ich schaffe es nun ein .zip Datei zu erstellen. Aber wie bekomme ich mehrere Dateien in die .zip ? ( Soll ich neues Thema aufmachen?)