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

zusammenfalten · markieren

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"

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.

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

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

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

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.

Nichtsdestotrotz werfe ich mal wieder Abbrevia in den Raum.

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

ich nehme immer ZipForge von ComponentAce

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?)