[VcSaJen]

Есть класс TIdThread (Входит в состав Indy9).

Имеется глобальная переменная, в которой содержится класс-наследник TIdThread. Требуется немедленно остановить поток и освободить (Free) его.

но это не получается: Если использовать методы Stop или Terminate, то поток завершится, когда выполнится до конца, а нужно немедленная остановка.

Если использовать такой код:

Код:

  if Assigned(LoginThread) then
  begin
    if LoginThread.Stopped=False then
    begin
      LoginThread.Suspended:=True;
      LoginThread.Terminate;
    end;
    LoginThread.Free;
  end;

То поток немедленно завершится, но программа зависнет на строчке LoginThread.Free;

[NumLock]

зачем вообще использовать TIdThread, достаточно TThread. что касается немедленной остановки потока, то метод Terminate делает всего лишь:

Код:

procedure TThread.Terminate;
begin
  FTerminated := True;
end;

т.е. никакой реальной остановки не происходит. чтобы это происходило нужно в методе Execute проверять свойство Terminated и при его значении True делать выход из Execute.

[VcSaJen]

чтобы это происходило нужно в методе Execute проверять свойство Terminated и при его значении True делать выход из Execute.

Но это невозможно, т.к. функция http.Get и http.Post не возвращает управление пока всё не догрузится.

[NumLock]

нет ничего невозможного: после вызова Terminate нужно вызвать Disconnect у TIdHTTP. тогда его вызов Get\Post в потоке сразу завершится Exception. ну а в Execute обработать это исключение.

Код:

TThread.Terminate;
TIdHTTP.Disconnect;
TThread.WaitFor;
TThread.Free;

[VcSaJen]

Спасибо, это сработало.