Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2009.04.19;
Скачать: [xml.tar.bz2];

Вниз

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

 
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;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.46 MB
Время: 0.044 c
2-1235994425
Neket
2009-03-02 14:47
2009.04.19
Проблема с задание Range в Диаграмах Excel


10-1155558493
misha_gr
2006-08-14 16:28
2009.04.19
Интеграция приложения в MS Outlook


2-1236004645
b86
2009-03-02 17:37
2009.04.19
программа слайдшоу


15-1234803136
Maaacheba
2009-02-16 19:52
2009.04.19
Получение имени метода


2-1235823045
huge
2009-02-28 15:10
2009.04.19
Сохранение в файл объекта





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский