[Erledigt] Preview Handler in VCL erzeugt MemoryLeak

[Aviator]

@Jeanicke: Habe das Problem denke ich mit deinen Stichpunkten lösen können, indem ich 1. deinen Teil mit dem Registry Code ersetzt habe und 2. im OnDestroy die Zeilen

Delphi-Quellcode:

if FFileStream<>nil then
  FFileStream.Free;

entfernt habe. Ob das allerdings so richtig ist, weiß ich nicht. Wäre nett, wenn du mir sagen könntest ob das so stimmt. Der Memory Leak kommt zumindest nicht mehr.

Ein kleines weiteres Problem (was allerdings nicht so super tragisch ist aber ich gerne gelöst hätte) ist, dass das Programm beim Beenden noch ca. 10 Sekunden lang offen bleibt. Kennt jemand den Grund dafür und wie man das möglicherweise beheben kann, oder ist es einfach so (was ich mit nicht vorstellen kann) ?

Zitat:

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

Wenn du damit mich meintest: Oben schrieb ich bereits, dass ich das Beispielprojekt geladen und getestet habe und ich auch deshalb auf den Fehler aufmerksam geworden bin.

[jaenicke]

Zitat von Aviator:

Zitat:

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

Wenn du damit mich meintest: Oben schrieb ich bereits, dass ich das Beispielprojekt geladen und getestet habe und ich auch deshalb auf den Fehler aufmerksam geworden bin.

Nein, ich meinte Sir Rufo, da ich davon ausgegangen bin, dass er den Link gesehen hatte, aber trotzdem nicht erst einmal dort nachgeschaut und ausprobiert hat. Das kommt hier in der DP in letzter Zeit leider häufiger vor, dass ähnliche Kurzbeiträge druntergehauen werden obwohl im Beitrag eigentlich alles drin ist, es nachzuvollziehen aber vielleicht 1-2 Minuten mehr erfordert hätte.
(Hauptsache Beitragszähler erhöhen?)

Zitat von Aviator:

@Jeanicke: Habe das Problem denke ich mit deinen Stichpunkten lösen können, indem ich 1. deinen Teil mit dem Registry Code ersetzt habe und 2. im OnDestroy die Zeilen

Im LoadPreviewHandler muss die Freigabe des Streams auch noch raus.

Bei mir passiert das mit der Wartezeit nicht mehr, das hatte ich anfangs aber auch. Ich glaube das liegt am eingebetten Programm. Das müsste man vielleicht noch genauer untersuchen. Da das ganze über COM läuft, vermute ich aber, dass da noch auf etwas gewartet wird.

[Aviator]

Hi und danke für die Antwort. Die Dauer des Beendens ist zwar dennoch vorhanden, aber es kommen keine Fehler (Memory Leaks) mehr. Leider kenne ich mich mit COM nicht aus und kann daher auch nicht nachvollziehen, wieso es so lange dauert bis das Programm beendet ist. Aber dennoch danke für einen möglichen Hinweis an was es liegen könnte. Beim Debuggen wird auf jeden Fall im OnDestroy beider Klassen sehr lange gewartet. Leider kann ich nirgends irgendwie tiefer irgendwo debuggen um den Fehler zu finden.
Aber dieses Problem will ich mal etwas nach hinten schieben, es sei denn es kennt jemand eine Lösung bzw. einen Anhaltspunkt an was es liegen könnte.

[jaenicke]

Was ich noch vergessen habe:
Statt OpenKey sollte in GetPreviewHandlerCLSID noch OpenKeyReadOnly rein, damit es auch ohne Adminrechte funktioniert.

Wenn es beim Beenden hängt, hängt es bei mir in der Preview-DLL beim Unload wie man im Stacktrace ja sieht:
UnloadStack.png
Insofern wird sich da wohl nicht viel machen lassen.

[Aviator]

Super. Danke das du nach einer Lösung gesucht hast.

Die Zeile habe ich von mir aus schon mit OpenKeyReadOnly ersetzt. Trotzdem danke für den Hinweis.

