VPF::Пинг - Форум программистов

darkmamba

Дата 13.1.2009, 23:24 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 98
Регистрация: 16.10.2008

Репутация: 1
Всего: 1

Пинг - это время отклика компьютера(сервера), в моем представлении. Помогите пожалуйста доделать свою первую програмулину, суть которой состоит в мониторинге серверов. Использутся протокол UDP, компонент Indy. Я делаю запрос, мне приходит ответ, нужно высчитать разницу во времени и все было бы ничего, если сервер был бы один, у меня их около 40. Я вот как хотел сначала сделать - отправляем запрос на какойто адрес, включаем таймер(или может просто системное время сверять? вроде там до милисек или я ошибаюсь?), этот адрес пихаем в масив, по приходу пакета смотрим на его адрес, ищем в масиве, если находим выключаем таймер(или считаем разницу во времени). Вообщем у меня сомнения на счет компонента Timer, и как его запустить в несколько потоков? Нужно свежее решение, желательно с небольшим примерчиком )

Код


procedure TForm1.udpUDPRead(Sender: TObject; AData: TStream;
  ABinding: TIdSocketHandle);
var
str : TstringStream;
pkt : string;
begin
str:=tstringstream.Create('');
try
  str.CopyFrom(AData, AData.Size);
  pkt:=str.DataString;
finally
  str.Free;
end;
  if POS(#$FF+#$FF+#$FF+#$FF,pkt) = 1 then begin
  delete(pkt,1,4);
    case pkt[1] of
      #$6D: ParseGoldSourse(pkt);
      #$49: ParseShipServer(pkt);
      #$41: Answer(pkt);
      #$44: ParsePlayersInfo(pkt);
    end;
  end;
end;

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »