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

Вниз

Уважаемые Мастера. Почему не создается ADOQuery?   Найти похожие ветки 

 
Vovik   (2003-07-01 15:43) [0]

Пишу DLL с формой на которой лежат ADOQuery и ADOConnection.
При вызове DLL выдается ошибка "Не был произведен вызов CoInitialize". Если убрать эти два компонента с формы то все ОК.
В чем проблема?


 
stone   (2003-07-01 15:49) [1]


> В чем проблема?


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



 
Vovik   (2003-07-01 16:05) [2]

а как произвести этот вызов?
я просто кидаю компонент на форму, по идее он сам должен создаться при создании формы.


 
vovik   (2003-07-01 16:14) [3]

Из основной формы вызываю
procedure TForm1.Button1Click(Sender: TObject);
var Hbar1: Thandle;
Foo1: procedure;
begin
Hbar1 := LoadLibrary("otchets.dll");
if Hbar1 >= 32 then { Успешно }
begin
Foo1 := GetProcAddress(HBar1, "ShowOtchets");
Foo1;
end
else
MessageDlg("не найден otchets.dll", mtError, [mbOk], 0);
end;

В DLL

procedure ShowOtchets;
Begin
Form1:=TForm1.Create(Form1); /// ОШИБКА !!!!!!
Form1.Show;
End;
exports
ShowOtchets;

Почему именно ADO компоненты вызывают ошибку ? DBE , Apolo, Halcyon - всо нормально


 
Семен Сорокин   (2003-07-01 16:15) [4]

http://www.delphimaster.ru/articles/book/Chap09.pdf


 
vovik   (2003-07-01 16:28) [5]

Хороший документ, много полезного можно узнать.
Спасибо.
Только ошибка то остается.
Не был произведен вызов CoInitialize
и
Exception EOLESysError

Кстати точно такая же ошибка появляется, если пытаешься динамически создать ADO компонент в потоке. В этом случае мне пришлось в главной форме создавать массив из ADOQuery и в поток передавать индекс, для работы с определенным ADOquery.


 
Семен Сорокин   (2003-07-01 16:29) [6]

а почему бы тебе не сделать так:
CoInitialize;
ADOQuery.create(..)


 
stone   (2003-07-01 16:45) [7]

В OnCreate главной формы приложения (не библиотеки) первой строкой (чтобы наверняка)

CoInitialize(nil);

PS. Не забудь в uses добавить ActiveX


 
Vovik   (2003-07-01 17:03) [8]

ВОТ СПАСИБО !!!!

Вот так работает
В DLL
procedure ShowOtchets;
Begin
CoInitialize(nil);
Form1:=TForm1.Create(Form1); /// И нету ошибки :-))
Form1.Show;
End;
exports
ShowOtchets;



 
sniknik   (2003-07-01 19:45) [9]

CoUnInitialize() в конце не забывай вызывать (вызовы должны быть строго парные)



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

Форум: "Базы";
Текущий архив: 2003.07.24;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.46 MB
Время: 0.008 c
1-77983
Vasilii
2003-07-11 13:22
2003.07.24
двойная кнопка


1-77970
vit_soft
2003-07-11 08:53
2003.07.24
Помогите .... подчеркивание в Excel части текста.


14-78095
Карлсон
2003-07-08 00:35
2003.07.24
что с почтовым ящиком или The Bat! виноват?


14-78109
Lika
2003-07-08 13:03
2003.07.24
Срочно! Пожалуйста помогите!


11-77816
tamerlan311
2002-11-20 13:29
2003.07.24
обновление сайта !





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