Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2009.04.19;
Скачать: CL | DM;

Вниз

Не соображу, что за ошибка...   Найти похожие ветки 

 
User1   (2008-05-12 09:15) [0]

Есть dll, в которой находится форма с Grid- ом, на форме также находится DataSource.

У этого DataSource есть не без известное свойство DataSet.

Так вот: Все наборы данных находятся на главной форме. При вызове dll мы передаем ей Application главной формы, сохраняем ее App, передаю DataSet следующим образом:

В dll:


Type
 PDataSet = ^TDataSet;

Procedure Run(ADataSet: PDataSet);
Begin
 fHandBook = TfHandBook.Create(Application, ADataSet^);
End;
Где:
Constructor TfHandBook.Create(AOwner: TApplication, ADataSet: TDataSet);
Begin
 Inherited Create(AOwner);
 Ds.DataSet := ADataSet;
End;

Procedure …..FormCreate(Sender: …..);
Begin
 If not ds.DataSet.Active then
   Ds.DataSet.Open;
End;


В главной форме:


Type
 PDataSet = ^TDataSet;

Var
 P: PDataSet;

Initialize(Integer(Application)); //Инициализируем dll;
P^ := ADODataSet1;
Create(P); //Передаем DataSet…


1. Если ADOQuery1 закрыт. Форма загружается но на гриде не появляются данные. Через время. Ошибка.
2. Если ADOQuery1 открыт первоначально. Форма загружается на гриде появляются данные. Если мы начнем перемещать форму, или кликнем по гриду, опять ошибка.
3. Навигатор перемещает курсор, но через время опять ошибка !!!.....
Собственно вопрос:

Как правильно работать с dll которой передается DataSet ?


 
User1   (2008-05-12 10:11) [1]

Кто-то сталкивался с подобными вопросами ?


 
Сергей М. ©   (2008-05-12 10:17) [2]

см. все касаемое опции Build With Run-Time Packages


 
Сергей М. ©   (2008-05-12 10:27) [3]


> Initialize(Integer(Application))


К чему эти пляски с бубном вокруг Application ?


> Create(P)


Что за Create ?
> Type
>  PDataSet = ^TDataSet;
> …
> Procedure Run(ADataSet: PDataSet);


Зачем передавать указатель на указатель ?

Тип TDataSet и так уже являет собой указатель.


 
User1   (2008-05-12 10:36) [4]

Create в том смысле что создается форма. Учту Run :o)

Procedure Run(ADataSet: PDataSet);

Procedure Run(ADataSet: Point); ?

И с чем всеже связана такая ошибка. Адресные пространства DLL и приложения ?

А если передать полностью объект ? TDataSet ???

И есть ли у кого рабочие примеры ?

Заранее спасибо !


 
Сергей М. ©   (2008-05-12 10:51) [5]


> с чем всеже связана такая ошибка


С разными экземплярами RTL.
Читай все о пакетах времени выполнения.

И вообще - где подробная инф-ция об ошибке ?


> Адресные пространства DLL и приложения ?


Оно едино.


> если передать полностью объект


как это "полностью" ?
Это еще надо умудриться передавать объект "частями")


 
Amoeba ©   (2008-05-12 11:42) [6]


> Как правильно работать с dll которой передается DataSet
> ?
>

Дело в том, что одноименные классы в DLL и host-приложении оказываются на деле разными, т.к. не будут иметь общих RTTI и VMT.
Проблем не возникнет только если приложение и DLL компилируются с пакетами.



Страницы: 1 вся ветка

Текущий архив: 2009.04.19;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.025 c
2-1235949145
WeX
2009-03-02 02:12
2009.04.19
Помогите с TTreeView


4-1208255815
vopros
2008-04-15 14:36
2009.04.19
Почему такой код в Висте не работает а в XP работает?


2-1236178765
Artem
2009-03-04 17:59
2009.04.19
EhLib, OnKeyDown


2-1235984161
namco
2009-03-02 11:56
2009.04.19
copy elements of column to listbox


15-1234946651
Дмитрий Белькевич
2009-02-18 11:44
2009.04.19
Почему закрыли тему?