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

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

Работа с БД с применением DLL


Goldmund ©   (2005-10-26 10:31:00) 

Привет всем. Есть форма в DLL, на нее надо выкинуть БД, делаю это через ADO и DBGrid. Вызываю процедуру из DLL, форму выводить он не хочет, без компонентов ADO все работает. Подскажите, плиз, какие дополнительные настройки нужно применять в этом случае.


Desdechado   (2005-10-26 11:51:00) [1]

что в трассировке видно?


Goldmund   (2005-10-26 11:31:00) [2]

При выставление AdoTable1.Active:=true;


Desdechado   (2005-10-26 11:18:00) [3]

что есть "выкинуть БД" и "загрузка БД"?


Goldmund   (2005-10-26 11:03:00) [4]

Но теперь при загрузке БД, программа вешаеться намертво


Fay   (2005-10-26 10:52:00) [5]

2 Goldmund ©   (26.10.05 10:49) [4]
uses ActiveX ?


Goldmund   (2005-10-26 10:49:00) [6]

Я понимаю что я ламо, но с этим что делать:
[Error] DataCheck.dpr(18): Undeclared identifier: 'CoInitialize'


stone   (2005-10-26 10:43:00) [7]


> 'Не был произведен вызов CoInitialize'.

Что и предполагалось...
> procedure ShowDemoForm(AOwner: TComponent);
>  begin
    CoInitialize(Nil);
>   DemoForm := TDemoForm.Create(AOwner);
>   DemoForm.ShowModal;
>   DemoForm.Free;
    CoUnInitialize;
>  end;


Goldmund   (2005-10-26 10:40:00) [8]

Выдает ошибку: Project DemoDLL1.exe raised exception class EOleSysError with message 'Не был произведен вызов CoInitialize'.
в приложении:
 procedure ShowDemoForm(AOwner: TComponent); external 'DataCheck.dll';
procedure TMainForm.BitBtn1Click(Sender: TObject);
begin
ShowDemoForm(Application);
end;

В ДЛЛ:
procedure ShowDemoForm(AOwner: TComponent);
 begin
  DemoForm := TDemoForm.Create(AOwner);
  DemoForm.ShowModal;
  DemoForm.Free;
 end;


stone   (2005-10-26 10:33:00) [9]

А что пишет? Ошибку какую выдает? Код вызова покажи в приложениии и в ДЛЛ.


Наверх

Титульная страница Поиск, карта сайта Написать письмо