| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

диапазон ip адресов

kos9k ©   (2014-02-02 23:00:00) 

Добрый день! не могу понять почему не работает программа??? Подскажите, пожалуйста
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.

и как прописать диапазон ip адресов idcmpclnt1.LocalHost:= от 176.194.204.175 до 176.194.204.189 например

---

Inovet   (2014-02-03 01:40:00) [1]

Да он спамит тут по всем разделам этой шнягой.

---

KilkennyCat   (2014-02-03 01:39:00) [2]

> почему не работает программа

потому что написание программы не сводится к тупому копи-пасте из интернета.

вот, например, это место что делает?
except
on e:Exception do
end;


> как прописать диапазон ip адресов idcmpclnt1.LocalHost:=
> от 176.194.204.175 до 176.194.204.189 например

никак.

---

Наверх