Чекер дедиков на дельфи, реально ли?

[haruhi]

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

Одного не пойму, неужели команду ping уже отменили? Я имею ввиду консольную команду? Я лично пингую сервер, чтоб узнать не лежит ли он или есть ли с ним связь.

после нескольких мощнейших DDoS атак посредством ping запросов, маршрутизаторы начали блокировать ICMP-запросы ещё на дальних подступах к серверам (не ко всем конечно, а к тем которые могут стать жертвой DDoS атаки). ping это не надёжный вариант

[Shouldercannon]

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

Как это? О_О

procedure TForm1.Button1Click(Sender: TObject);
var
  PoolStart, PoolEnd, Ping: Integer;
begin
  PoolStart := GetTickCount; // В начале опроса
  PoolEnd := GetTickCount; // В конце опроса
  Ping := PoolEnd - PoolStart; // Время затраченное на опрос = Пинг
  Caption := IntToStr(Ping) + ' ms';
end;

[GunSmoker]

Ну так если не имеешь представления, то и помочь не получится..

Отжёг.

Ты в курсе, что под определение "выделенный сервер" подходит куча вещей? Равно как и под определение "грузовой автомобиль" подходит самосвал, фура, тягач и карьерный грузовик - согласись, весьма разные вещи. И что конкретно ты имеешь в виду своими словами - одному тебе ведомо. Извини, что не умеем читать твои мысли.

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

[Lime]

[оффтопик]
Человек форумом ошибся, ему к кулхацкерам надо, там валиды невалиды и дедики...
[/оффтопик]