Форум: "Базы";
Текущий архив: 2002.02.04;
Скачать: [xml.tar.bz2];
Внизработа с компонентами DOA Найти похожие ветки
← →
EternalWonderer (2002-01-03 17:30) [0]Дано:
1. DataModule, с расположенным на нём TOracleQuery, в dll;
Из dll экспортируется функция:
Function NotBusyQuery: TOracleQuery; Export;
2. Имеется вызывающий модуль, в котором:
Function NotBusyQuery: TOracleQuery; external "DBAccess.dll";
Procedure Form1.Button1Click(Sender: TObject);
Var q: TOracleQuery;
v: Variant;
Begin
q := NotBusyQuery;
q.SQL.Add("SELECT ...");
q.Execute;
v := Field(0); // вот здесь вылетает "Invalid Class Typecast"
End;
Проблема: см. комментарий в тексте выше.
Дополнительные сведения:
1. До этого использовался TSQLQuery, выполнение v:=Fields[0].AsVariant проходило "на ура";
2. Выражение Variant1 := Field(0) внутри dll, в которой находится DataModule, проходит без проблем.
Прошу совета - что делать? Вроде ошибки нет, а не работает ...
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2002.02.04;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.004 c