| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
ClientSocketError [D5, D6, Win95/98, Win2k]
Shrek © (2002-07-07 12:25:00)Привет Народ! Помогите пожалуйста! Я пишу клиента для сервера. Проблема вот в чем, если сервер не запущен то приложение выдает ошибку я конечно обрабатываю его, но потом приложение выдаёт стандартное сообщение "Asynchronous socket error 10061."
Как быть?.. Помогите!
Это не работает... После моего сообщения выдаёт стандартное сообщение.
procedure TForm1.ClientSocket1Error(Sender: TObject;
Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
var ErrorCode: Integer);
begin
if ErrorCode = 10061 then
MessageDlg("Server is not found...", mtInformation, [mbOK], 0);
end;
Wizard_Ex (2002-07-07 19:25:00) [1]Повторяю еще раз
Кинь на форму ApplicationEvents
и на событие onExeption
напиши чего-нибудь
и все пройдет
Все остальное редкий наверно случай, но бывает и не у всех
Gonza (2002-07-07 13:57:00) [2]
> procedure TForm1.ClientSocket1Error(Sender: TObject;
> Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
> var ErrorCode: Integer);
> begin
> if ErrorCode = 10061 then
> MessageDlg("Server is not found...", mtInformation,
> [mbOK], 0);
ErrorCode:=0;// Вот и все что надо
> end;
wk (2002-07-07 13:51:00) [3]procedure TForm1.ClientSocket1Error(Sender: TObject;
Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
var ErrorCode: Integer);
begin
if ErrorCode = 10061 then
begin
ErrorCode = 0; MessageDlg("Server is not found...", mtInformation, [mbOK], 0);
end;
end;
Работает безотказно!
Polevi (2002-07-07 13:40:00) [4]procedure TForm1.ClientSocket1Error(Sender: TObject;
Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
var ErrorCode: Integer);
begin
ErrorCode = 0
end;
Wizard_Ex (2002-07-07 13:01:00) [5]Кинь на форму ApplicationEvents
и на событие onExeption
напиши чего-нибудь
и все пройдет
Shrek (2002-07-07 12:45:00) [6]Люди сжальтись надо мною помогите пажалуйста.
| |