[Furtbichler]

Zitat von jaenicke:

Nein, ich meinte Sir Rufo, da ich davon ausgegangen bin, dass er den Link gesehen hatte, aber trotzdem nicht erst einmal dort nachgeschaut und ausprobiert hat. Das kommt hier in der DP in letzter Zeit leider häufiger vor, dass ähnliche Kurzbeiträge druntergehauen werden obwohl im Beitrag eigentlich alles drin ist, es nachzuvollziehen aber vielleicht 1-2 Minuten mehr erfordert hätte.
(Hauptsache Beitragszähler erhöhen?)

Na, wenigstens haben wir hier ein echtes Soziophob, aka 'sas Jänicke', das wohl sonst nichts zu tun hat, und die 1-2 Minuten verschwendet, um einem lieblos dahingerotzen Link zu folgen, sich die Quellen runterzuladen, die Fehler zu finden und zu posten und das in gerade 1-2 Minuten.

Respekt Wastl. 1-2 Minuten könnten dezent untertrieben sein. Außer, Du hast den Fluxkompensator und Dimensionsfalten.

Frage: Wieso musst Du auf anderen herumtrampeln, um dich selbst zu erhöhen? Was fehlt Dir? Ach, ich weiß: Fängt mit 'S' an und hört mit 'wuststein' auf. Dazwischen ist noch ein 'elbstbe' Und: Ja, es ist nicht das erste mal, daß Du so unangenehm auffällst..

[jaenicke]

Zitat von Furtbichler:

1-2 Minuten könnten dezent untertrieben sein. Außer, Du hast den Fluxkompensator und Dimensionsfalten.

In ca. 1 Minute hatte ich gesehen, dass die Demo auch dieses Problem hat. Da ist ja auch nix weiter dabei.

Bis ich den Fehler an sich gesehen hatte waren es noch einmal 5-10 Minuten, aber davon hatte ich ja auch nicht gesprochen.

[mkinzler]

Zitat:

Frage: Wieso musst Du auf anderen herumtrampeln, um dich selbst zu erhöhen? Was fehlt Dir? Ach, ich weiß: Fängt mit 'S' an und hört mit 'wuststein' auf. Dazwischen ist noch ein 'elbstbe' Und: Ja, es ist nicht das erste mal, daß Du so unangenehm auffällst..

Diese Frage solltest Du Dir auch mal stellen.

[Daniel]

Zitat von Furtbichler:

Frage: Wieso musst Du auf anderen herumtrampeln, um dich selbst zu erhöhen? Was fehlt Dir? Ach, ich weiß: Fängt mit 'S' an und hört mit 'wuststein' auf. Dazwischen ist noch ein 'elbstbe' Und: Ja, es ist nicht das erste mal, daß Du so unangenehm auffällst..

Da hatte wohl jemand einen sehr schlechten Abend.
Und es ist auch keineswegs das erste mal, dass Du mit solchen Beiträgen auffällst.

Ich wiederhole Triviales: Es steht jedem frei, auf ein Thema auch mal nicht zu antworten - insbesondere dann, wenn man nichts Konstruktives beizutragen hat.

[fs999]

Die Variabel LIStream wird nicht genilt...

Nach
LInitializeWithStream.Initialize(LIStream, STGM_READ); ,
einfach
LIStream := nil; dahinter.

Ich habe aber noch ein Problem, mit BDS 2006 funktioniert es überhaupt nicht, nach eine Minute warten : EOleSystemError : Unspecified Error.
Und noch schlimmer wenn ich das Programm ohne Delphi starte, bekomme ich nach 5 Sekunden die Windowsmeldung dass das Programm abgestürzt ist...

Habe die fehlende Units PropSys and StructuredQueryCondition in das Appliverzeichnis kopiert und IPreviewInterface mit ein paar Konstanten eingefügt.

Der Fehler ist auf diese Line in LoadPreviewHandler : FPreviewHandler := CreateComObject(LPreviewGUID) as IPreviewHandler;