Discussion :

[jagboys]

Bonjour,

Dans mon programme j'utilise un composant TSocketClient pour communiquer avec un serveur. Lorsqu'il y a une erreur, le composant génère une erreur ESocketError et célà affiche un fenetre supplémentaire. Afin d'eviter celà j'ai mis un "try" & "catch" pour bypasser l'erreur. Mais j'ai toujours le fenetre d'erreur :

Voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
/---------------------------------------------------------------------------
bool __fastcall TVFM::MessageSend(AnsiString Message)
{
        try
        {
                int n = 0;
                n = CliSock->Socket->SendText(Message);
                if(n != 0)
                        return true;
                else
                        return false;
        }
        catch(ESocketError& e)
        {
                return false;
        }
}
 
//---------------------------------------------------------------------------
void __fastcall TVFM::Button1Click(TObject *Sender)
{
        AnsiString m = FindDirForFilesExt("C:\\Jobs","DAT");
        try
        {
                MessageSend(ReadMesageFile(m));
        }
        catch(ESocketError &e)
        {
                UpdateHistoryList("ESocketError !!!", true);
        }
}

J'ai vu un sujet similaire :
www.developpez.net/forums/viewtopic.php?t=256195
Mais j'ai exactement le meme code.

Comment faire ?
Est ce que qeulqu'un aurait une idée ?
Merci d'avance.

[DjmSoftware]

bonjour,
la classe TClientSocket dispose déja d'une interception des erreurs en mode Asynchrone avec l'évenemment OnError

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
// exemple de la gestion d'erreur
 
void __fastcall TForm1::ClientSocket1Error(TObject *Sender,
      TCustomWinSocket *Socket, TErrorEvent ErrorEvent, int &ErrorCode)
{
  char* lpMsgBuf;
  FormatMessage(
      FORMAT_MESSAGE_ALLOCATE_BUFFER | FORMAT_MESSAGE_FROM_SYSTEM,
      NULL,
      WSAGetLastError(),
      MAKELANGID(LANG_NEUTRAL, SUBLANG_DEFAULT), // Default language
      (LPTSTR) &lpMsgBuf,
      0,
      NULL
  );
  MessageBox( NULL, lpMsgBuf, "Erreur de Communication", MB_OK|MB_ICONERROR );
  LocalFree( lpMsgBuf );
  ErrorCode=0;  // on inhibe l'exception
 
}

Cordialement

[jagboys]

Bonsoir,

Merci beaucoup pour ton exemple et ton expliquation. C'est très clair maintenant.

Merci bien.