Передача ADOConnection от VBasic DLL к Delphi программе

← →
jago © (2004-01-16 08:24) [0]

Как передать ADOConnection из OLE сервера в приложение разрабатываемое на Delphi 7? OLE сервер реализован в виде DLL написанной на Visual Basic и когда я пытаюсь передать непосредственно объект происходит ошибка "не совместимость типов"
var
MyShell:Variant;
sSession :String;
begin
..
MyShell := CreateOleObject("MyShellLib.MyShell");
..
frmMain.ADOConnection := TADOConnection(MyShell.cnn); #Error!!

← →
sniknik © (2004-01-16 10:44) [1]

проверь варианты (второй думаю ближе к "истине")
frmMain.ADOConnection.Assign(TADOConnection(MyShell.cnn));
frmMain.ADOConnection.ConnectionObject:= MyShell.cnn;

← →
jago © (2004-01-16 13:30) [2]

к сожелению оба варианта не подошли: не совпадение типов

← →
Vlad © (2004-01-16 13:32) [3]

OleVariant

так тоже пробовал, не работает :(

Во-первых, предъявите в студию код на Visual Basic, конкретнее - реализацию property Get.

Во-вторых, не забыт ли CoInitialize?

В-третьих, не спасёт ли QueryInterface на IID__Connection отца rусской демократии?

Передача ADOConnection от VBasic DLL к Delphi программе Найти похожие ветки