Сканер IP адресов

← →
Ivl (2003-06-01 18:09) [0]

Товарищи, помогите!

Мне надо написать простейший сканер IP адресов и я использую компонент TClientSocket :

procedure TForm1.Button1Click(Sender: TObject);
begin
ClientSocket1.Host := Edit1.Text;
ClientSocket1.Port := StrToInt(Edit2.Text);
try
ClientSocket1.Open;
except
Form1.Caption:="Соединения не произошло";
end;
end;
procedure TForm1.ClientSocket1Connect(Sender: TObject;
Socket: TCustomWinSocket);
begin
Form1.Caption:="Cоединение произошло";
ClientSocket1.Close;
end;

В программе я в поля редакотров Edit ввожу IP и порт(я лично ввожу 21 так как у нас локальная сеть и есть ФТП) после этого жму на Button1 якобы проверить открыт ФТП или нет если открыт то всё путём но если закрыт через некоторое время после нажатия на Button1 вылезает окно с ошибкой : ...."Asynchronous socket error 10060" . Скажите как обработать это исключение!

← →
Digitman (2003-06-02 09:46) [1]

procedure TForm1.ClientSocket1Error(...);
begin
ErrorCode := 0;
Socket.Disconnect(Socket.SocketHandle);
Form1.Caption:="Cоединение НЕ произошло";
end;

Сканер IP адресов Найти похожие ветки