Сетевой компонент вставить в поток

[Человек_Борща]

Доброго времени суток!

Пишу приложение для управления сетевыми девайсами, т.е. программа одновременно работает с несколькими устройствами по сети.

Проблема в том, что когда идет долгая сетевая операция(сокет-клиент ждет ответа от сокет-сервера) - виснет вся программа.

Каким образом можно запихать сетевую часть в поток, таким образом чтобы поток существовал столько сколько нужно мне?

Есть мнение, что бесконечный цикл в Execute потока создаст лишнюю нагрузку. Устройств может быть больше 300 буквально, плюс каждое устройство имеет в подчинении др. устройства. И все эти устройства просто повесят программу.

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

может посмотреть на тему Thread Pool?

[Человек_Борща]

Пул-потоков и так есть, сейчас это объектный пул.

Общение происходит с сетевым маршрутизатором, который надо опрашивать с интервалом X.
Для запроса:
Создать поток, создать сокет, запросить<=>получить, прибить поток - не вариант. Слишком большая нагрузка создается.

Может можно как-то создать поток 1 раз?

Ну или может я вас не так понял?

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

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

[Человек_Борща]

мм вариант, пойду попробую.

[northener]

Сообщение от Человек_Борща

Доброго времени суток!

Пишу приложение для управления сетевыми девайсами, т.е. программа одновременно работает с несколькими устройствами по сети.

Проблема в том, что когда идет долгая сетевая операция(сокет-клиент ждет ответа от сокет-сервера) - виснет вся программа.

Каким образом можно запихать сетевую часть в поток

Вот что меня реально бесит (сейчас уже не так сильно как лет 10 назад, но всё же) так это то, что почти все кто пишет программы, компоненты, процедуры и функции для Communications думают только о потоках! А про систему событий (Events) встроенную в ОС Windows мало кто помнит. Ну разве только те, кто реально работал под ДОС.
А ведь все проблемы с "управлением сетевыми девайсами" перестали бы быть проблемами, если бы с ними работали так, как они заточены, а не так как "много примеров в И-Нете".

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

думаю проще сказать, что вы имели в виду асинхронные вызовы.

[Человек_Борща]

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

[Человек_Борща]

создается поток на паузе, потом он получает задание, и снимается с паузы, когда он сделал задание он рапортует и встает обратно на паузу.

Что-то я вас не допонимаю...

У меня не просто поток с заданиями, а обычный сетевой сокет, который при каких-то случаях вешает всю программу. Например: указал не тот IP и сиди, жди 30 сек, пока программа отзовется, т.к. сокет ждет ответ от "битого" IP.
Мне надо эту проблему как-то решить.

Но вот как?

Сокет позволяет:
Подключаться по указанному IP, Port, User, Password
Делать запросы
Возвращать объект с данными(Результат запроса)
Отключаться

Как это грамотно ввернуть в TThread?

Пробовал такую хитрость:

  TROSClientThread = class(TThread)
  private
    fClient: TRosApiClient;
  protected
    procedure Execute; override;
  public
    property Client: TRosApiClient read fClient write fClient;
    constructor Create; overload;
    destructor Destroy; override;
  end;
...
{ TROSClientThread }

constructor TROSClientThread.Create;
begin
  inherited Create(true);
  FreeOnTerminate := true;
end;

destructor TROSClientThread.Destroy;
begin
  inherited;
end;

procedure TROSClientThread.Execute;
var
  Cl: TRosApiClient;
begin
  Cl := TRosApiClient.Create;
  try
    fClient := Cl;
    while not Terminated do
    begin
      Sleep(200);
    end;
  finally
    Cl.Disconnect;
    FreeAndNil(Cl);
  end;
end;

Я ожидал, что созданный внутри сокет будет там и через property я спокойно смогу работать через TThread с этим сокетом.
Но что-то не работает оно.

[Lime]

Ваш клиент (TRosApiClient) использует блокирующие сокеты, верно?
Если да то по этой причине и приходится ждать 30 секунд, и во время работы сокета (соединения с несуществующим ип) приходится ждать т.к. поток занят этой работой (ожиданием ответа от железки) и не может выполнять других действий.