Сканер IP адресов [D6, WinXP]
Ivl © (2003-06-01 18:09:00)
Товарищи, помогите!
Мне надо написать простейший сканер 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:00) [1]
procedure TForm1.ClientSocket1Error(...);
begin
ErrorCode := 0;
Socket.Disconnect(Socket.SocketHandle);
Form1.Caption:="Cоединение НЕ произошло";
end;
Наверх 
ЧАТ |
Орешник |
|
