Скачать: CL | DM;

Ping   Найти похожие ветки 

← →
Ден99   (2014-02-01 19:37) [0]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, IdBaseComponent, IdComponent, IdRawBase, IdRawClient,
IdIcmpClient, StdCtrls;

type
TForm1 = class(TForm)
  btn1: TButton;
  lst1: TListBox;
  idcmpclnt1: TIdIcmpClient;
  procedure btn1Click(Sender: TObject);
  procedure idcmpclnt1Reply(ASender: TComponent;
    const AReplyStatus: TReplyStatus);
private
  { Private declarations }
public
  { Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
begin
idcmpclnt1.Host:="176.194.204.175";
idcmpclnt1.ReceiveTimeout:=100;
idcmpclnt1.Ping("32");
Caption:=IntToStr(idcmpclnt1.ReplyStatus.MsRoundTripTime)
end;

procedure TForm1.idcmpclnt1Reply(ASender: TComponent;
const AReplyStatus: TReplyStatus);
begin
try
if idcmpclnt1.Host=AReplyStatus.FromIpAddress then lst1.Items.Add (AReplyStatus.FromIpAddress);
except
on e:Exception do
end;

end;
end.

В чем проблема почему не работает, подскажите пожалуйста!

---

← →
Ден99   (2014-02-01 19:37) [1]

Удалено модератором
Примечание: СПАМ

---

← →
Ega23 ©   (2014-02-01 20:15) [2]

for i := 5 to 9 do
 LocalHost := Format("176.194.204.17%d", [i]);

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.002 c