Форум: "Сети";
Текущий архив: 2003.08.07;
Скачать: [xml.tar.bz2];
ВнизСканер 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;
Страницы: 1 вся ветка
Форум: "Сети";
Текущий архив: 2003.08.07;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.013 c