passaggio adoconnection da vba a delphi

Question

Sto cercando di creare un oggetto COM in una macro VBA e quindi passarlo a una DLL Delphi (D2009). Come dovrebbe apparire la mia dichiarazione di procedura in Delphi?

Background: mi aspetto (sperando) la macro VBA per: creare l'oggetto COM, richiamare la DLL Delphi, passare l'oggetto COM alla procedura Delphi DLL, rimanere in vita fino a quando la DLL Delphi chiude stesso (la DLL avrà moduli incorporati per l'utente con cui interagire).

Penso che avrò bisogno di creare una funzione di callback per consentire alla macro VBA di sapere che ho finito in modo che possa riordinare, ma lavorerò su quello indipendentemente da questa domanda.

UPDATE In particolare: quale dovrebbe essere la dichiarazione di funzione esportata per la DLL Delphi.

Answer 1

devi passare collegamento Interfaccia di collegamento ADO _Connection alla procedura di Delphi quindi creare un'istanza TADOConnection e sostituirlo con ConnectionObject nuovo link di interfaccia

library Project1; 
uses ADODB; 

{$R *.res} 

    procedure SetConnection(aDBConnection : _Connection); stdcall; 
    var connect : TADOConnection; 
    begin 
     connect := TADOConnection.Create(nil); 
     try 
      connect.ConnectionObject := aDBConnection; 
      //here you can use your connection 
     finally 
      connect.Free(); 
     end; 
    end; 


exports SetConnection name 'SetDBConnection'; 

begin 
end. 

è meglio usare stdcall convenzione di chiamata. utilizzando export parola chiave setConnection proc è disponibile da uotside con SetDBConnection nome, in modo da poter LoadLibrary e getProcAddress di trovare il suo punto di ingresso (in realtà non so VBA quindi non posso dire come caricare la libreria usando)