Если на форме в виде DLL располагаю компоненты ADO, то при вызове DLL из главного модуля появляется ошибка "EOLESysError Не был произведен вызов 'Colnitialize'.Почему? Со всеми другими компонентами на форме в виде DLL все нормально. Может это только для Delphi5? Помогите.

Здравствуйте oni, Вы писали:

oni>Если на форме в виде DLL располагаю компоненты ADO, то при вызове DLL из главного модуля появляется ошибка "EOLESysError Не был произведен вызов 'Colnitialize'.Почему? Со всеми другими компонентами на форме в виде DLL все нормально. Может это только для Delphi5? Помогите.

Hm. A kto i kogda dolzhem byl ego proizwesti?

Здравствуйте oni, Вы писали:

oni>Если на форме в виде DLL располагаю компоненты ADO, то при вызове DLL из главного модуля появляется ошибка "EOLESysError Не был произведен вызов 'Colnitialize'.Почему? Со всеми другими компонентами на форме в виде DLL все нормально. Может это только для Delphi5? Помогите.


В dll скажи так:

CoInitialize(nil)

Здравствуйте DemAS, Вы писали:

DAS>Здравствуйте oni, Вы писали:

DAS> В dll скажи так:

DAS> CoInitialize(nil)

Мне кажется это должны были сделать ADO компоненты при инициализации,
ведь без dll все работает.

Мне кажется проблема глубже
Посмотри вот это http://www.softforum.ru/cbuilder.faq/faq.asp?24
это для BCB, но для Delphi тоже справедливо

Здравствуйте Anatolix, Вы писали:

A>Здравствуйте DemAS, Вы писали:

DAS>>Здравствуйте oni, Вы писали:

DAS>> В dll скажи так:

DAS>> CoInitialize(nil)

A>Мне кажется это должны были сделать ADO компоненты при инициализации,
A>ведь без dll все работает.

Дело в том, что в Application это вызывается автоматически.

A>Мне кажется проблема глубже
A>Посмотри вот это http://www.softforum.ru/cbuilder.faq/faq.asp?24
A>это для BCB, но для Delphi тоже справедливо

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

Проверь — есть форма в dll — без проблем вызывается в приложении. Положили на форму Connection, даже не надо делать Connected:=true;, не надо устанавливать параметры соединения — просто бросили на форму TADOConnection и перекомпилировали dll. Вызываем форму из приложения — выскакивает указанная выше ошибка. ОК. Открываем dll, в функцию, коорая вызывает показ окна, перед созданием окна ставим CoInitialize(nul); Перекомпилируем dll — все становится нормально.

Здравствуйте DemAS, Вы писали:

DAS> Проверь — есть форма в dll — без проблем вызывается в приложении. Положили на форму Connection, даже не надо делать Connected:=true;, не надо устанавливать параметры соединения — просто бросили на форму TADOConnection и перекомпилировали dll. Вызываем форму из приложения — выскакивает указанная выше ошибка. ОК. Открываем dll, в функцию, коорая вызывает показ окна, перед созданием окна ставим CoInitialize(nul); Перекомпилируем dll — все становится нормально.

Я понял, но ты избавился от симптома а не от ошибки, у тебя не вызвался инициализатор, как ты думашь сколько геморой это тебе еще принесет? включи Runtime Packages и посмотри, возможно поможет.

Здравствуйте Anatolix, Вы писали:

A>Я понял, но ты избавился от симптома а не от ошибки, у тебя не вызвался инициализатор, как ты думашь сколько геморой это тебе еще принесет? включи Runtime Packages и посмотри, возможно поможет.

Обязательно подумаю над этим, но наверное не сейчас а вечером дома. В любом случае, спасибо за информацию.

Здравствуйте DemAS, Вы писали:

DAS>Здравствуйте Anatolix, Вы писали:...

kstati w DLL-kah est (esli ya ne oshibayus) 2 funkzii. Odna wyzywaetsya pri zagruzke, drugaya
pri kazhdoi inizializazii dlya klienta. Pri etom, pomoemu, s pomoshyu return value mozhno
rasskazat, wse li w poryadke pri inite. Wot tuda by i wstawit CoInitialize(nul); s drugimi
initami.

Alex

http://www.forum.vingrad.ru/cgi-bin/newforum/ikonboard.cgi?s=3da8860446eaffff;act=ST;f=32;t=1899;hl=ado

Здравствуйте Vit!, Вы писали:

V!>http://www.forum.vingrad.ru/cgi-bin/newforum/ikonboard.cgi?s=3da8860446eaffff;act=ST;f=32;t=1899;hl=ado

Дак эта dll загружается из главного модуля в которыом было сделано Application.Initialize, спрашивается почему не работает?

Не силён я в теории, но, похоже что в DLL требуется своя инициализация. Во всяком случае, её добавление (например Uses oleauto все проблемы снимает.

Здравствуйте Аноним, Вы писали:

А>Не силён я в теории, но, похоже что в DLL требуется своя инициализация. Во всяком случае, её добавление (например Uses oleauto все проблемы снимает.

Это наврядли. CoInitialize должен быть вызыван 1 раз для потока.
Не важно сколько там dll.

Здесь почему-то не сработали инициализеры, так что проблема глубже.

Здравствуйте Anatolix, Вы писали:

A>Здравствуйте Аноним, Вы писали:

А>>Не силён я в теории, но, похоже что в DLL требуется своя инициализация. Во всяком случае, её добавление (например Uses oleauto все проблемы снимает.

A>Это наврядли. CoInitialize должен быть вызыван 1 раз для потока.
A>Не важно сколько там dll.

A>Здесь почему-то не сработали инициализеры, так что проблема глубже.
Зуб даю, что дело в этом коде, который можно найти в DBTables.pas:

procedure InitDBTables;
begin
  if SaveInitProc <> nil then TProcedure(SaveInitProc);
  NeedToUninitialize := Succeeded(CoInitialize(nil));
end;

initialization
  if not IsLibrary then
  begin
    SaveInitProc := InitProc;
    InitProc := @InitDBTables;
  end;
  Sessions := TSessionList.Create;
  Session := TSession.Create(nil);
  Session.SessionName := 'Default'; { Do not localize }
  InitializeCriticalSection(CSNativeToAnsi);
  InitializeCriticalSection(CSAnsiToNative);

Здравствуйте Sinclair, Вы писали:

S>Зуб даю, что дело в этом коде, который можно найти в DBTables.pas:

S>

S>  Sessions := TSessionList.Create;
S>  Session := TSession.Create(nil);
S>  Session.SessionName := 'Default'; { Do not localize }
S>  InitializeCriticalSection(CSNativeToAnsi);
S>  InitializeCriticalSection(CSAnsiToNative);
S>

То что ты привел это для BDE а не ADO, но наверное для ADO что-то похожее.