| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

работа с компонентами DOA

EternalWonderer ©   (2002-01-03 17:30:00) 

Дано:
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, проходит без проблем.

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

---

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

Конечно, можно, но:
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;

---

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

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

---

Наверх