//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
FStopScanFlag=false;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
AnsiString IIp;
AnsiString LocalIP=IdIPWatch1->LocalIP();
int IIndex=LocalIP.LastDelimiter(".");
LocalIP=LocalIP.SubString(1,IIndex);
for(int i=0;i<254;i++)
{
IIp=LocalIP+IntToStr(i+1);
IdIcmpClient1->Host=IIp;
IdIcmpClient1->Ping();
Application->ProcessMessages();
if(FStopScanFlag==true)
{
break;
}
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::IdIcmpClient1Reply(TComponent *ASender,
const TReplyStatus &AReplyStatus)
{
if(AReplyStatus.ReplyStatusType==rsEcho)
Memo1->Lines->Add(AReplyStatus.FromIpAddress);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
FStopScanFlag=true;
}
//---------------------------------------------------------------------------