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

Вниз

Реализация DLL   Найти похожие ветки 

 
Cranium   (2003-01-08 01:09) [0]

Нужен пример кода реализующей следующее, в исполняемом файле дата модуль с DataSource в DLL дочерняя форма с гридом сваязанная с выше упомянутым DataSource... Если у кого есть похожий пример или ссылка на оный просьба поделиться....


 
cranium   (2003-01-08 21:40) [1]

Что, ни кто не вкурсе?


 
Cranium   (2003-01-09 09:34) [2]

Очень жаль, что ни у кого нет примера исходника....


 
asmith   (2003-01-09 20:01) [3]

Делаем примерно так:
1. в исполняемом файле дата модуль с набором данных и с соединенным с ним TDataSource с именем, например, MyDS
2. программа запускается, загружает DLL, запускает форму из нее, открывает набор данных
3. далее программа инициализирует данные-вызывает некую процедуру из DLL, передавая в нее ссылку на TDataSource
type
TInitData = procedure(ds : TDataSource); stdcall;
...
var
InitData: TInitData;
...
InitData := GetProcAddress(FHLib, "InitData");
if Assigned(InitData) then
InitData(MyDS);
4. в DLL содержится описание этой функции
exports
..., InitData;
и ее тело
procedure InitData(ds : TDataSource); stdcall; export;
begin
MyDLLForm.DBGrid1.DataSource := ds;
end;
ИМНО лучше делать чуть сложнее - завести в DLL собственный модуль данных и при ее загрузке инициализировать его активным соединением с источником данных (передать TDatabase.Handle при работе через BDE или TADOConnection.ConnectionObject для ADO).





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

Форум: "Основная";
Текущий архив: 2003.01.20;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.009 c
3-62437
VS2002
2002-12-27 08:46
2003.01.20
Поле со списком в DBGrid


14-62754
Alikm
2003-01-02 16:54
2003.01.20
Привет!!!


1-62568
+++Ulf+++
2003-01-11 10:03
2003.01.20
Функция поиска и удаления слов


1-62615
Smok_er
2003-01-09 00:21
2003.01.20
Интересная задачка...


14-62740
KIR
2003-01-04 12:05
2003.01.20
Народ, у кого стоит RxLib+D7? Нормально работает?





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский