hatte mich auch versehen es war die zeile danach:)

Wenn du die Zeile danach rausnimmst, kommt zwar kein Fehler, aber dummerweise ist dann auch nix im Dest-Stream drin, was man in ein Memo auslesen könnte.

aber wir wissen jetzt wo der fehler liegt in deiner funktion:)
und viliecht kann ihn ja jemmand behben:)

Ungetestet, aber sollte klappen:



In der anderen Prozedur hat es doch auch geklappt

falschen beitrag erwischt:)

tommie-lie hat folgendes geschrieben:

markieren Delphi-Quelltext     1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: procedure TForm1.Button2Click(Sender: TObject); var   DecompressionStream: TDecompressionStream;   Source, Dest: TMemoryStream; begin   Source := TMemoryStream.Create;   Source.LoadFromFile('E:\temp\dest.txt');   Dest := TMemoryStream.Create;   with TDecompressionStream.Create(Source) do   try     CopyFrom(DecompressionStream);   finally     Free;   Dest.SaveToFile('E:\temp\entpackt.txt');   Dest.Free;   Source.Free; end;

Ok, dann mal eine Frage... was ist denn deiner Meinung nach der Inhalt von DecompressionStream? Außerdem weist man bei der TDecompressionKlasse den Inhalt schon beim Create zu (Source). Und noch was: Dest wurde schon wieder kein Inhalt zugewiesen.
Wahrlich ungetestet und es funktioniert nicht

das komische es nur das onChange bei der memoe komponente garnicht ausgelöst wird.

Ich hab' jetzt mal ein wenig rumprobiert, ich krieg's auch nicht hin.
Ich habe eine BZip2-Unit, bei der klappt es (zwar nicht so, wie ich gepostet hab, aber immerhin ), und der Autor dieser Unit hat sie der zLib nachempfunden, also sollte es mit der eigentlich genauso klappen, tut es aber seltsamerweise nicht...
Ich würde sagen, es wäre einfacher die BZip2 zu benutzen (Torry.net, da habe ich sie her, heißt auch BZip2). Mit Filestreams klappt es bei der zLib nämlich auch nicht...

könntes du sie mir nocheinmal senden tommie-lie ?
dann mache ich es halt mit bzip2 hauptsache sie sind kleiner als vorhrer:)

danke