| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Передача ADOConnection от VBasic DLL к Delphi программе [D7]
jago © (2004-01-16 08:24:00)
Как передать ADOConnection из OLE сервера в приложение разрабатываемое на Delphi 7? OLE сервер реализован в виде DLL написанной на Visual Basic и когда я пытаюсь передать непосредственно объект происходит ошибка "не совместимость типов"
var
MyShell:Variant;
sSession :String;
begin
..
MyShell := CreateOleObject("MyShellLib.MyShell");
..
frmMain.ADOConnection := TADOConnection(MyShell.cnn); #Error!!
Ломброзо (2004-01-16 22:53:00) [1]
Во-первых, предъявите в студию код на Visual Basic, конкретнее - реализацию property Get.
Во-вторых, не забыт ли CoInitialize?
В-третьих, не спасёт ли QueryInterface на IID__Connection отца rусской демократии?
jago (2004-01-16 19:22:00) [2]
так тоже пробовал, не работает :(
Vlad (2004-01-16 13:32:00) [3]
OleVariant
jago (2004-01-16 13:30:00) [4]
к сожелению оба варианта не подошли: не совпадение типов
sniknik (2004-01-16 10:44:00) [5]
проверь варианты (второй думаю ближе к "истине")
frmMain.ADOConnection.Assign(TADOConnection(MyShell.cnn));
frmMain.ADOConnection.ConnectionObject:= MyShell.cnn;
| |
