Как правильно создать многопоточную процедуру для проверки интернет-соединения в Delphi: решение проблемы "Cannot call Start on a running or suspended thread"

Delphi , Компоненты и Классы , Потоки

Как правильно создать многопоточную процедуру для проверки интернет-соединения в Delphi

Введение

В современном программировании многопоточность — это важный инструмент, позволяющий улучшить производительность и отзывчивость приложений. В Delphi, как в среде, ориентированной на разработку под Windows, использование многопоточности может быть особенно полезным. В данной статье мы рассмотрим, как правильно создать многопоточную процедуру для проверки интернет-соединения, и обсудим типичную проблему, с которой разработчики могут столкнуться при работе с потоками.

Проблема

Разработчик, новый в использовании потоков, сталкивается с проблемой при попытке создать процедуру для проверки интернет-соединения в фоновом потоке, в то время как основной поток создаёт необходимые формы. При запуске кода возникает ошибка "Cannot call Start on a running or suspended thread", после чего основное окно программы закрывается.

Анализ кода

В коде присутствуют конструктор и деструктор класса TPingThread, а также метод Execute, который выполняет проверку интернет-соединения. В конструкторе не вызывается конструктор базового класса, что является одной из причин возникновения ошибки. В методе Execute также присутствует ненужный вызов inherited, который следует убрать.

Решение проблемы

Для решения проблемы необходимо:

1. Вызвать конструктор базового класса в конструкторе TPingThread, указав, должен ли поток запускаться сразу или оставаться в состоянии ожидания. Например: pascal constructor TPingThread.Create(IDThread: Integer); begin inherited Create(False); // Или True для создания приостановленного потока Self.FID := IDThread; Self.FreeOnTerminate := True; end;
2. Удалить вызов inherited из метода Execute, так как это абстрактное объявление, предназначенное для переопределения в производных классах.
3. Использовать конструкцию try/finally после создания объекта FIdPing для обеспечения корректного освобождения ресурсов.
4. Избегать вызова EndThread в деструкторе, так как TThread автоматически обрабатывает завершение потока.
5. Передать сообщение об ошибке в основной поток, если необходимо отобразить диалоговое окно, так как вызов MessageDlg из потока не является потокобезопасным.

Пример кода

constructor TPingThread.Create(IDThread: Integer);
begin
  inherited Create(False); // Создаем поток в состоянии ожидания
  Self.FID := IDThread;
  Self.FreeOnTerminate := True;
end;

procedure TPingThread.Execute;
var
  iTimeOuts, K: Byte;
  sWebpage: String;
  FIdPing: TIdHTTP;
begin
  try
    FIdPing := TIdHTTP.Create(nil);
    try
      FIdPing.ConnectTimeout := 2000;
      for K := 1 to 3 do
      begin
        try
          sWebpage := FIdPing.Get('http://www.google.co.za');
        except
          on E: Exception do
          begin
            Inc(iTimeOuts);
          end;
        end;
      end;
      if iTimeOuts = 3 then
        Synchronize(
          procedure
          begin
            MessageDlg('A working internet connection is needed to reset your password', mtWarning, [mbOK], 0);
          end
        );
      FInternetConnection := (iTimeOuts = 0);
    finally
      FreeAndNil(FIdPing);
    end;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end;

Заключение

В данной статье мы рассмотрели, как правильно создать многопоточную процедуру для проверки интернет-соединения в Delphi, и обсудили общие ошибки, с которыми разработчики могут столкнуться при работе с потоками. Следуя представленным рекомендациям, можно избежать распространённых проблем и успешно реализовать многопоточность в своих проектах.

Создано по материалам из источника по ссылке.

Статья о создании многопоточной процедуры для проверки интернет-соединения в Delphi и решении возникающих при этом проблем.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Потоки ::