VPF::главный поток и COINIT_MULTITHREADED - Форум программистов

namervasek

Дата 7.9.2012, 11:27 (ссылка)

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

Загрузка ...

Шустрый

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

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

Всем здрасте.
Попытался перевести главный поток проги в МТА таким образом:

Код


  CoInitFlags := COINIT_MULTITHREADED;
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TServerForm, ServerForm);
  Application.Run;

результата это не дало... нашел причину:

Код


constructor TApplication.Create(AOwner: TComponent);
var
{$IF DEFINED(CLR)}
  SB: System.Text.StringBuilder;
  P: Integer;
  C: Char;
{$ELSE}
  P: PChar;
  ModuleName: array[0..255] of Char;
{$IFEND}
begin
  inherited Create(AOwner);
  if not IsLibrary then
    FNeedToUninitialize := Succeeded(OleInitialize(nil)); // вот эта бяка

Соотвествено решение которое сразу пришло в голову сделать так

Код


  CoUninitialize;
  CoInitFlags := COINIT_MULTITHREADED;
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TServerForm, ServerForm);
  Application.Run;

Все вроде бы хорошо и вроде все работает как надо, но меня интересует вопрос: не сломается ли VCL от такого решения? Подскажите пожалуста?

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