|
Вопрос # 97/ вопрос открыт / |
|
Доброе время суток, господа Программисты. Подскажите пожалуйста. При запуске сокета, если нужный комп выключен вылетает виндю сообщение и программа перестает работать. Как сделать, что сообщение не вылетало, а програма продолжала работать? Заранее благодарен!!! Жду вашего ответа.
 |
Вопрос задал: Geron (статус: 1-ый класс)
Вопрос отправлен: 12 августа 2006, 15:51
Состояние вопроса: открыт, ответов: 2.
|
Ответ #1. Отвечает эксперт: Виталий Лещенко
Здравствуйте, Гринько Виктор Генадьевич!
Можно код подключения к серверу завернуть в
try
// тут код подключения
except
// тут код обработки исключения...
end;
Подробнее про исключения можно почитать здесь
http://vitaliy.org/book/delphi/delphi_7_04.php
 |
Ответ отправил: Виталий Лещенко (статус: 4-ый класс)
Время отправки: 13 августа 2006, 22:55
|
Ответ #2. Отвечает эксперт: Матвеев Игорь Владимирович
Здравствуйте, Гринько Виктор Генадьевич!
Конструкция try/except/finally в данном случае не поможет, Вы должны обрабатывать событие OnError, установите var-параметр ErrorCode в 0 и сообщение не будет показанно.
Приложение: Переключить в обычный режим- procedure TForm1.ClientSocket1Error(Sender: TObject;
- Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
- var ErrorCode: Integer);
- begin
- ErrorCode := 0;
- end;
Мини-форум вопроса
Мини-форум пуст.
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|