[Erledigt] Preview Handler in VCL erzeugt MemoryLeak

[Aviator]

Hallo DPler.
Da ich mit meinem Programm sehr viele Dokumente abspeichere und danach natürlich auch wieder anzeigen lassen möchte, habe ich mir überlegt, einen Preview Handler in meinem Projekt mit einzubinden. Ich möchte also Word, Excel, PDF, ... Dateien in meinem Programm per Vorschau anzeigen.

Den Quellcode, wie das denn funktionieren sollte, habe ich von hier. Diese Unit funktioniert auch und macht auch das was es soll.

Ich habe mir zum Testen das Beispielprojekt von dieser Seite heruntergeladen und ausprobiert. Da ich bei meinem neuesten Projekt aber peinlichst darauf achte, dass ich keine Memory Leaks erzeuge, habe ich auch hier nachgeschaut, ob alles sauber wieder freigegeben wird und keine Leaks entstehen.

Also habe ich die Zeile ReportMemoryLeaksOnShutdown := True; in das Beispiel Projekt eingebunden, eine Vorschau geladen und das Programm wieder geschlossen. Ich dachte schon "na super - alles funktioniert wie es soll also kann ich es bedenkenlos benutzen". 10 Sekunden nach der Beendigung des Programms kam dann allerdings die Meldung, dass doch ein MemoryLeak erkannt wurde und das Programm sogar nicht mehr funktionieren würde. (Im TaskManager wird der Prozess auch nach der Beendigung des Programmes angezeigt. Auch wenn ich die Zeile ReportMemoryLeaksOnShutdown := True; weglasse.)

In der Meldung steht, dass eine Instanz des TStreamAdapter nicht freigegeben wurde.

Nun meine Frage: Wie bekomme ich diesen "Fehler" weg bzw. wie lässt sich das umgehen? Ich bin für jede Hilfe dankbar die ich hier bekomme.

Im Anhang noch die Fehlermeldung.

[Sir Rufo]

In Zeile 42 ist der Fehler

[himitsu]

Zitat von Sir Rufo:

In Zeile 42 ist der Fehler

Pro 7?

[Sir Rufo]

Zitat von himitsu:

Zitat von Sir Rufo:

In Zeile 42 ist der Fehler

Pro 7?

Passt gut gerade

[jaenicke]

Er hat den Quelltext doch verlinkt...

Das passiert auch mit der Demo schon. Aber ist wohl zu viel verlangt das auszuprobieren.

In dem Quelltext sind leider zwei gravierende Fehler drin. Der wichtigste ist, dass der TFileStream freigegeben wird, obwohl der TStreamAdapter mit soOwned erzeugt wird. Dadurch gibt es einen Fehler beim Freigeben (logisch) und daher rührt das Speicherleck.

Der zweite wichtige Fehler ist, dass dort der Registry-Schlüssel mit LRegistry.OpenKey(LKey, True); frecherweise einfach erzeugt wird, statt ihn nur zu versuchen zu öffnen und den Rückgabewert auszuwerten.
Richtig daher:

Delphi-Quellcode:

    if LRegistry.OpenKey(LKey, False) then
    begin
      Result := LRegistry.ReadString('');
      LRegistry.CloseKey;
    end
    else
      Result := '';

[Aviator]

Danke Jaenicke, ich versuche mal das Problem mit deinen genannten Hinweisen zu lösen.

@Sir Rufo: Bitte den Beitrag das nächste Mal ganz durchlesen und dann antworten. Danke.