pass adoconnection от vba to delphi

Question

Я ищу, чтобы создать COM-объект в макросе VBA, а затем передать его в DLL Delphi (D2009). Как должна выглядеть декларация моей процедуры в Delphi?

фона: Я ожидаю, что (в надежде) УВА макрос: создать объект COM, вызвать Delphi DLL, передать объект COM к процедуре Delphi DLL, остаться в живых до тех пор, Delphi DLL не закрывается (DLL будет иметь встроенные формы для взаимодействия с пользователем).

Я думаю, мне нужно создать функцию обратного вызова, чтобы макрос VBA знал, что я сделан, чтобы он мог привести в порядок, но я буду работать над этим независимо от этого вопроса.

ОБНОВЛЕНИЕ Точнее: что должно быть декларация экспортируемой функции для DLL Delphi.

Answer 1

вы должны пройти ADO интерфейс подключения ссылку _Connection к процедуре DELPHI затем создать экземпляр TADOConnection и заменить ConnectionObject с новым интерфейсом связи

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. 

лучше использовать stdcall соглашение о вызовах. используя ключевое слово exportsetConnection процедурный доступен из uotside с SetDBConnection именем, так что вы можете LoadLibrary и getProcAddress найти точку входа (на самом деле я не знаю, VBA, так что я не могу сказать, как загрузить библиотеку, используя ее)