چک کردن اتصال به اینترنت

[Mask]

سلام
میشه لطفا بفرمایید که چطوری میشه؟ و کمکم کنید؟

کافیه یه کامپوننت icmp بزارید روی فرمتون.

procedure TForm1.IdIcmpClient1Reply(ASender: TComponent;  const AReplyStatus: TReplyStatus);

begin

   memo1.lines.Add(inttostr(i)+'- host '+AReplyStatus.FromIpAddress+'  sent '+inttostr(AReplyStatus.BytesReceived)+' bytes date in '+IntToStr(AReplyStatus.MsRoundTripTime)+' ms.');

end;





procedure TForm1.Button1Click(Sender: TObject);

begin

   IdIcmpClient1.ReceiveTimeout:=SpinEdit2.Value;

   IdIcmpClient1.Host:=edit1.Text;

   for i:=1 to SpinEdit1.Value do IdIcmpClient1.Ping('',0);

   memo1.Lines.Add('-----------------------------------------------------------------------------------------');

end;





procedure TForm1.IdIcmpClient1Reply(ASender: TComponent;

  const AReplyStatus: TReplyStatus);

begin

   memo1.lines.Add(inttostr(i)+'- host '+AReplyStatus.FromIpAddress+'  sent '+inttostr(AReplyStatus.BytesReceived)+' bytes date in '+IntToStr(AReplyStatus.MsRoundTripTime)+' ms.');

end;