Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.10.16;
Скачать: CL | DM;

Вниз

Ошибка работы с сокетами   Найти похожие ветки 

 
SergK   (2003-08-18 16:58) [0]

Кто знает, как перехватить выскакивание виндовой ошибки Asinchronous socket error 10061? Возникает она, если пытаться коннектиться ч/з TClientSocket к закрытому порту. Код типа:
try
ClientSocket1.Open;
except
Application.MessageBox("Not listened", "O-o-p-s!");
end;

не посогает, т.к. секция except проскакивает прежде, чем Open ответ от сервера.


 
Polevi ©   (2003-08-18 17:37) [1]

ErrorCode:=0 в OnError


 
Digitman ©   (2003-08-19 14:24) [2]

либо ДО ClientSocket1.Open установи св-во ClientType := ctBlocking


 
Evgeny V ©   (2003-08-20 05:58) [3]

Для асинхронных сокетов можно перехватить ошибку на уровне Application Application->OnException=MyException;
void __fastcall TForm1::MyException(TObject * Sender, Exception * E)
{
//TODO: Add your source code here
if (String(E->ClassName())=="ESocketError")
{
//что-то делаем
}
}//код на си++ билдер
Или использовать компонент TApplicationEvents, в нем прописать событие On Exception аналогично



Страницы: 1 вся ветка

Текущий архив: 2003.10.16;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.026 c
1-51222
Aleksandr
2003-10-03 18:35
2003.10.16
Как выгрузить свой ComObject?


3-51144
T{}r(l-l
2003-09-24 14:48
2003.10.16
Как копировать таблицы из одной базы в другую?


1-51207
leonidus
2003-10-03 09:51
2003.10.16
Компоненты в стиле XP


3-51103
lopatkin
2003-09-26 17:21
2003.10.16
В Delphi 7 - Either BOF or EOF is True, or the current... почему?


6-51377
Blondin
2003-08-19 14:21
2003.10.16
idPOP3 - Coding table entry not found