Discussion :

[flames]

Bonjour,
Bonne année à tous,

J'ai conçu un programme delphi qui permet de recevoir une température d'une carte électronique branché sur le port com de mon pc. Pas de problème jusque là. Ensuite je désire envoyé les températures sur un autre pc de mon réseau doté du même logiciel. Je récupére la température dans un edit(elle s'affiche) mais lorsque je tente de l'afficher sur un graphe il me renvoi l'erreur
'"n'est pas une valeur en virgule flottante correcte. Voici le 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
 
procedure TForm1.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
  var test : double;
begin
//Edit2.Text := valSockT;
Edit2.Text:= Socket.ReceiveText;   
test := strtofloat(Socket.ReceiveText);
With Series2 do
       Begin
            Add(test, TimetoStr(Time), clYellow ) ;     
       end;
 
end;

Merci d'avance,

F£@M€$

[Eric Boisvert]

Le probleme vient du fait que ton socket est vide lorsque tu essai
de la convertion vers un Float

Code :

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

1
2
3
 
Edit2.Text:= Socket.ReceiveText;       //Affiche la temperature ex:21.5   
test := strtofloat(Socket.ReceiveText);//convertie en float mais Socket.ReceiveText est maintenant vide!

ce qui te donne le message:
'' n'est pas une valeur en virgule flottante correcte.

autrement dit... une chaine vide ('') n'est pas une valeur

Essaie ceci

Code :

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

1
2
3
Edit2.Text:= Socket.ReceiveText;       //Affiche la temperature ex:21.5   
test := strtofloat(Edit2.Text); //Convertie en float La valeur Affichée.

En cas de problème avec la communication entre la sonde et ton pc,
je te propose aussi d'inclure un try except
ton programme sera ainsi plus stable...

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
 
procedure TForm1.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
  var test : double;
begin
    try
        Edit2.Text:= Socket.ReceiveText;
        test := strtofloat(Edit2.Text);
        With Series2 do
        Begin
            Add(test, TimetoStr(Time), clYellow ) ;
        end;
    except
        //en cas de probleme de communication,
        //on pourrait recevoir n'importe quoi
        //est la convertion sera impossible
        //alors on fait rien de special...mais on plante pas.
        on EConvertError do {Nothing!} ;
    end;
end;

J'espère le tout conforme.