[Erledigt] Preview Handler in VCL erzeugt MemoryLeak

[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;

[jaenicke]

Zitat von fs999:

Die Variabel LIStream wird nicht genilt...

Wozu auch?
Der Referenzzähler wird dann eben erst am Ende der Methode dekrementiert, aber das stört doch auch nicht, oder?

Zitat von fs999:

Ich habe aber noch ein Problem, mit BDS 2006 funktioniert es überhaupt nicht, nach eine Minute warten : EOleSystemError : Unspecified Error.

Bei welchem Betriebssystem denn?
Und funktioniert die beiliegende kompilierte Demo vielleicht auch nicht?

[fs999]

Zitat von jaenicke:

Der Referenzzähler wird dann eben erst am Ende der Methode dekrementiert, aber das stört doch auch nicht, oder?

Das hat aber gebracht dass das Programm nicht abstürtzt.

Zitat von jaenicke:

Bei welchem Betriebssystem denn?
Und funktioniert die beiliegende kompilierte Demo vielleicht auch nicht?

-Win7 64bit.
-Die kompilierte Demo benutzt LInitializeWithFile, ich benutze LInitializeWithStream.

Mea culpa, dass hätte ich sagen müssen, ich habe die Streamroutine als erste geswapt...

Delphi-Quellcode:

  if FPreviewHandler.QueryInterface(IInitializeWithStream, LInitializeWithStream) = S_OK then
  begin
      FFileStream := TFileStream.Create(FFileName, fmOpenRead or fmShareDenyNone);
      LIStream := TStreamAdapter.Create(FFileStream, soOwned) as IStream;
      LInitializeWithStream.Initialize(LIStream, STGM_READ);
      LIStream := nil;
  end
  else
  if FPreviewHandler.QueryInterface(IInitializeWithFile, LInitializeWithFile) = S_OK then
    LInitializeWithFile.Initialize(StringToOleStr(FFileName), STGM_READ)
  else

[himitsu]

Vor dem Aufruf von QueryInterface sollte die Interface-Variable unbedingt leer sein. Wenn nicht, dann vorher manuell auf NIL setzen.
Vorallem innerhalb von Schleifen, oder wenn die Variable vorher für was Anderes verwendet wurde.

QueryInterface, bzw. GetInterface sind mit Out-Parametern deklariert, womit die Eingabe "verworfen" wird, unter Ausschluß der Referenzzählung.
Sowas kann auch bei anderen Funktionen vorkommen, also immer schön aufpassen.

Zitat:

Delphi-Quellcode:

function TInterfacedObject.QueryInterface(const IID: TGUID; out Obj): HResult;
begin
  if GetInterface(IID, Obj) then
    Result := 0
  else
    Result := E_NOINTERFACE;
end;

function TObject.GetInterface(const IID: TGUID; out Obj): Boolean;
begin
  Pointer(Obj) := nil;  // <<<<<
  ...
end;

[fs999]

Der Fehler tritt auf der vorige Linie auf :
FPreviewHandler := CreateComObject(LPreviewGUID) as IPreviewHandler;

[idefix2]

Ich hätte gerne den Windows preview Handler, von dem in diesem Thread die Rede ist, in mein Programm eingebunden - unter Delphi 2009 ist aber das Interface IPreviewHandler anscheinend noch nicht definiert (oder muss man da noch etwas extra in die uses-clause aufnehmen?), deshalb kompiliert die Unit nicht.
Gibt es eine Möglichkeit, das auch unter Delphi 2009 zum Laufen zu bringen?