|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
Очень легкий вопрос
вот простая процедура сокета. как видно при ошибке подключения в мемо запишется что подключение сорвано. Нужно что бы НЕ вылетало окошко message от windows что подключится не удалось. я знаю что это можно через try except но как его сюда воткнуть не знаю.
Код:
procedure TForm1.cs1Error(Sender: TObject; Socket: TCustomWinSocket; ErrorEvent: TErrorEvent; var ErrorCode: Integer); begin if (ErrorCode>10013) and (ErrorCode<11020) then smemo1.lines.add('Connection failed'); end; |
#2
|
|||
|
|||
вот так я думаю должно помочь
Код:
procedure TForm1.cs1Error(Sender: TObject; Socket: TCustomWinSocket; ErrorEvent: TErrorEvent; var ErrorCode: Integer); begin try if (ErrorCode>10013) and (ErrorCode<11020) then smemo1.lines.add('Connection failed'); except end; end; |
#3
|
||||
|
||||
Помоему после проверки нужно установить ErrorCode в ноль
Кнопка "+" - весы в правом верхнем углу сообщения... |
#4
|
|||
|
|||
Спасибо всем. ErrorCode:=0 попробовал - помогло.
А как быть если нет переменной Errorcode и что бы не использовать Abort? |