VPF::Отфильтровать ошибку для комп-а ClientSocket

kiLLProg

Дата 16.8.2009, 03:41 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 39
Регистрация: 1.10.2008

Репутация: нет
Всего: нет

Если при активации ClientSocket'а сервак еще не запущен, то появляется окно с сообщением об ошибки. Я пытаюсь вывести сообщение в основном окне таким способом:

Код


try
    {
      ClientSocket1->Active = true;
    }
    catch (Exception &E)
    {
        ListBox2->Items->Add(E.Message);
    }
 
// или так 
    try
    {
      ClientSocket1->Active = true;
    }
     catch (...)
    {
       ListBox2->Items->Add("Err.")
    }

Не получается (Сообщени об ошибки выводится стандартным способом). Посоветуйте пожалуйста что нужно делать в данной ситуации. Программу не из среды запускал.

smoke_man

Дата 16.8.2009, 09:21 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 447
Регистрация: 25.1.2007
Где: Рязань

Репутация: 9
Всего: 17

Используй OnError TClientSocket`а:

Код


/---------------------------------------------------------------------------

void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
   ClientSocket1->Active = true;     
}
//---------------------------------------------------------------------------

void __fastcall TForm1::ClientSocket1Error(TObject *Sender,
      TCustomWinSocket *Socket, TErrorEvent ErrorEvent, int &ErrorCode)
{                             
      ClientSocket1->Active = false;
      ShowMessage("Error");
      ErrorCode = 0;
}
//---------------------------------------------------------------------------

--------------------

0x2b|~0x2b

kiLLProg

Дата 17.8.2009, 03:29 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 39
Регистрация: 1.10.2008

Репутация: нет
Всего: нет

Спасибо, помогло. Буду знать.

Platov

Дата 17.8.2009, 07:46 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 155
Регистрация: 23.7.2009

Репутация: 2
Всего: 2

Вот универсальный способ замены любых сообщений с ошибками на свои:

в листинг проги добавь
//---------------------------------------------------------------------------
void __fastcall TForm1::MyException(TObject *Sender,Exception *E)
{
AnsiString err=E->Message;
err=err.Delete(1,err.Pos("#"));
ShowMessage("Ошибка!\r\n\r\n "+err);

}

//---------------------------------------------------------------------------
//---------------------------------------------------------------------------

void __fastcall TForm1::FormCreate(TObject *Sender)
{
Application->OnException=MyException;
}
//---------------------------------------------------------------------------

ну и в заголовочный файл..

void __fastcall MyException(TObject *Sender,Exception *E);

Можно анализировать err и выдавать разные сообщения для разных ошибок

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| C++ Builder \| Следующая тема »