VPF::OleInitialize() - Проблеммы с формой в dll

Чучмек

Дата 2.1.2010, 19:09 (ссылка)

(нет голосов)

Загрузка ...

НЭТ БИЛЭТ

Профиль
Группа: Участник
Сообщений: 841
Регистрация: 11.5.2008
Где: СССР

Репутация: 2
Всего: 41

Здраствуйте.
Написал программу с одним TWebBrowser на форме.
Программа работает нормально.
Стал вопрос - запихнуть все это дело в dll.

Код


library WEB;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

Здесь 'Unit1.pas' - модуль моей, уже готовой программы.
Библиотека компилируется, рамер как и у экзэшника.
Dll подключаю (запускаю) следующим exe

Код


program Start;

uses
  windows;

{$R *.res}

begin
  loadlibrary('WEB.dll');
end.

При запуске выскакивает сообщение: EOleSysError - Небыл произведен вызов CoInitialize
Если до Application.CreateForm(TForm1, Form1); вызвать activex.OleInitialize(nil) - Программа запускается но
TWebBrowser  - висит.
В исходной программе при замене    Application.Initialize на activex.OleInitialize(nil) - все работает нормально.

Результат с висячим TWebBrowser также  получается если указать uses OleCtrls, SHDocVw;  и вызвать Application.Initialize; в программе запускающей dll.

В одном из вариантов прогамма с dll начинала нормально работать после первого щелчка на кнопку закрытия формы.

--------------------

умную мысль держи при себе, а дурной - поделись с другими

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: ActiveX/СОМ/CORBA \| Следующая тема »