TIdTelnetServer в INDY10 загружает процессор на простейшей задаче

[an_private]

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

Весь код сервера крутится в отдельном Thread'е.
Проблема в том, что каждый подключившийся клиент добавляет примерно 15% загрузки процессора Core i7 То есть выглядит это примерно так:
- нет клиентов, загрузка нулевая
- подключился первый клиент - загрузка 15%
- подключился второй клиент - загрузка 30%
и т.д.
Причём это не зависит от того - пересылаем мы что-нибудь по telnet или нет. Коннект произошёл - сразу загрузка процессора, независимо ни от чего.
Что это? Кто-нибудь сталкивался?

[Stilet]

25 раз в секунду.

Не многовато ли?

[an_private]

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

Не многовато ли?

Неа. Передаётся тайм-код каждого кадра видео. 25 к/с - 25 посылок. В каждой посылке всего 12 байт.

Да и не в объемах дело. Я пробовал вообще ничего не пересылать - загрузка процессора всё равно начинается сразу после коннекта клиента.

[Stilet]

Ну нужно смотреть код... Если у тебя цикл бесконечный или долгий, то понятно что грузить будет.

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

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

[an_private]

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

Ну нужно смотреть код... Если у тебя цикл бесконечный или долгий, то понятно что грузить будет.

Закомменчивание всего внутри while not Terminated do begin (исключая Sleep, конечно) нагрузку на проц не снижает. То есть даже если Telnet сервер крутится вхолостую - без какого-либо вмешательства с моей стороны - всё равно процессор грузится.

procedure NetThread.Execute;
var
  i: integer;
  ContextList: TList;
  tcstring: string;
begin
  IdTelnetServer := TIdTelnetServer.Create;
  IdTelnetServer.Bindings.Add.Port := MainUnit.ListenPort;
  IdTelnetServer.LoginMessage := 'timecode';

  IdTelnetServer.Active := true;

  while not Terminated do begin
    if MainUnit.NetTCisReady then begin
      ContextList := IdTelnetServer.Contexts.LockList;
      for i:=0 to ContextList.Count - 1 do begin
        with MainUnit.NetTC do begin
          tcstring := format('%2.2d:%2.2d:%2.2d:%2.2d',
            [Hours, Minutes, Seconds, Frames]);
        end;
        try
          TIdContext(ContextList.Items[i]).Connection.IOHandler.Writeln(tcstring);
        finally
        end;
      end;
      IdTelnetServer.Contexts.UnlockList;
      MainUnit.NetTCisReady := false;
    end;
    Sleep(20);
  end;

  ContextList := IdTelnetServer.Contexts.LockList;
  for i:=0 to ContextList.Count - 1 do begin
    try
      TIdContext(ContextList.Items[i]).Connection.Disconnect;
    finally
    end;
    Sleep(1000);
  end;
 IdTelnetServer.Contexts.UnlockList;
end;

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

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

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

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

сама выдача данных проц не нагружает - я уже писал об этом.

зато while BOOLEAN нагружает хорошо так...

Клиент не будет спрашивать данные каждые несколько миллисекунд.

С чего бы это?
Принимать 25 в секунду можно, а просить нельзя? бред.

И ещё, сокет блокирующий али не?

[an_private]

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

зато while BOOLEAN нагружает хорошо так...

Никак не нагружает. Так как пока нет коннекта со стороны клиента - загрузка проца нулевая. А ведь цикл в это время точно также крутится.

С чего бы это?
Принимать 25 в секунду можно, а просить нельзя? бред.

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

И ещё, сокет блокирующий али не?

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

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

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

MainUnit.NetTCisReady := false;

завернуть в Synchronize.

Создать try/finally.

Никак не нагружает. Так как пока нет коннекта со стороны клиента - загрузка проца нулевая. А ведь цикл в это время точно также крутится.

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

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

Сдается мне, Вы задачу странно решаете. Опишите, зачем вам вообще такая точность?

Как минимум с того, что не убрав while false, от нагрузи вы не избавитесь.

[an_private]

Всё, я разобрался. Оказывается TIdTelnetServer обязательно требуется обработчик OnExecute. Если он есть (даже пустой) - загрузка падает до нуля. Если его нет - что-то у него в мозгах портится. Добавил обработчик и всё прекрасно работает.