**Асинхронные запросы с TIdHttp: как дождаться ответа без блокировки основного потока**

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

Асинхронные запросы с TIdHTTP: как дождаться ответа без блокировки основного потока

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

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

Для решения проблемы следует использовать событие OnTerminate класса TThread, которое срабатывает после завершения потока. Это позволит основному потоку узнать, что поток выполнения HTTP-запроса завершил свою работу, и продолжить выполнение кода, включая отображение результата.

Вот пример кода, демонстрирующего использование OnTerminate:

type
  TSendThread = class(TThread)
  private
    http : TIdHTTP;
    Line: string;
    procedure AddLine;
  protected
    procedure Execute; override;
  public
    constructor Create; reintroduce;
    destructor Destroy; override;
    URL : String;
    Method : String;
    property ReturnValue;
  end;

constructor TSendThread.Create;
begin
  inherited Create(True);
  http := TIdHTTP.Create;
end;

destructor TSendThread.Destroy;
begin
  http.Free;
  inherited;
end;

procedure TSendThread.Execute;
begin
  Line := http.Get(URL);
  Synchronize(AddLine);
  ReturnValue := 1;
end;

procedure TSendThread.AddLine;
begin
  Form1.Memo1.Lines.Add(Line);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  t : TSendThread;
begin
  t := TSendThread.Create;
  try
    t.URL := 'http://www.url.com/';
    t.OnTerminate := ThreadTerminated;
    t.Start;
    // Основной поток продолжает выполнение, не блокируясь
  finally
    t.WaitFor;
    // Ждем завершения потока перед освобождением, если это необходимо
    t.Free;
  end;
end;

procedure TForm1.ThreadTerminated(Sender: TObject);
begin
  with TSendThread(Sender) do
  begin
    // Здесь можно обработать результат, например, показать его пользователю
    ShowMessage(IntToStr(ReturnValue));
  end;
end;

Также возможен вариант использования цикла ожидания, который не блокирует основной поток:

procedure TForm1.Button1Click(Sender: TObject);
var
  t : TSendThread;
  h : THandle;
begin
  t := TSendThread.Create;
  try
    t.URL := 'http://www.url.com/';
    t.Start;
    h := t.Handle;
    repeat
      case MsgWaitForMultipleObjects(1, h, 0, INFINITE, QS_ALLINPUT) of
        WAIT_OBJECT_0:   Break;
        WAIT_OBJECT_0+1: Application.ProcessMessages;
        WAIT_FAILED:     RaiseLastOSError;
      else
        Break;
      end;
    until False;
    ShowMessage(IntToStr(t.ReturnValue));
  finally
    t.Free;
  end;
end;

Важно отметить, что использование Application.ProcessMessages может привести к непредсказуемому поведению, поэтому следует применять его с осторожностью.

Заключение

Использование события OnTerminate позволяет асинхронно выполнить HTTP-запрос без блокировки основного потока и дождаться его завершения для дальнейшей обработки результатов. Это ключевой момент в разработке многопоточных приложений, особенно когда работают с пользовательским интерфейсом.

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

Вопрос касается реализации асинхронных HTTP-запросов с использованием компонента TIdHTTP из библиотеки Indy для предотвращения блокировки основного потока исполнения программы.

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

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

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