Потоки+idttp

[Anfall]

Всем доброго времени суток.

Знаю, что тема уже изъезженная, но просьба помочь разобраться.

У меня в программе по определенному событию происходит связь с неким сервером через idhttp. Просходить это должно в фоне. Т е пользователь работает в моей программе, а она сама когда нужно посылает данные серверу по определенному событию. Все бы ничего, но если интернета нет, то форма подвисает секунд на 30. Антифриз не помогает. Поэтому было решено засунуть это в поток.

Примерно так:

type
  TSomeThread = class(TThread)
  private
    var1:string;
    var2:string;
  public
     procedure Execute; override;
     constructor Create(Avar1:string;Avar2:string);
  end;

{------------}


constructor TSomeThread.Create;
begin
 inherited Create(true);
 var1:=Avar1;
 var2:=Avar2;
 FreeOnTerminate:=true;
 Resume;
end;

procedure TSomeThreadExecute;
begin
  //some actions with IDHTTP
  Terminate;
end;

В общем все работает. Но в чем загвоздка. Событие, по которому создается поток может происходить сколько угодно раз и разное время.

Надо сделать так, что если поток уже существует, то корректно остановить его (с корректным очищением IDHTTP) и создать новый.

Вот такая проблема. В общем у меня пару набросков есть. Но по-моему они все некорректные. Как это сделать правильно, без утечек?

Заранее благодарен.

[Пепел Феникса]

создаете Tidhttp в конструкторе потока(соответственно объявляете как поле класса) а в деструкторе уничтожаете.

[Anfall]

Сообщение от Пепел Феникса

создаете Tidhttp в конструкторе потока(соответственно объявляете как поле класса) а в деструкторе уничтожаете.

Ну это понятно. Я не совсем о том.
Есть событие по которому создается поток. Суть, что если уже есть созданный поток, который еще работает, надо его корректно завершить и создать новый. Как это делать правильно?

Вот что примерно происходит по событию:

SomeThread:=TSomeThread.Create(true);
SomeThread.Resume;

[Stilet]

Надо сделать так, что если поток уже существует, то корректно остановить его (с корректным очищением IDHTTP) и создать новый.

Сделай глобальную переменную потока (или свойство формы), в нее создавай поток, и при каждом создании проверяй не создано ли в ней уже что-то (не указывает ли она на еще не отработавший поток). Если переменка эта не nil то завершай ее поток.

[Anfall]

Сообщение от Stilet

Сделай глобальную переменную потока (или свойство формы), в нее создавай поток, и при каждом создании проверяй не создано ли в ней уже что-то (не указывает ли она на еще не отработавший поток). Если переменка эта не nil то завершай ее поток.

Спасибо. Уже думал так.
Но проблема-то в то что, а как толково завершить поток? Если б там был бы какой-то простой цикл, то можно было бы сделать:

Sometread.terminate.

А внутри потока:

 if terminated then exit

Но, а если в данный момент подвис idhttp? Как все это дело вырубить и завершить?

[Stilet]

а если в данный момент подвис idhttp?

Ну дык самое ему время Terminate

[Anfall]

Сообщение от Stilet

Ну дык самое ему время Terminate

Ну так я не понимаю, а как завершить-то его? Termiante тупо ставит terminated в true. Поэтому надо как-то завершать поток по-иному.

[mss]

Ну так закрой хендл гнезда, используемого IdHTTP-объектом, из другого потока - и всех делов)
Он тебе вернет исключение, мол, кирдык гнезду, не могу дальше рабоать - и закруглится (если правильно обработаешь исключение)

А дальше полный простор для "творчества").. хоть оно и сомнительно в разуме подающего идею на тему "хочу изнасиловать НОРМАЛЬНОЕ выполнение запроса"

[GunSmoker]

FreeOnTerminate:=true;

конфликтует с

если поток уже существует, то корректно остановить его

С FreeOnTerminate в True поток может удалить в любой, в том числе и самый неподходящий, момент.

Если FreeOnTerminate = True, то вы не должны сохранять объект поток в переменную, за исключением одного весьма специализированного (и, пожалуй, извращённого) случая с передачей указателя на эту переменную для очистки в сам поток.

Но проблема-то в то что, а как толково завершить поток? Если б там был бы какой-то простой цикл, то можно было бы сделать:
Код:
Sometread.terminate.
А внутри потока:
Код:
if terminated then exit
Но, а если в данный момент подвис idhttp? Как все это дело вырубить и завершить?

Классически это делается так: вы делаете Terminate и тут же очищаете переменную (без удаления). Всё, можно создавать новый поток.

Т.е. вы даёте команду на останов, но не ждёте её завершения.

Поток будет работать, да. Но, ближайшее его действие - увидеть, что ему надо завершать работу. Так что он остановится и удалит свой объект (установкой FreeOnTerminate - это можно делать теперь, потому что если нам дали команду на удаление, то на поток уже не ссылается никто).

Главное тут - не напутать, когда кто удаляет.

Если поток завершается штатно, то FreeOnTerminate = False, его объект сохранён в переменной и главный поток может в любой момент проверить завершение потока, его статус, результат вычислений и использовать переменную для коммуникации с потоком. Главный поток удаляет переменную при выходе из программы, при создании нового потока (если старый уже закончил работу), но не удаляет её при остановке ещё работающего потока (между последними двумя пунктами важна синхронизация).

Если потоку дали команду на выход, то он обязан проверять этот флаг (Terminated) перед каждым важным и длительным действием. Кроме того, он обязан проверить флаг перед самым выходом. При обнаружении признака выхода он делает FreeOnTerminate := True + Abort.

[Anfall]

GunSmoker, как всегда спасибо.
Более менее понятно уже.

А если сделать проще.
по событию:

if somethread<>nil then
  somethread.free;
somethread:=Tsomethread.Create('v1','v2');
somethread.Resume;

(при этом FreeOnTermiante=false)

А в деструторе потока написать все про удаление idhttp.
+ при выходе программы также написать

if somethread<>nil then
  somethread.free;

Чем чреват вот такой код?