Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Сети";
Текущий архив: 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.008 c
14-20674
Igit
2003-07-22 21:48
2003.08.07
Защита программ Delphi


3-20456
Paha
2003-07-17 13:57
2003.08.07
Поток и Query


1-20540
Vintik
2003-07-26 15:33
2003.08.07
Как сделать горячие клавиши?


14-20738
Cmenil
2003-07-20 16:42
2003.08.07
Вот как узнать когда...


14-20706
Rouse_
2003-07-15 01:06
2003.08.07
Мастера улыбаются - 3





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский