Daily Archives: 08.09.2016

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

Delphi.Indy. FTP. Активный и пассивный режимы. Мультипоточная загрузка на сервер. Правильная визуализация процесса

Posted on 08.09.2016 by Stanislav_Panteleev

В прошлом посте про мультипоточную загрузку я столкнулся с некорректной индикацией процесса загрузки на сервер. Сама загрузка работала для нескольких файлов. А вот визуализация только для 1 файла. Поэтому, приходилось выкручиваться с таймерами. И я бы оставил этот вопрос, если … Continue reading →

Posted in Delphi, Indy | Comments Off

Daily Archives: 08.09.2016

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

Delphi.Indy. FTP. Активный и пассивный режимы. Мультипоточная загрузка на сервер. Правильная визуализация процесса

MY PROJECTS

Recent Posts

Categories