connection clientsocket et test

Question

je voudrais faire en sorte que lorsque l on appelle la connection du client, a l aide d un bloc try, il controle la connection.
voici mon code


  if Connecte= False then
  try
    ClientSocket1.Host:=EditServeur.Text;
    ClientSocket1.Port:=StrToInt(EditPort.Text);
    ClientSocket1.Open;
    Connecte:= True;
  except
    Connecte:= False;
  end
  else
  begin
    ClientSocket1.Close;
    ButtonConnection.Caption:= 'Déconnection';
    Connecte:= False;
  end;


je pense que j utilise mal le except... connecte est une variable booleenne qui informe de l etat de la connection...
donc, comment faire pour que, lorsque qu on clic pour connecter, il essaie de se connecter et s il y arrive, il met connecte:= true sinon false sans generer de messages d erreur...

jmp77 · Answer

Meme avec un try except tu as toujours le message d'erreur en mode debugage. Par contre lance directment ton exe et tu verras que le message ne s'affiche pas là par contre.

Bonne prog,
JMP77.

N'oubliez pas de cliquer sur réponse acceptée.

JulioDelphi · Answer

ha bon ? moi je dis "il s'affiche" :) mais ne bloquera pas l'execution du prog par contre...

ds le except je mettrais en plus :
on E:Exception do connecte := false;

me trompe-je ?

N'oubliez pas de cliquer sur Réponse acceptée lorsque ma réponse vous convient !   ;) 

-------------------------------------------
http://diabloporc.free.fr : mon site refait ! Delphi power !

jmp77 · Answer

Oui il s'affiche mais uniquement si tu fais un run sous delphi. Par contre si tu lances le prog directement et bien là tu n'auras pas le message à l'écran.

Bonne prog,
JMP77.

N'oubliez pas de cliquer sur réponse acceptée.

JulioDelphi · Answer

tu as testé ? moi je pense kil l'aura quand meme

N'oubliez pas de cliquer sur Réponse acceptée lorsque ma réponse vous convient !   ;) 

-------------------------------------------
http://diabloporc.free.fr : mon site refait ! Delphi power !

MoveX · Answer

j ai un message erreur asynchrone 10061 lorsque jexecute sans delphi et ce meme avec 
on E:Exception do connecte := false;
...

j avais deja fait ca comme je le veux, mais je me souviens plus, donc cest possible...

svp, pourriez vous le faire a votre maniere de facon a n avoir aucun message dexception....
ce serait gentil :D

JulioDelphi · Answer

donne nous le message d'erreur complet (meme le titre de la fenetre etc), car l'erreur d'exception c peut etre on E: ESocketException etc je c plus exactement, si tu veux faire une capture ne te gene pas

N'oubliez pas de cliquer sur Réponse acceptée lorsque ma réponse vous convient !   ;) 

-------------------------------------------
http://diabloporc.free.fr : mon site refait ! Delphi power !

MoveX · Answer

"Le projet project1.exe a provoque une classe d exception ESocketError avec le message 'Erreur socket asynchrone 10061'.
Processus stoppé, utilisez pas a pas ou executer pour continuer"

JulioDelphi · Answer

ha bah oui suis-je bete ....

remplace donc le :
on E:Exception do connecte := false;
par un 
on E:ESocketError do connecte := false;

ça donne koi ?
N'oubliez pas de cliquer sur Réponse acceptée lorsque ma réponse vous convient !   ;) 

-------------------------------------------
http://diabloporc.free.fr : mon site refait ! Delphi power !

MoveX · Answer

toujours un message d erreur.... ou plutot le meme message d erreur...

JulioDelphi · Answer

bon probleme réglé pour moi avec ce code :

  if Connecte= False then
   try
    ClientSocket1.open;
    Connecte := True;
   except
    on E: ESocketError do Connecte := False;
   end
  else
   begin
    ClientSocket1.Close;
    Connecte := False;
   end;


MAIS aussi avec la propriété "ClientType" du ClientSocket1 sur "ctBlocking"
j'espere que ce Bloking ne t'embete pas ! sinon pour moi ça marche.

N'oubliez pas de cliquer sur Réponse acceptée lorsque ma réponse vous convient !   ;) 

-------------------------------------------
http://diabloporc.free.fr : mon site refait ! Delphi power !

MoveX · Answer

ahah, je pense que ca un peu m embeter, mais je vais voir, si ca se trouve je peux quand meme utiliser ton code....
merci beaucoup

ceci dit, j avais fait un code sans utiliser le "on: esocketerror do connecte...." qui marchait tres bien....

dommage que j ai fait du menage sur mon hd....

jmp77 · Answer

Hello,

Voici comment je connecte mon client socket moi :

 ClientSocket.Host   := IPServeur;
   ClientSocket.Port   := strtoint(EditPortClient.Text);
   ClientSocket.Active := TRUE;

Bonne prog,
JMP77.

N'oubliez pas de cliquer sur réponse acceptée.

JulioDelphi · Answer

~.open vaut ~.active:=true;
~.close vaut ~.active:=false;

N'oubliez pas de cliquer sur Réponse acceptée lorsque ma réponse vous convient !   ;) 

-------------------------------------------
http://diabloporc.free.fr : mon site refait ! Delphi power !

jmp77 · Answer

LOL bon ben je sors alors.

Merci pour cette précision Julio.

Bonne prog,
JMP77.

N'oubliez pas de cliquer sur réponse acceptée.

MoveX · Answer

merci beaucoup pour cette precision jmp77 !! maisi bon, s il y a pas de serveur.....

=> ERREUR !!!

JulioDelphi · Answer

a propos des ~.open et ~.close,  je souhaiterais creer une sorte d'alias pour des procedures genre, je pose un TTimer (nommé Timer1)
je veux creer (juste pour MON appli, pa de modif de compo) qqchose comme :
Timer1.Go; > et ça fera Timer1.enabled := true;
et
Timer1.Stop; > et ça fera Timer1.enabled := false;

donc imaginons ke c :

Alias Timer1.go;
begin
 Timer1.Enabled := true;
end;

ou

Alias Timer1.go as Timer1.enabled:=true;

voila merci :)

N'oubliez pas de cliquer sur Réponse acceptée lorsque ma réponse vous convient !   ;) 

-------------------------------------------
http://diabloporc.free.fr : mon site refait ! Delphi power !

crapok · Answer

Dans L'evenement OnError de ton TClientSocket il faut mettre la valeur de ErrorCode &#224; 0 pour que l'API de windows ne d&#233;clanche pas d'exception.

Connection clientsocket et test

17 réponses

Votre réponse

Discussions similaires