QueryInterface und RefCount

[Tonic1024]

Hallo Forum...

Ich versuche grad einen ca 900 Zeilen langen C++ Code nach Delphi zu übersetzen. Meinem ersten Gefühl nach ist der ganze folgende Code eigentlich nicht zwingend notwendig. Jedoch mag der Code insgesammt nicht funktionieren also versuche ich jetzt ob es damit vielleicht doch eine tiefere Bewandtnis hat. Dort ist Folgendes zu finden:

Code:

class IUnknownImpl: IUnknown  {
public:
  IUnknownImpl(GUID guid):_guid(guid)
  {
  };

  HRESULT __stdcall QueryInterface(REFIID riid , void **ppObj)
  {
     if (riid == IID_IUnknown||riid == _guid)
      {
      *ppObj = this; 
      AddRef() ;
      return S_OK;
      }
     *ppObj = NULL ;
     return E_NOINTERFACE ;
  }
  
  ULONG __stdcall AddRef () { return InterlockedIncrement(&m_nRefCount) ; }
  ULONG __stdcall Release () {
   long nRefCount=0;
   nRefCount=InterlockedDecrement(&m_nRefCount) ;
   if (nRefCount == 0) delete this;
   return nRefCount;
  }

private:
    long m_nRefCount;   //for managing the reference count
   GUID _guid;
};

Mein Lösungsansatz sieht bisher so aus, jedoch weiß ich beim besten Willen nicht was der Code eigentlich tut...

Delphi-Quellcode:

type
  TIAVInterface = class(TInterfacedObject)
    function QueryInterface(const IID: TGUID; out Obj): HResult; stdcall;
    function _AddRef: Integer; stdcall;
    function _Release: Integer; stdcall;
  private
    FGUID: TGUID;
  public
    constructor create(GUID: TGUID);
  end;

[..]

constructor TIAVInterface.create(GUID: TGUID);
begin
  inherited create();
  FGUID:=GUID;
end;

function TIAVInterface.QueryInterface(const IID: TGUID; out Obj): HResult;
begin
  if (IID = FGUID) then  // OR Teil ergänzen
  begin
    Obj:=Self;  // Operator ist auf diesen Operandentyp nicht anwendbar
    _AddRef;
    Result:=S_OK;
  end
  else
  begin
    Obj:=nil;
    Result:= E_NOINTERFACE;
  end;
end;

function TIAVInterface._AddRef: Integer;
begin
  Result:=InterlockedIncrement(FRefCount);
end;

function TIAVInterface._Release: Integer;
begin
  Result:=InterlockedDecrement(FRefCount);
  if Result = 0 then
    Self.Free;
end;

In Query Interface läuft er auf einen Fehler. Bin ich mit meinem Ansatz wenigstens dicht dran?

Toni

[himitsu]

Wenn du von TInterfacedObject ableitest, dann ist die Referenzzählung bereits implementiert und du mußt das nicht selber einbauen, was IInterface als "Grundfunktion" benötigt.

Entweder du implementierst QueryInterface, _AddRef und _Release selber,
oder du leitest von TInterfacedObject, TAggregatedObject, TInterfacedPersistent oder TComponent ab und erbst deren Verhaltensweisen.

Bin mir nicht ganz sicher, aber wenn ich das mit der "GUID" so richtig sehe, dann von TObject ableiten und selber implementieren,
oder vielleicht könnte es in Richtung TAggregatedObject gehen.

Also selber implementieren und da dann
IInterface(Obj) := Self; oder IInterface(Obj) := Self as IInterface; oder irgendwas mit Supports [edit] schau mal in TObject.GetInterface , wie Emba es dort gemacht hat, um aus "Self" einen Interface-Zeiger zu basteln
und
IInterface(Obj) := nil;

[Tonic1024]

Okay, also war mein erster Gedanke doch gar nicht so verkehrt...

Um ganz ehrlich zu sein. Was bei der Übersetzung dort von mir erwartet wird ist völliges Neuland für mich. Ich bin mir auch nicht sicher ob ich die Zusammenhänge überhaupt richtig verstanden hab. Könnte es helfen wenn ich den kompletten Code (nur die Interface Implementation) mal hier hoch lade?

Es geht darum managed code aus einer DLL auszuführen. Der Hersteller hat dafür ein C++ Beispiel geschickt, dass, unter VS kompiliert, auch soweit kommt bis es die (nicht vorhandene) MS-SQL Datenbank nicht finden kann. An dieser Stelle will ich mit Delphi auf unsere vorhandene FirebirdDB verweisen.

[himitsu]

Hatte oben noch bissl was geändert ... mit so "dynamischen" GUIDs kann Delphi standardmäßig halt nicht umgehen,
da dort normaler Weise alles über die statischen Interface-Tabellen in der RTTI läuft.

