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 ...