[ping]

[unbanned]

вообщем программка получает время приема-передачи до сервера. 10 запросов по 32 байта. реализована через ICMP.
вопрос в следующем... в списке 8 серверов. если запускаю сразу 8 потоков получается что время пинга немного отличается, если про пинговать все сервера по очереди)
может быть из-за загруженности канала? или это косяк в реализации потоков? и каким образом будет правильнее организовать пинг списка серверов?

[Баламут]

А к такому выводу привели серьезные исследования? Нет, я не придираюсь. Правда интересно. Просто ради интереса запустил сейчас тест и в какой-то момент мне тоже так показалось. Но погоняв его подольше что-то разницы не заметил. Особенно в части среднего времени

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

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

Пакеты маленькие.

[unbanned]

2 Баламут, никаких серьезных исследований раз 5 прогнал с потоками, раз 5 по очереди... в итоге пришел к выводу, что если пинговать сервера по очереди, то среднее время получается меньше. вполне возможно показалось... теперь я уже не так уверен.

что касается кода...

сильно не ругаться, я только учусь

ну собственно получается так)
глобально объявлена переменная типа Tstringlist
в нее из текстовика подгружается список серверов.

при создании потока передается номер сервера...

procedure TForm1.mStartThread(n: integer);
var
  NewThread: TNewThread;
begin
  NewThread := TNewThread.Create(true);
  NewThread.FreeOnTerminate := true;
  NewThread.Priority := tpLower;
  NewThread.serv_no := n;
  NewThread.Resume;
end;

type
  TNewThread = class(TThread)
  private
    serv_no: integer;
    ping: integer;
    procedure addping;
    procedure getping;
    { Private declarations }
  protected
    procedure Execute; override;
  end;

procedure TNewThread.Execute;
begin
  inherited;
  getping;
  Synchronize(addping);
end;

procedure TNewThread.getping;
begin
  ping := Form1.check(PChar(servers.strings[serv_no-1]));
end;

[unbanned]

нечаянно продублировал сообщение

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

Мат. часть читать, мигом!
НИКОГДА, вообще НИКОГДА из потока не сунуться в форму если метод не синхронизируется. Отсюда и все ваши тормоза.

[unbanned]

дык читал вроде. Насколько я понял синхронизировать надо если что-то изменяется на форме? Например вывод значений пинга в memo. У меня это процедура addping. Синхронизирована check, это просто функция описанная в форме. Грубо говоря она не обращается и не изменяет ни каких компонентов на форме. В этом случае тоже нужна синхронизация?

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

В этом случае тоже нужна синхронизация?

Синхронизация нужна в любом случае обращения к форме.

[unbanned]

спасибо исправлю. наверное, правильнее будет описать эту процедуру в потоке