Du könntest es vielleicht so machen, dass es intern einfach über den Zeiger vom IInterface läuft
und leitest im QueryInterface dann bei der GUID es auf IInterface um, für die Berechnung des nötigen Interfacezeigers im QueryInterface.

In QueryInterface muß/sollte aber unbedingt auch IInterface {00000000-0000-0000-C000-000000000046} implementiert sein, denn ich vermute, dass es sonst knallt, wenn jemand dieses Interface abfragt, welches Delphi fast überall als Grundinterface "verlangt".
Bzw. implementiere es als ein "normales" Interface mit "statischer" GUID und leite es von der dynamischen GUID auf diese Statische um, falls überhaupt eine dynamische GUID nötig ist und man es nicht gleich Statisch implementieren kann.
nil+E_NOINTERFACE wäre für IInterface vermutlich bissl ungeschickt.



Für genauere Dinge hab ich im Moment aber auch erstmal keine Zeit.

[Blup]

Delphi-Quellcode:

Pointer(Obj) := Self;
...

Ich glaube aber nicht das dynamische GUID hier überhaupt nötig sind.
Eine Ableitung von TInterfacedObject sollte für die Basisklasse genügen.
Für die Kompatibilität zu COM-Objekten sollte IUnknown unterstütz, bzw. die anderen Interfaces sollten davon abgeleitet werden.

[Tonic1024]

Zitat von Blup:

Ich glaube aber nicht das dynamische GUID hier überhaupt nötig sind.
Eine Ableitung von TInterfacedObject sollte für die Basisklasse genügen.
Für die Kompatibilität zu COM-Objekten sollte IUnknown unterstütz, bzw. die anderen Interfaces sollten davon abgeleitet werden.

Das ist auch der Ansatz, den ich bisher verfolgte.

Delphi-Quellcode:

type
  TIAVInterface = class(TInterfacedObject)
    function QueryInterface(const IID: TGUID; out Obj): HResult; stdcall;
    function _AddRef: Integer; stdcall;
    function _Release: Integer; stdcall;
  private
    FGUID: TGUID;
  public
    constructor create(GUID: TGUID);
  end;

type
  ICientContextHolder = interface(IInterface)
  ['{00000000-0000-0000-0000-000000001112}']
  end;
  PClientContextHolder = ^TClientContextHolder;
  TClientContextHolder = class(TInterfacedObject, ICientContextHolder)
  private
    FVin: LPWSTR;
    FVinKnown: BOOL;
  public
    constructor Create();
    function GetSerialNumber(AInstance: PClientContextHolder): LPWSTR; virtual; stdcall;
    function GetLicencePlate(AInstance: PClientContextHolder): LPWSTR; virtual; stdcall;
[..]
  end;

Ist euch zufällig die externe Exception E0434F4D bekannt? Das ist nämlich die Reaktion der DLL auf meine Klasse. Die Ergebnisse bei google sind leider recht vielfältig.

Toni

[himitsu]

Dieser "komische" Parameter ist vermuitlich das "implizite" SELF im Delphi.

Delphi-Quellcode:

type
  ICientContextHolder = interface(IInterface)
    ['{00000000-0000-0000-0000-000000001112}']
    function GetSerialNumber: LPWSTR; stdcall;
    function GetLicencePlate: LPWSTR; stdcall;
  end;

  TClientContextHolder = class(TInterfacedObject, ICientContextHolder)
  private
    FVin: LPWSTR;
    FVinKnown: BOOL;
  public
    constructor Create;
    function GetSerialNumber: LPWSTR; stdcall;
    function GetLicencePlate: LPWSTR; stdcall;
[..]
  end;

Wie ist das mit dem Rückgabewert deiner Implmentationen?
Also ich meine vorallem die Speicherverwaltung des PWideChar, damit das auch lange genug "nach" dem Aufruf der Methoden immernoch "lebt".

Zitat von Microsoft:

0xE0434F4D (-532459699) is a generic COM exception. This is caused by a failure in the managed patch wrapper.

Also z.B. bei einer falschen Methoden-Signatur.

[Blup]

ICientContextHolder = interface(IUnknown) Ansonsten wie Himitsu bereits vorgeschlagen.

[Tonic1024]

Zitat von Blup:

ICientContextHolder = interface(IUnknown) Ansonsten wie Himitsu bereits vorgeschlagen.

Ob das wirklich nen Unterschied macht?

Zitat von System.pas:

IUnknown = IInterface;

Himitsus Vorschlag werde ich morgen früh direkt mal ausprobieren. Jetzt mach ich erst mal Schluss... Für heut bin ich mit den Nerven zu Fuß...

[Blup]

IUnknown weist den Compiler an, das Interface kompatipel mit COM-Objekten zu erzeugen.
Hatte ich weiter oben schon geschrieben. Ob das hier einen Unterschied macht weis ich nicht.
Aber da du eine COM-Exception bekommst, besteht eine gewisse Wahrscheinlichkeit...