Форум: "Базы";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 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, проходит без проблем.

Прошу совета - что делать? Вроде ошибки нет, а не работает ...



petr_v_a   (2002-01-03 17:36) [1]

Если надо получить курсор, то не TOracleQuery, а TOracleDataset,
и не execute, а open



EternalWonderer   (2002-01-04 10:55) [2]

Конечно, можно, но:
You can use a TOracleQuery to execute any SQL statement or PL/SQL block in a session. This is a very low-level component that works directly on top of SQL*Net without any overhead. It should therefore always be used when you don"t need data-aware components on the results of a query.

Мне всего - то надо, чтобы работал пример из Help,
где в моём случае SelectQuery - ссылка на объект в подгружаемой dll:

// SelectQuery.SQL = select * from dept order by deptno
with SelectQuery do
try
Execute;
Row := 1;
// Fill the grid
while not Eof do begin
DeptGrid.Cells[0, Row] := Field("DEPTNO");
DeptGrid.Cells[1, Row] := Field("DNAME");
DeptGrid.Cells[2, Row] := Field("LOC");
Inc(Row);
Next;
end;
except
on E:EOracleError do ShowMessage(E.Message);
end;




Форум: "Базы";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.04;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.015 c
1-8878            Alexm                 2002-01-16 12:52  2002.02.04  
Свертывание окна


14-8986           AlexH                 2001-12-10 10:30  2002.02.04  
Опять девушки


3-8786            Petrovich             2002-01-08 10:25  2002.02.04  
Вызов gbak


3-8775            Georg                 2002-01-07 15:16  2002.02.04  
Заковырочка-запупырочка...


4-9030            swr                   2001-12-06 09:41  2002.02.04  
Анимированный курсор