Abbrevia Unzipper extract from Stream to Stream - Gelöst

[Perlsau]

Das ist für mich selbstverständlich, habe ich doch selbst des öfteren User kritisiert, die genau das nicht tun, sondern sich mit einem lapidaren "ist gelöst" verabschieden und auf Anfragen, wie denn nun die Lösung aussieht, nicht mehr antworten.

Falls deine Antwort ironisch gemeint war, weil ich den korrigierten Code heute morgen nicht mehr gepostet hatte (ich hatte einen dringenden Termin mit meinem Bett), hole ich das jetzt sofort gerne nach:

Delphi-Quellcode:

Function TFormDown.ExtractLogFile(Const FileName : String; Const Stream : TMemoryStream) : Boolean;
Var
  UnZip : TAbUnZipper;
  S     : TStream;
begin
  Result := False;
  If Stream.Size = 0 Then
     GLD.Fehlertext := 'Fehler beim Entpacken der Log-Datei: "' + FileName + '": Stream ist leer!'
  Else
  Begin
    UnZip             := TAbUnZipper.Create(Self);
    S                 := TMemoryStream.Create;
    Unzip.ForceType   := True; // Diese Zeile hat das Problem gelöst
    Unzip.ArchiveType := atGzip;
    Try
      Stream.Position := 0;
      If S.CopyFrom(Stream,Stream.Size) > 0 Then
      Begin
        Stream.Clear;
        S.Position := 0;
        Try
          Unzip.Stream := S;
          Unzip.ExtractToStream(Unzip.Items[0].FileName,Stream);
          Result := True;
        Except
          On E:Exception Do
             GLD.Fehlertext := 'Fehler beim Entpacken des Streams "' + FileName + '": ' + e.Message;
        End;
      End Else
        GLD.Fehlertext := 'Fehler beim Koperen des Streams "' + FileName + '": Stream ist leer!';
    Finally
      S.Free;
      Unzip.Free;
    End;
  End;
end;

Man könnte hier auch die Funktion den Stream zurückliefern lassen, aber ich wollte unbedingt eine Meldung darüber, ob die Methode erfolgreich war.

Das war's jetzt von meiner Seite ...