Форум: "Начинающим";
Текущий архив: 2015.03.15;
Скачать: [xml.tar.bz2];
Вниздиапазон ip адресов Найти похожие ветки
← →
kos9k (2014-02-02 23:00) [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.
и как прописать диапазон ip адресов idcmpclnt1.LocalHost:= от 176.194.204.175 до 176.194.204.189 например
← →
KilkennyCat © (2014-02-03 01:39) [1]
> почему не работает программа
потому что написание программы не сводится к тупому копи-пасте из интернета.
вот, например, это место что делает?
except
on e:Exception do
end;
> как прописать диапазон ip адресов idcmpclnt1.LocalHost:=
> от 176.194.204.175 до 176.194.204.189 например
никак.
← →
Inovet © (2014-02-03 01:40) [2]Да он спамит тут по всем разделам этой шнягой.
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2015.03.15;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.002 c