Category Archives: Обработка исключений

Delphi. Threads. Как обработать исключение из потока?

Posted on 08.09.2016 by Stanislav_Panteleev

На форуме нашёл интересный способ обработать исключение из потока.

  TTestThread = class(TThread)
  private
    fEx : Exception;
    procedure QueryError;
  protected
    procedure Execute; override;
  end;
procedure TTestThread .Execute;
begin
  inherited;

  try
    ... всякое разное ...
  except
    fEx := ExceptObject as Exception;
    Synchronize( QueryError );
  end;
end;
procedure TTestThread .QueryError;
begin
  Application.OnException( Self, fEx );
end;

TTestThread = class(TThread)

private

fEx : Exception;

procedure QueryError;

protected

procedure Execute; override;

end;

procedure TTestThread .Execute;

begin

inherited;

try

... всякое разное ...

except

fEx := ExceptObject as Exception;

Synchronize( QueryError );

end;

procedure TTestThread .QueryError;

begin

Application.OnException( Self, fEx );

end;

Попробовал его в своей программе – и да, оно работает!

Posted in Delphi, Обработка исключений, Потоки(Threads) | Comments Off

Category Archives: Обработка исключений

Delphi. Threads. Как обработать исключение из потока?

DELPHI

MySQL

JS

PHP

MY PROJECTS

Recent Posts

Categories