Программирование на C / C++ / Курсовая работа - Протокол TCP / skan

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "skan.h"
#include "main.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm2 *Form2;
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Edit1KeyPress(TObject *Sender, char &Key)
{
if(ChkEdit(Edit1->Text.Length(),Key))
{
Key=0;
MessageBeep(0);
}	
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Edit2KeyPress(TObject *Sender, char &Key)
{
if(ChkEdit(Edit2->Text.Length(),Key))
{
Key=0;
MessageBeep(0);
}
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Edit3KeyPress(TObject *Sender, char &Key)
{
if(ChkEdit(Edit3->Text.Length(),Key))
{
Key=0;
MessageBeep(0);
}
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Edit4KeyPress(TObject *Sender, char &Key)
{
if(ChkEdit(Edit4->Text.Length(),Key))
{
Key=0;
MessageBeep(0);
}
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Edit5KeyPress(TObject *Sender, char &Key)
{
if(ChkEdit(Edit5->Text.Length(),Key))
{
Key=0;
MessageBeep(0);
}
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Edit6KeyPress(TObject *Sender, char &Key)
{
if(ChkEdit(Edit6->Text.Length(),Key))
{
Key=0;
MessageBeep(0);
}
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Edit7KeyPress(TObject *Sender, char &Key)
{
if(ChkEdit(Edit7->Text.Length(),Key))
{
Key=0;
MessageBeep(0);
}
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Edit8KeyPress(TObject *Sender, char &Key)
{
if(ChkEdit(Edit8->Text.Length(),Key))
{
Key=0;
MessageBeep(0);
}
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button1Click(TObject *Sender)
{
String ip=TestIP();
String tmp[4];
int count=0;
if(ip!="WinSock ERR")
{
	for(int x=0;x<ip.Length();x+=1)
	{
			if(ip.c_str()[x]!='.')
			{
				tmp[count]=tmp[count]+ip.c_str()[x];
			}
			else
			count+=1;

	}
Edit1->Text=tmp[0];
Edit2->Text=tmp[1];
Edit3->Text=tmp[2];
Edit4->Text=tmp[3];
Edit5->Text=tmp[0];
Edit6->Text=tmp[1];
Edit7->Text=tmp[2];
Edit8->Text=tmp[3];
}
else ShowMessage("WinSock error!\n\rПроверьте настройки сети!");
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button2Click(TObject *Sender)
{
Edit4->Text="0";
Edit8->Text="255";	
}
//---------------------------------------------------------------------------

void __fastcall TForm2::Button4Click(TObject *Sender)
{
Form2->Close();	
}
//---------------------------------------------------------------------------


void __fastcall TForm2::Button3Click(TObject *Sender)
{
for(int x=StrToInt(Edit1->Text);x<=StrToInt(Edit5->Text);x+=1)
for(int y=StrToInt(Edit2->Text);y<=StrToInt(Edit6->Text);y+=1)
for(int z=StrToInt(Edit3->Text);z<=StrToInt(Edit7->Text);z+=1)
for(int n=StrToInt(Edit4->Text);n<=StrToInt(Edit8->Text);n+=1)
{
if(x>255 || y>255 || z>255 || n>255)
goto end;
Form1->IdTCPClient1->Host=IntToStr(x)+"."+IntToStr(y)+"."+IntToStr(z)+"."+IntToStr(n);
Form1->IdTCPClient1->Port=2457;//Выставляем порт для файлов
try{
Form1->IdTCPClient1->Connect();  //Подключаемся
}
catch(...){}//Если не подключиличь
if(Form1->IdTCPClient1->Connected()){//Если подключились
ListBox1->Items->Add(Form1->IdTCPClient1->Host);
Form1->IdTCPClient1->Socket->WriteLn("");
Form1->IdTCPClient1->Disconnect();//Отключаемся
}
end:
}
ShowMessage("Закончили");
}
//---------------------------------------------------------------------------

void __fastcall TForm2::Button5Click(TObject *Sender)
{
Form1->ListBox1->Items->AddStrings(ListBox1->Items);	
}
//---------------------------------------------------------------------------