Load Delphi XE6 dll from C++ XE10.2 Application

Progetto di esempio per testare il caricamento e l'utilizzo di una dll sviluppata con Embarcadero Delphi XE6 da un applicativo sviluppato con Embarcadero C++ 10.3

Il progetto si compone di 2 sotto progetti suddivisi nelle rispettive cartelle

Progetto con i sorgenti della dll. La dll espone la funzione 'get_instanceByName' per permettere il caricamento delle interfacce necessarie.

Progetto con i sorgenti dell'applicativo che dovrà caricare ed utilizzare le funzioni esposte dalla dll in Delphi.

L'interfaccia comune tra i due progetti si compone di due parti.

Classe principale per la gestione dell'ordine

struct ICppOrdine : IUnknown { virtual int __stdcall GetNumeroOrdine() = 0; virtual int __stdcall ContaRighe() = 0; virtual ICppRiga* __stdcall GetRiga(int index) = 0; }; 

Classe che rappresenta una riga ordine.

struct ICppRiga : IUnknown { virtual wchar_t* __stdcall GetCodice() = 0; virtual wchar_t* __stdcall GetDescrizione() = 0; virtual int __stdcall GetQta() = 0; };

Per poter caricare la dll e utilizzare le sue interfacce la dll in Delphi deve esporre la seguente funzione.

typedef HRESULT(__stdcall* t_giCppOrdine)(const char* name, void** I); 

Che verrà così implementata in Delphi

function get_InstanceByName( { [in] } const name: PAnsiChar; { [out] } var I: Pointer): HRESULT; stdcall; begin I := NIL; if String(name) = 'ICppOrdine' then I := Pointer(ICppOrdine(GetItfCppOrdine())); if (I = NIL) then Result := E_FAIL else Result := S_OK; end;