Discussion :

[yazidou27]

bnojour tous le monde.
je suis entreind de code une application de partage ,clien / server avec composont indy9 du delphi7.
mon probleme c'est que mon client bug apré 2 ou 3 seconde apré etre conecter au server , voici le code complet.

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
 
procedure TForm1.SpeedButton1Click(Sender: TObject);//boutton conect
begin
  if
     (edServer.Text <> '')   and
     SpeedButton1.Down then
    begin
      IdTCPClient1.Host := edServer.Text;
      IdTCPClient1.Port := sePort.Value;
      if SpeedButton1.Down then
        IdTCPClient1.Connect;
 
    end
  else
 
end;

un composont de conection port com

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
 
procedure TForm1.Button2Click(Sender: TObject);
begin
     if button2.Caption='open' then
     begin
     comport1.Port:=combox.Text;
     comport1.Connected:=true;
     button2.Caption:='close';
     timer1.Enabled:=true;
     end
     else
     if button2.Caption='close' then
     begin
     comport1.Close;
      button2.Caption:='open';
     end;
 
end;

pour lire les donner venon du port com

Code :

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

1
2
3
4
5
6
7
8
9
10
 
procedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer);
var  chaine,test:string;
begin
  comport1.ReadStr(chaine,count);
 
  test:=(chaine);
  IdTCPClient1.Write(test);//envoi vers le server
 
  end;

un timer pour les donner recu par le server

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.Timer1Timer(Sender: TObject);
 var  msg:string;
begin
  if  IdTcpClient1.Connected then
 
   begin
    msg:= IdTCPClient1.ReadString(40);
    comport1.WriteStr(msg) ;
    memo1.Lines.Add(stringtohex(msg)) ;
end;
end;

je voi pas pour quoi ca bug !!
merci.

[Rayek]

Ca bug comment ?
Si tu ne détailles pas plus, personne risque de te répondre

Sinon pour la récupération des données il n'y a pas besoin d'un timer, le composant doit avoir normalement un évènement qui gère cela

[chaplin]

Je constate deux événements qui utilisent des accès synchrones à la fois sur le port com et sur les sockets (indy), dans ces conditions le blocage arrive rapidement.

[yazidou27]

Ca bug comment ?
Si tu ne détailles pas plus, personne risque de te répondre

Sinon pour la récupération des données il n'y a pas besoin d'un timer, le composant doit avoir normalement un évènement qui gère cela

le client envoi un packet au serveur le serveur repend 1 seul fois ou deux
mai apré le client plante ,pour la reception jai pas trouver levenemnt de reception . je pence que le bug viens du timer forcement mai quele evenemnt de reception?

[chaplin]

L'appel de ReadString est executé en mode synchrone. Le client envoie une commande au serveur qui répond aussitôt en transmettant une chaîne string en retour. Autrement dit l'application serveur doit être configuré pour répondre aux requêtes de l'application cliente.

Il faut considérer la méthode ReadString comme une fonction qui prendrait un argument en entré et renvoie une chaîne string, sauf que cette valeur en retour provient d'un appel distant au serveur d'application dont la réponse dépend de l'argument en entré. Il s'agit donc d'un appel bloquant.

[yazidou27]

L'appel de ReadString est executé en mode synchrone. Le client envoie une commande au serveur qui répond aussitôt en transmettant une chaîne string en retour. Autrement dit l'application serveur doit être configuré pour répondre aux requêtes de l'application cliente.

Il faut considérer la méthode ReadString comme une fonction qui prendrait un argument en entré et renvoie une chaîne string, sauf que cette valeur en retour provient d'un appel distant au serveur d'application dont la réponse dépend de l'argument en entré. Il s'agit donc d'un appel bloquant.

merci ami pour le freez il faller de chercher un peu et jai trouver Idantifreez
pour a lecture jai crée un thread de lecture et le tour est joué alor je mi resolu ce poste.