QueryInterface ausschließen

[EWeiss]

Delphi-Quellcode:

TCustomSessionThread = class(TThread)
  //
end;

TSessionThread = class(TCustomSessionThread, IAudioSessionNotification)

der Compiler meckert weil

• QueryInterface
• _AddRef
• _Release

in meiner Class nicht definiert ist.

Hier jedoch geht es auch ohne!

Delphi-Quellcode:

TCustomAudioVolume = class(TWinControl)
  //
end;

TAudioVolume = class(TCustomAudioVolume, IAudioSessionEvents, IMMNotificationClient,
  IAudioSessionNotification, IAudioEndpointVolumeCallback)

Ist doch wenn man vom TThread <> TWinControl mal absieht das gleiche.

Meine Frage also warum ?
Ich möchte diese in der TSessionThread Class nicht hinzufügen wenn es machbar ist.

gruss

[TiGü]

Klicke dich per Strg+Linke Maustaste doch mal durch die Vererbungskette und sage mir, wie die Vorfahren heißen.




Spoiler: TWincontrol -> TControl -> TComponent

TComponent implementiert die von IInterface/IUnknown geforderten Methoden QueryInterface, _AddRef und _Release.

Wenn du direkt schreiben willst

Delphi-Quellcode:

TSessionThread = class(TCustomSessionThread, IAudioSessionNotification)

, dann musst du alle Methoden von IAudioSessionNotification und seinen Vorfahren implementieren, also den "Vertrag" erfüllen.
Es reicht auch als Stub, d.h die Methoden können auch leer sein.

[EWeiss]

Zitat:

TComponent implementiert die von IInterface/IUnknown geforderten Methoden QueryInterface, _AddRef und _Release.

Das erklärt einiges.. Danke.

Zitat:

Es reicht auch als Stub, d.h die Methoden können auch leer sein.

Jo habe ich gemacht nur dann habe ich die Warnungen

Zitat:

[dcc64 Warnung] SessionThread.pas(535): W1035 Rückgabewert der Funktion 'TCustomSessionThread.QueryInterface' könnte undefiniert sein

Muss dann wohl für die Unit die Warnungen ausschalten..

gruss

[TiGü]

Zitat:

Zitat von EWeiss (Beitrag 1417213)

Jo habe ich gemacht nur dann habe ich die Warnungen

Zitat:

[dcc64 Warnung] SessionThread.pas(535): W1035 Rückgabewert der Funktion 'TCustomSessionThread.QueryInterface' könnte undefiniert sein

Muss dann wohl für die Unit die Warnungen ausschalten..

An ein

Delphi-Quellcode:

Result := S_OK

oder

Delphi-Quellcode:

Result := E_NOTIMPL

oder

Delphi-Quellcode:

Result := E_NOINTERFACE

- je nachdem welches Verhalten man implementieren will - hast du nicht gedacht?

[mjustin]

Zitat:

Zitat von TiGü (Beitrag 1417212)

Spoiler: TWincontrol -> TControl -> TComponent

TComponent implementiert die von IInterface/IUnknown geforderten Methoden QueryInterface, _AddRef und _Release.

Ein eventuell interessanter Unterschied:

- TComponent._Release gibt die Instanz nicht frei.
- TInterfacedObject._Release gibt die Instanz frei.

https://stackoverflow.com/questions/...nt-leak-memory

[EWeiss]

Zitat:

je nachdem welches Verhalten man implementieren will - hast du nicht gedacht?

Schon. Aber! Wie der Vorredner erkannt hat wird in dem Fall meine Anwendung nicht mehr beendet.

gruss

[TiGü]

Zitat:

Zitat von EWeiss (Beitrag 1417217)

Zitat:

je nachdem welches Verhalten man implementieren will - hast du nicht gedacht?

Schon. Aber! Wie der Vorredner erkannt hat wird in dem Fall meine Anwendung nicht mehr beendet.

gruss

Weil der Thread noch läuft. :roll:
Entweder implementierst du das Verhalten zum zerstören des Threads im _Release oder du machst es klassisch von außen mit DeinThread.Free, ggf. mit DeinThread.WaitFor und DeinThread.Terminate arbeiten.

[EWeiss]

Zitat:

Weil der Thread noch läuft.

Delphi-Quellcode:

      if Assigned(SessionThread) then
      begin
        SessionThread.EndThread;
        Sleep(100);
        SessionThread.Free;
      end;

Der läuft nicht bzw. wird beendet kann er aber nicht weil mein Thread beim _Released in dem Fall wie getestet E_NOTIMPL zurückgibt
und der RefCounter nicht 0 ist.

Wenn ich die Rückgaben nicht auswerte funktioniert alles.
Aber dann hab ich halt die Warnung.
Muss mal schau'n wie ich das jetzt mache.

EDIT:
Es sollte ja egal sein wo ich die Funktionen implementiere ob in TCustomSessionThread oder TSessionThread dieser erbt ja von TCustomSessionThread.

Delphi-Quellcode:

  TCustomSessionThread = class(TThread)
    function QueryInterface(const IID: TGUID; out Obj): HResult; stdcall;
    function _AddRef: integer; stdcall;
    function _Release: integer; stdcall;
  end;

  TSessionThread = class(TCustomSessionThread, IAudioSessionNotification)

gruss

[TiGü]

Mach mal bitte so:

Delphi-Quellcode:

function TCustomSessionThread._AddRef: Integer;
begin
  Result := -1;
end;

function TCustomSessionThread._Release: Integer;
begin
  Result := -1;
end;

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

Und beim beenden deines Threads:

Delphi-Quellcode:

      if Assigned(SessionThread) then
      begin
        SessionThread.Terminate;
        SessionThread.WaitFor;
        SessionThread.Free;
      end;

[EWeiss]

Danke!
So scheint es zu funktionieren.

gruss