QueryInterface ausschließen

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