TIdTCPServer грузит процесоор

[Hottabych]

Добрый день!
Вопрос такой: Сервер и клиент в одном процессе. При подключении клиента (idtcpclient) процесс начинает жрать 50% процессорного времени (2хядерный проц).

С чем это может быть связано? Обработчик OnExecute пустой... Пишу с работы, нет возможности описать всё подробно... Хотел бы услышать ваши предположения, пока не разберусь сам)

[ZuBy]

код показывай

[Hottabych]

Покажу вечером, пока описываю общими словами, проблему телепатов понимаю, поэтому прошу какого-нить намека на известные грабли при работе с idtcp, при которых поток уходит в завис и жрет 100% времени процесса.

[Hottabych]

Делаю классы-обертки для вышеуказанных компонентов. Для удобства и унификации для последующих приложений. Код примитивный (в данном случае), типа IdTCPServer.Active:=true, IdTCPClient.Connected;

Похоже, что это проблема TIndy, т.к. запустил откомпиленные exe-шники из примеров по indy (чат) - та же самая картина - при подключении клиента сервер начинает жрать машинное время.
Кто что думает по этому поводу?

[Stilet]

Кто что думает по этому поводу?

Инди какой версии? Я использую 10-ю, таких проблем не наблюдаю.

[Hottabych]

Версия 10, rad xe4
Может быть нужно как-то управлять выполнением потоков? Очень похоже на то, что при подключении клиента в новом потоке начинает выполняться в бесконечном цикле OnExecute со своими проверками наличия соединения и т.п., что и приводит к сабжу. Хотя, в принципе, так и задумано... В общем, я в раздумье, куда копать.
ps. У меня обработчик OnExecute пустой.
pps. Появилась идея отбилдить в release конфигурации, может поможет.

Да ну нафиг, Stilet, я же писал выше:

т.к. запустил откомпиленные exe-шники из примеров по indy (чат) - та же самая картина - при подключении клиента сервер начинает жрать машинное время.

Причем скачал вообще случайный архив с исходниками и бинарниками откуда-то с форума.

Эти самые экзешники проверял на разных компах - результат тот же самый.
Насколько я понял, есть такой код:

procedure TIdThread.Execute;
begin
  // Must make this call from INSIDE the thread. The call in Create
  // was naming the thread that was creating this thread. :(
  //
  // RLebeau - no need to put this inside the try blocks below as it
  // already uses its own try..except block internally
  if Name = '' then begin
    Name := 'IdThread (unknown)';
  end;
  SetThreadName(Name);

  try
    BeforeExecute;
    try
      while not Terminated do begin
        if Stopped then begin
          DoStopped;
          // It is possible that either in the DoStopped or from another thread,
          // the thread is restarted, in which case we dont want to restop it.
          if Stopped then begin                        
            if Terminated then begin
              Break;
            end;
            // Thread manager will revive us
            {$IFDEF DEPRECATED_TThread_SuspendResume}
            Suspended := True;
            {$ELSE}
            Suspend;
            {$ENDIF}
            if Terminated then begin
              Break;
            end;
          end;
        end;

        Include(FOptions, itoReqCleanup);
        try
          try
            try
              BeforeRun;
              if Loop then begin
                while not Stopped do begin
                  try
                    Run;
                  except
                    on E: Exception do begin
                      if not HandleRunException(E) then begin
                        Terminate;
                        raise;
                      end;
                    end;
                  end;
                end;
              end else begin
                try
                  Run;
                except
                  on E: Exception do begin
                    if not HandleRunException(E) then begin
                      Terminate;
                      raise;
                    end;
                  end;
                end;
              end;
            finally
              AfterRun;
            end;
          except
            Terminate;
            raise;
          end;
        finally
          Cleanup;
        end;
      end;
    finally
      AfterExecute;
    end;
  except
    on E: Exception do begin
      FTerminatingExceptionClass := E.ClassType;
      FTerminatingException := E.Message;
      DoException(E);
      Terminate;
    end;
  end;
end;

Который выполняется в потоке созданного контекста. И все ресурсы забирает цикл

if Loop then begin
                while not Stopped do begin
                  try
                    Run;
                  except
                    on E: Exception do begin
                      if not HandleRunException(E) then begin
                        Terminate;
                        raise;
                      end;
                    end;
                  end;
                end;

Короче, ухожу я с инди, наверное, буду изобретать велосипед или скачивать ics)

[Stilet]

И все ресурсы забирает цикл

Не удивительно. Поставь в него sleep(10) и нагрузка упадет.

Да ну нафиг

Я не спорю с тобой, примеры тоже могут быть далеки от идеала.

[Hottabych]

Stilet, спасибо, о sleep я как-то не подумал)