Поток прерывается самостоятельно

[Ferrum26]

Только начал осваивать потоки, вставил в свою программу и сразу две проблемы (не часто встречающихся, как я понял из поиска)

Имеем поток:

type
  Thread = class(TThread)
  private
  protected
    procedure abc;
    procedure def;
    procedure Execute; override;
  end;

implementation

procedure Thread.abc;
var
  R: TRegExp;
begin
  R := TRegExp.Create(nil);
  try
    R.Pattern := '[0-9]+) g([0-9]+)(b*)[^0-9]+([0-9]+)';
    R.IgnoreCase := true;
    R.Global := true;
    .......
  end;
end;

procedure Thread.def;
Var
Doc: IHTMLDocument2;
begin
  Doc:=coHTMLDocument.Create as IHTMLDocument2;
  ......
end;

procedure Thread.Execute;
begin
  abc;
  def;
end;

При вызове в потоке функции abc, поток "дохнет" натыкаясь на строчку

R.Pattern := '[0-9]+) g([0-9]+)(b*)[^0-9]+([0-9]+)';

Если закомментить функцию abc и заставить сразу выполнять def то "дохнет" на

Doc:=coHTMLDocument.Create as IHTMLDocument2;

С функцией def вроде разобрался: необходимо перед созданием Doc влепить

CoInitialize(nil);

А вопрос о патернах в функции abc остается открытым.

[mss]

Текст паттерна кривой.

[Ferrum26]

Проблема решилась как ни странно аналогичным путём: добавлением

CoInitialize(nil);

в функцию abc. При этом необходимо подключить модулю ActiveX;
До этого поток дох не вызывая ошибок так как в настройках Delphi была убрана галочка "Stop on Delphi Exception"

Текст паттерна кривой.

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

[Stilet]

Проблема решилась как ни странно аналогичным путём:

Вполне возможно что TRegExp использует какой-о ActiveX, а ты даже и не подозреваешь о том.
Ибо если пользовать АктивИкс в потоке, поток нужно вначале проинициализировать (CoInitialize(0) ) а в конце снять инициализацию (CoUnInitialize )
Тогда норм.

[Ferrum26]

Тогда возникает логичное предложение в функцию Execute любого потока добавлять

CoInitialize(nil)

так, на всякий случай

[Stilet]

в функцию Execute любого потока добавлять

Нет. Там свои приколы. Лучше добавлять только в те где ActiveX или вообще COM-сервер заюзан.

[JTG]

Интересное чтиво

[Stilet]

Интересное чтиво

Действительно. Интереснее некуда:

Forbidden
You don't have permission to access
/cn/showdetail.php?cid=6330 on this server.
Apache/1.3.34 Server at articles.org.ru Port 80
24 - Недопустимый браузер или его свойства