Hallo,

ich suche nach einem Tutorial oder ein Tipp wie ich ein Interface (IUnknown) aus einer in C geschriebenen DLL laden kann.

Mein Ansatz sieht so aus:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm3.Button1Click(Sender: TObject);
var
   DLLHandle: HMODULE;
   APointer : Pointer;
begin
  DLLHandle := LoadLibrary('DavidClientAddin.dll');
  memo1.Lines.Add('DLLHandle: ' + IntToStr(DLLHandle));
  APointer := GetProcAddress(DLLHandle, 'IDavidClientAddin');

  try
    if assigned(APointer) then begin
      memo1.Lines.Add('Test1. Funzt!')
    end else
      memo1.Lines.Add('Test1. Funzt NET!');
  except on e:Exception do
    WriteLn(Output,e.Message);
  end;
  if DLLHandle <> 0 then FreeLibrary(DLLHandle);
end;

Leider ist APointer immer nil.

Ich habe auch schon mit "supports" rumexperimentiert. Nur muss dazu die DLL registriert sein.
Die DLL lässt sich aber nicht registrieren. Eigentlich soll die DLL auch nicht registriert werden.
Ich möchte nur auf die drei Funktionen im Interface zugreifen.

Enthält denn die DLL keine Funktion, die Dir die Instanz zurückliefert? IDavidClientAddin dürfte ja die Bezeichnung des Interfaces sein, GetProcAddress müsstest Du also auf den Namen der angesprochenen Funktion loslassen.

zusammenfalten · markieren

Delphi-Quellcode:

type
  TDLLFunktion = function: IDavidClientAddin; stdcall;
var
  MyFunc: TDLLFunktion;
  DLLHandle: hModule;
  Intf: IDavidClientAddin;
begin
  DLLHandle := LoadLibrary('DavidClientAddin.dll');
  if DLLHandle <> 0 then
    try
      MyFunc := GetProcAddress(DLLHandle, 'GetInstanz' {oder wie sie auch heißen mag});
      if Assigned(MyFunc) then
        begin
          Intf := MyFunc;
          (* Hier mit dem Interface arbeiten *)
        end;
    finally
      FreeLibrary(DLLHandle);
    end;

Aus dem Kopf und ungetestet.

Danke für die schnelle Antwort.

Wenn ich so direkt an die Funktionen komme dann ist aktuell mein Problem die Deklaration der TDLLFunktion.

Ich habe zu der DLL eine *.h und eine *.c Datei. Ich vermute das ist der Quellcode der DLL.

Hier ein Aiszug:

markieren

Code:

/* interface IDavidClientAddin */
/* [object][nonextensible][uuid] */ 


DEFINE_GUID(IID_IDavidClientAddin,0xC7255970,0xEB0B,0x42ef,0x86,0xD0,0xC3,0x1F,0x6D,0x34,0x4D,0x03);

#if defined(__cplusplus) && !defined(CINTERFACE)
   
    MIDL_INTERFACE("C7255970-EB0B-42ef-86D0-C31F6D344D03")
    IDavidClientAddin : public IUnknown
    {
    public:
        virtual HRESULT STDMETHODCALLTYPE Startup( 
            /* [in] */ IDispatch *pInfoCenter) = 0;
       
        virtual HRESULT STDMETHODCALLTYPE Initialize( 
            /* [in] */ IDispatch *pInfoCenter,
            /* [in] */ VARIANT vKey) = 0;
       
        virtual HRESULT STDMETHODCALLTYPE Shutdown( void) = 0;
       
    };
   
#else    /* C style interface */

    typedef struct IDavidClientAddinVtbl
    {
        BEGIN_INTERFACE
       
        HRESULT ( STDMETHODCALLTYPE *QueryInterface )( 
            IDavidClientAddin * This,
            /* [in] */ REFIID riid,
            /* [annotation][iid_is][out] */ 
            __RPC__deref_out void **ppvObject);
       
        ULONG ( STDMETHODCALLTYPE *AddRef )( 
            IDavidClientAddin * This);
       
        ULONG ( STDMETHODCALLTYPE *Release )( 
            IDavidClientAddin * This);
       
        HRESULT ( STDMETHODCALLTYPE *Startup )( 
            IDavidClientAddin * This,
            /* [in] */ IDispatch *pInfoCenter);
       
        HRESULT ( STDMETHODCALLTYPE *Initialize )( 
            IDavidClientAddin * This,
            /* [in] */ IDispatch *pInfoCenter,
            /* [in] */ VARIANT vKey);
       
        HRESULT ( STDMETHODCALLTYPE *Shutdown )( 
            IDavidClientAddin * This);
       
        END_INTERFACE
    } IDavidClientAddinVtbl;

    interface IDavidClientAddin
    {
        CONST_VTBL struct IDavidClientAddinVtbl *lpVtbl;
    };

In meine Delphi client müsste das dann so aussehen:

markieren

Delphi-Quellcode:

  IDavidClientAddin = interface
    ['{C7255970-EB0B-42ef-86D0-C31F6D344D03}']
    procedure Startup(pInfoCenter: IDispatch); stdcall;
    procedure Initialize(pInfoCenter: IDispatch; vKey: Variant); stdcall;
    procedure Shutdown(void: HMODULE); stdcall;
  end;

Weiter komme ich nicht.

Das ist die Definition des Interface. Dazu muss es aber irgendwo auch eine Funktion geben mit dem diesem Interface als Rückgabe.

Das sieht nicht gut aus. Ich finde keine Funktion. Vielleicht übersehe ich was. Ich habe alles mal als ZIP Datei angehängt.

Hast du denn Beispielcode in irgendeiner Sprache (C, C++, ...), der das Laden zeigt?