Код: Выделить всё
. . .
int p=1, t=1;
//---------------------------------------------------------------------------
__fastcall TMain::TMain(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TMain::NMEcho1Connect(TObject *Sender)
{
Memo1->Lines->Add(IntToStr(NMEcho1->Port)+ " порт открыт на "+NMEcho1->Host);
NMEcho1->Disconnect();
if(p<StrToInt(EndPort->Text))
{
t++;
p+=t;
NMEcho1->Port=p;
NMEcho1->Host=(IPEdit->Text);
NMEcho1->TimeOut=StrToInt(TimeEdit->Text);
PortNow->Text=p;
NMEcho1->Connect();
}
}
//---------------------------------------------------------------------------
void __fastcall TMain::StartScanClick(TObject *Sender)
{
NMEcho1->Disconnect();
//t=1;
try
{
p=StrToInt(StartPort->Text);
//p=t;
NMEcho1->Port=p;
NMEcho1->Host=(IPEdit->Text);
NMEcho1->TimeOut=StrToInt(TimeEdit->Text);
PortNow->Text=p;
NMEcho1->Connect();
}
catch(ESockError&)
{
}
}
//---------------------------------------------------------------------------
void __fastcall TMain::NMEcho1ConnectionFailed(TObject *Sender)
{
NMEcho1->Disconnect();
if(p<StrToInt(EndPort->Text))
{
t++;
p+=t;
NMEcho1->Port=p;
NMEcho1->Host=(IPEdit->Text);
NMEcho1->TimeOut=StrToInt(TimeEdit->Text);
PortNow->Text=p;
NMEcho1->Connect();
}
}
Спасибо.