bonjour,

Je voudrais connaitre comment on peux intercepter une exception lorsque je travaille sur les procedure Ole.
Un exemple :


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
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Variant vDocument = Web->ControlInterface->Document;
if (((IDispatch *)vDocument) != NULL)
{
      try{
         Variant vForms = vDocument.OlePropertyGet("Forms");
   Variant vForm = vForms.OleFunction("NamedItem","connection");
   Variant vContent = vForm.OlePropertyGet("All");
   }
   catch(EOleError &er)
   {
        ShowMessage("Page Inaccessible");
 
        }
}
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormShow(TObject *Sender)
{
Web->Navigate((WideString)"http://localhost:7144/html/en/broadcast.html");
}
Problème est que je ne sais pas si EOleError est la bonne ecriture.

pour la petite histoire, je voudrais lorsque la page est inaccessible, afficher un message pour avertir l'utilisateur que la page est indisponible.

Merci de votre aide

Ps : le code est incomplet et/ou incorrect c'est normal, c'est pour les tests