Discussion :

[Etanne]

Bonjour voici le code lorsque que j'ai mis lorsque je clique sur un bouton:

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
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 
        TFileStream *f ;
 
        try
        { 
                f = new TFileStream ("c:\\test.txt", fmCreate   );
                Robot->Get("www.etanne.com/index.php",f);
 
        }
        __finally
        {
                f->Free() ;
 
        }
}

J'ai juste mis sur mon canevas, le bouton et le composant idHTTP.

J'obtient à l'execution l'erreur suivant:


Merci,
Florian.

[int0x21]

Salut,
J'ai moi même rencontré le problème lors du développement d'un bot IRC et je dois dire que la manière dont les composants Indy gèrent les exceptions m'a un peu dérouté...
En effet a chaque fois qu'une connection sur une socket est refusée, ou un bind sur tel port refusée etc...cela provoque une exception qui est en général une instance de la classe ESocketError (elle même étant une sous-classe de la classe Exception). De ce fait lorsqu'il se produit une connection refusée etc... cela nous affiche une messagebox nous disant que telle exception s'est produite. Pour éviter que notre programme affiche ce message d'erreur qui est celui par defaut, il y a selon moi 2 solutions.

1)
Soit a chaque appel à une méthode provenant d'une classe Indy on encadre celle-ci d'un bloc "try ...catch" pour "attraper" l'eventuelle exception et mettre un message d'erreur personnalisé ou rien du tout si vous le souhaitez.
ex:

Code :

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

1
2
3
4
5
 
try {
idhttp1->get(...);
}
catch(ESocketError *e){...}

2)
On peut décider de n'afficher que les exceptions qui sont instances de telle classe d'exception par l'intermédiaire du composant "TApplicationEvents" situé dans la barre "Supplément".
Ensuite il faut rajouter ce code dans la méthode évenementielle suivante:

Code :

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

1
2
3
4
5
6
7
8
9
 
void __fastcall TForm1::ApplicationEvents1Exception(TObject *Sender,
      Exception *E)
{
if(E->ClassNameIs("ESocketError")==true)
        {
        tcp->Close();
        }
}

Ceci permet de n'afficher que les exceptions autre que celle de la classe ESocketError et ce n'affichera donc plus la fameuse messagebox avec la croie rouge ce dessus.

De plus je peux vous dire que le message d'exception qui est affiché vous indique la socket distance n'a pas été connectée, soit le serveur est en panne , soit la page n'existe plus...
Voila, en espérant vous avoir aidé.
Amicalement.
X-F

[Etanne]

Merci beaucoup de ton aide

[Etanne]

Et mon erreur était aussi:

Code :

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

Robot->Get("http://www.etanne.com/index.php",f);

au lieu de

Code :

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

Robot->Get("www.etanne.com/index.php",f);