Главная страница
    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.013 c
3-20428
Алексей
2003-07-17 09:37
2003.08.07
Конвертация DBF в DB


1-20541
Николай В.
2003-07-23 15:36
2003.08.07
XML


14-20718
snake1977
2003-07-23 16:52
2003.08.07
Viersion info


1-20520
alois
2003-07-19 11:09
2003.08.07
Запуск файла из командной строки


1-20557
JS
2003-07-23 19:48
2003.08.07
TRegistry.SaveKey





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский