Вниз
Скачать: CL | DM;

Работа с БД с применением DLL   Найти похожие ветки 

← →
Goldmund ©   (2005-10-26 10:31) [0]

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


← →
stone ©   (2005-10-26 10:33) [1]

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


← →
Goldmund ©   (2005-10-26 10:40) [2]

Выдает ошибку: 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:43) [3]


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

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


← →
Goldmund ©   (2005-10-26 10:49) [4]

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


← →
Fay ©   (2005-10-26 10:52) [5]

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


← →
Goldmund ©   (2005-10-26 11:03) [6]

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


← →
Desdechado ©   (2005-10-26 11:18) [7]

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


← →
Goldmund ©   (2005-10-26 11:31) [8]

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


← →
Desdechado ©   (2005-10-26 11:51) [9]

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



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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.036 c
3-1130309787
йцукен
2005-10-26 10:56
2005.12.11
DataSet.recNo


4-1128497357
k.e.a
2005-10-05 11:29
2005.12.11
описание класса SysAnimate32


1-1132152240
VEZ
2005-11-16 17:44
2005.12.11
OnExit всегда


14-1132388817
ищущий ответ
2005-11-19 11:26
2005.12.11
Водительское удостоверение и менты


2-1133160924
RealMan
2005-11-28 09:55
2005.12.11
как добавить примечание при печати TStringGrid




   Наверх