Как узнать пинг до сайта?

[TwiX]

Как узнать пинг до сайта?

[Alt]

Узнать сервер, на котором сайт, и вот: http://speedtest.net/

[uberchel]

Пуск-> выполнить->ping сайт.ru без http://

[-MagicAlex-]

Если на Делфи надо написать утилиту пинга, то изучайте функцию IcmpSendEcho() из библиотеки ICMP.DLL

[Denager]

TwiX, Писал программу для настройки dsl-модемов ZyXel, там проверялось соединение именно пингом с девайсов, исходник прикрепляю. Реализовано через icmp
Время отклика, которое необходимо - закомментировано) Вообщем, разберетесь

[TwiX]

Спасибо.
Но есть одна ошибочка...

[DCC Error] Unit1.pas(28): E2065 Unsatisfied forward or external declaration: 'inet_addr'

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, icmp;



type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;



var
  Form1: TForm1;

Procedure Ping(const Address, EchoString: PChar;var PingReply: TsmICMP_Echo_Reply;
const PingTimeout: Integer = 500);
Function inet_addr (IPAddress: PChar): TipAddr; StdCall;


implementation

{$R *.dfm}


procedure Ping(const Address, EchoString: PChar;
  var PingReply: TsmICMP_Echo_Reply; const PingTimeout: Integer = 500);
var
  IPAddress: TipAddr;
  ICMPPort: THandle;
begin
  //IPAddress := inet_addr(Address);
  if (IPAddress = -1) then
  begin
    raise Exception.Create('Function call inet_addr failed. ' +
        'The IP address is probably invalid.');
  end;
  ICMPPort := IcmpCreateFile();
  if (ICMPPort = INVALID_HANDLE_VALUE) then
  begin
    raise Exception.Create('Function call IcmpCreateFile failed.');
  end;
  IcmpSendEcho(ICMPPort, IPAddress, EchoString, Length(EchoString), nil,
    @PingReply, SizeOf(PingReply), PingTimeout);
  IcmpCloseHandle(ICMPPort);
end;




procedure TForm1.Button1Click(Sender: TObject);
var
  Reply:TsmICMP_Echo_Reply;
begin
    Ping (PChar('192.168.1.1'),nil,Reply,5000);
      if Reply.Status=0 then
        Form1.caption:='[Modem Connected]' else
          Form1.caption:='[Modem Not Connected]';
          {Ниже ответ сервера и если удачнй - то время в мс}
        //MainForm.memo1.Lines.Add(PingStatusToStr(Reply.Status)+' '+MainForm.PingEdit.Text+' = '+IntToStr(Reply.RoundTripTime)+'мс')
          //else MainForm.memo1.Lines.Add(PingStatusToStr(Reply.Status));
    //Sleep(1000);
end;

end.

[raxp]

смотрю пример с одной и той-же "невнимательностью" кочует от исходника к исходнику...

 function inet_addr(IPAddress: PChar): TipAddr; StdCall;external 'WSock32.Dll';

[TwiX]

Спасибо, помогло)
Жалко что адреса типа www.**.ru нельзя проверить...

[raxp]

можно... смотрим в генофонд winsock и находим...

function gethostbyname;     external    winsocket name 'gethostbyname';

...
использование
ip := gethostbyname('www.mail.ru');

[Квэнди]

Indy idicmpclient ....