Discussion :

[juju1988]

Bonjour,

Je cherche à récupérer le poids net d'une balance via une application Delphi utilisant une Socket.
J'ai donc écris mon 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
15
16
17
18
19
20
21
22
23
procedure TFrm_Poids.Button1Click(Sender: TObject);
var
  sMessage : char;
begin
 
  sMessage := Char(0x1) ;
  // Connexion au serveur socket (imprimante)
  CSockPoids.Address := '192.168.xx.xx';
  CSockPoids.Port := 11001;
  CSockPoids.Open;
 
  Try
  // Transmission de texte au serveur
  CSockPoids.Socket.SendText(       );
  Memo1.Lines.Add('Message envoyé');    // voir SendBuf pour mes tests suivants
  //CSockPoids.Socket.SendBuf()
  except
  on E : ESocketError do ShowMessage('Anomalie envoi du message vers imprimante');
  end;
 
 
 
end;

Je sais ce que je dois envoyer à ma balance en hexa grâce à sa doc : SOH ENQ 0 3 L CR LF
SOH : Début de l'en-tête (0x1)
ENQ = Demande (0x5)
0 3 = Poids net (0x30 0x33)
L = Lecture seule (0x4c)
CR = Carriage return (0x0D)
LF = Line Feed (0x0A)

Mais je ne sais pas comment l'écrire en Delphi ... Que vaut il mieux utiliser ?

J'ai tenté ça :

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
24
procedure TFrm_Poids.Button1Click(Sender: TObject);
var
  sMessage : char;
begin
 
 
  // Connexion au serveur socket (imprimante)
  CSockPoids.Address := '192.168.xx.xx';
  CSockPoids.Port := 11001;
  CSockPoids.Open;
 
  Try
  // Transmission de texte au serveur
  if CSockPoids.Socket.SendText(Chr(01)+Chr(05)+Chr(48)+Chr(51)+Chr(76)+Chr(13)+Chr(10))>0 then
    Memo1.Lines.Add('Message envoyé');    // voir SendBuf pour mes tests suivants
    sMessage :=
  //CSockPoids.Socket.SendBuf()
  except
  on E : ESocketError do ShowMessage('Anomalie envoi du message vers imprimante');
  end;
 
 
 
end;

Cela ne me fait pas d'erreur ça compile, maintenant il faut que je récupère la réponse de l'imprimante, je ne sais pas encore comment faire ? Surtout que l'on m'a prévenu que la balance ne renvoyait pas de marqueur de fin ... j'ai l'habitude de coder en WD qui permet de pallier à ça grâce aux fonctions SocketChangeModeTransmission(sNomSocket, SocketMarqueurFinBuffer) mais avec Delphi je ne sais pas comment le gérer, je continue à regarder

Merci d'avance

[Ph. B.]

Bonjout,

Je sais ce que je dois envoyer à ma balance en hexa grâce à sa doc : SOH ENQ 0 3 L CR LF
SOH : Début de l'en-tête (0x1)
ENQ = Demande (0x5)
0 3 = Poids net (0x30 0x33)
L = Lecture seule (0x4c)
CR = Carriage return (0x0D)
LF = Line Feed (0x0A)

Mais je ne sais pas comment l'écrire en Delphi ... Que vaut il mieux utiliser ?

sur Sendtext n'indique rien ?

Ce que vous appelez Hexa peut s'écrire dans une chaine en préfixant d'un dièse les codes (décimaux cette fois) : #01#05#30#33#76#13#10
La commande CSockPoids.Socket.SendText(#01#05#30#33#76#13#10); devrait faire l'affaire.
Reste à lire les résultats...

SendBuf est plus utile pour de plus gros paquets ou contenant des #0.
On pourrait écrire CSockPoids.Socket.SendBuf(#01#05#30#33#76#13#10, 7);

[juju1988]

Après plusieurs tests voici ce que j'ai fait (j'ai utilisé ton SendText pour le moment ) :

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
procedure TForm1.ClientSocket1Connect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  StatusBar1.SimpleText := 'Connecté à la balance i20';
end;
 
procedure TForm1.ClientSocket1Connecting(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  StatusBar1.SimpleText := 'Tentative de connexion à l''adresse : '+ Edit2.Text;
end;
 
procedure TForm1.ClientSocket1Disconnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  StatusBar1.SimpleText := 'Déconnecté';
end;
 
procedure TForm1.ClientSocket1Error(Sender: TObject;
  Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
  var ErrorCode: Integer);
begin
  if ErrorEvent=eeConnect then
  begin
    ShowMessage('Impossible de se connecter à  '+Edit3.Text);
    ErrorCode:=0;// pour ne pas déclencher un autre message d'erreur par Delphi
  end;
  StatusBar1.SimpleText:='Déconnecté';
end;
 
procedure TForm1.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  RichEdit1.Lines.Add(Socket.RemoteHost+'  '+Socket.ReceiveText);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  ClientSocket1.Port:= StrToInt(Edit3.Text);
  ClientSocket1.Host :=Edit2.Text;
  ClientSocket1.Open;
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
  ClientSocket1.Close;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  Edit1.Text := '';
  Edit2.Text := '192.168.xx.xx';
  Edit3.Text := 'xx';
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  ClientSocket1.Socket.SendText(#01#05#30#33#76#13#10);
end;

Je récupère un message, mais c'est pas très lisible ... vous avez une idée ?

[juju1988]

Alors si je regarde le contenu de mon ReceiveText j'ai :

#1#2'00'#$D#$A

je suis perdue c'est quoi comme codification là ?

Est ce que c'est
SOH + STX + 00 (mon poids ?) + CR + LF

?

Mais dans ce cas là pourquoi je n'ai pas le bon poids ?

[SergioMaster]

et si le poids était 10,200 k ?
y avait-il quelque chose sur la balance et si oui de quel poids ?

[free07]

Et tu n'as pas des précisions dans la doc ?

Le protocole utilisé, c'est A+ ou Modbus ?

Regardes ici, peut être que cela t'aidera

[juju1988]

SI j'ai tout compris à la doc je suis avec un protocole ethernet ma balance à une adresse IP, j'utilise donc le protocole ASCII... non ?



Et oui ma balance dispose d'un petit instrument qui me permet de stimuler un poids via une molette que je tourne ... Il est en ce moment sur 63.5 kg (poids net)

Et peut importe sa valeur j'ai toujours dans ma variable sMsg : #1#2'00'#$D#$A

Code :

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

1
2
  sMsg := Socket.ReceiveText;
  RichEdit1.Lines.Add(Socket.RemoteHost+'  '+Socket.ReceiveText);

J'avais vu la discussion de vallgui quand j'ai fait mes recherches mais je ne pense pas être dans le cas du checksum ... si ?

[free07]

Bonjour,

ASCII n'est pas un protocole mais une table de conversion de caractères et Ethernet est utilisé pour le transport de l'information ( au même titre que la liaison série que tu n'utilises pas ).

Il est vrai que dans leur doc, c'est mal précisé, en fait, tu dois certainement utilisé leur protocole de communication A+.

Je ne connais pas ce protocole mais après avoir lu très rapidement la doc, les 20 premiers caractères ( codés en ASCII ) représentent des codes de communication :
#1 : début de l'entête
#2 : début du texte

Ce qui est étonnant c'est que tu ne reçois jamais le code de fin de text ( #3 ), tu es sûr de bien afficher le code ascii du message que tu reçois ?

[Linkin]

Pour recevoir la trame configurée, dans la documentation (page 25) il est indiqué d'envoyer: $01$30$31$0D$0A donc en décimal: #01#48#49#13#10.
Qu'est-ce que ça donne si tu envoies ça?

[SergioMaster]

Bonjour

Je ne connais pas ce protocole mais après avoir lu très rapidement la doc

itou

la première chose que j'ai noté est que l'envoi d'une demande est selon la configuration de la machine
selon le case on envoi ou non le numéro de la machine,le checksum
la première idée qui me vient donc à l'esprit est : envois tu la bonne commande ?
[Edit]
si on se réfère à la page 21 (bien regarder la configuration nécessaire)
que donne l'envoi de SOH+CR+LF

[tourlourou]

Bonjour,

La doc indique (sauf erreur) que la trame complète (par défaut) que tu as mise en exemple est renvoyée pour la demande SOH CR LF, si tu te situes dans le cas esclave A+ sans n° id de balance (00).

La demande particulière SOH ENQ '03' 'L' CR LF de la seule masse nette devrait entraîner le retour de SOH STX '03' (code du bloc demandé) 'masse nette sur 10 caractères' CR LF

Le caractère ETX n'est pas utilisé dans ces cas, je suppose, car trames de format et taille fixes.

[juju1988]

Free07 Bonjour,

ASCII n'est pas un protocole mais une table de conversion de caractères et Ethernet est utilisé pour le transport de l'information ( au même titre que la liaison série que tu n'utilises pas ).

Il est vrai que dans leur doc, c'est mal précisé, en fait, tu dois certainement utilisé leur protocole de communication A+.

Je ne connais pas ce protocole mais après avoir lu très rapidement la doc, les 20 premiers caractères ( codés en ASCII ) représentent des codes de communication :
#1 : début de l'entête
#2 : début du texte

Ce qui est étonnant c'est que tu ne reçois jamais le code de fin de text ( #3 ), tu es sûr de bien afficher le code ascii du message que tu reçois ?

Si si je reçois bien CR + LF en marqueur fin.

Linkin Pour recevoir la trame configurée, dans la documentation (page 25) il est indiqué d'envoyer: $01$30$31$0D$0A donc en décimal: #01#48#49#13#10.
Qu'est-ce que ça donne si tu envoies ça?

si je fais ça, cela ne passe même pas dans ma procédure OnRead.

SergioMaster

la première chose que j'ai noté est que l'envoi d'une demande est selon la configuration de la machine
selon le case on envoi ou non le numéro de la machine,le checksum
la première idée qui me vient donc à l'esprit est : envois tu la bonne commande ?
[Edit]
si on se réfère à la page 21 (bien regarder la configuration nécessaire)
que donne l'envoi de SOH+CR+LF

Youpi je reçois la réponse complète avec mon poids net : #1#2'040602'#2'0100105.8kg'#2'0200042.2kg'#2'0300063.6kg'#$D#$A

Tourlourou Bonjour,

La doc indique (sauf erreur) que la trame complète (par défaut) que tu as mise en exemple est renvoyée pour la demande SOH CR LF, si tu te situes dans le cas esclave A+ sans n° id de balance (00).

La demande particulière SOH ENQ '03' 'L' CR LF de la seule masse nette devrait entraîner le retour de SOH STX '03' (code du bloc demandé) 'masse nette sur 10 caractères' CR LF

Le caractère ETX n'est pas utilisé dans ces cas, je suppose, car trames de format et taille fixes.

J'ai pas compris la nuance...

[juju1988]

Youpiii j'avais mal traduit la commande complète est :

Code :

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

ClientSocket1.Socket.SendText(#01#05#48#51#76#13#10);

#48 et #51 = Poids net

[juju1988]

Encore une petite question,

Je reçois donc : #1#2'0300063,6kg'#$D#$A

Comment je fais pour récupérer ce qui est entre les deux '' ...

J'ai tenté

Code :

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

Pos(''03', sMsg)

==> en gros hein j'ai essayé de mettre les ' de toutes les façons possible ... en vain, ou encore de faire un

Code :

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

StringReplace(sMsg,'''','\',[ReplaceAll])

pour pouvoir ensuite récupérer ce qui sera entre \ mais en vain également ...

Question bête certainement mais je trouve pas ...

[free07]

Encore une petite question,

Je reçois donc : #1#2'0300063,6kg'#$D#$A

Comment je fais pour récupérer ce qui est entre les deux '' ...

Si j'ai bien compris les codes de communication de ce protocole, C'est pas le code #2 qui indique le début du texte ?

Si c'est le cas tu recherches la 1ère occurence de #2, si le caractère suivant est une apostrophe, tu récupères le texte jusqu'à l'autre occurence de l'apostrophe.

[juju1988]

#2 = Start of text oui et mon 03 indique que ensuite il y a mon poids net.
J'ai essayé donc en faisant :

Code :

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

1
2
  i := Pos('#2', sMsg);
  showMessage(inttostr(i));

et mon i = 0....

Autre truc bête que j'ai fait en attendant pour que ça fonctionne :

Code :

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

sMsg2 := Copy(sMsg,5,9);

5 est le premier 0 de mon poids alors que si on compte la chaine #1#2'0300063,6kg'#$D#$A c'est le 8ème caractère comme s'il ne comptait pas le '03 ... par contre si je fais

Code :

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

sMsg2 := Copy(sMsg,5,9);

ça me prend bien depuis le début du message, je ne comprend plus rien

[Linkin]

L'apostrophe est-elle vraiment envoyé par la balance, ou est-elle rajoutée par Delphi lors du déboguage (Evaluer/Modifier)?
Je verrais bien quelque chose comme ça:

Code :

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

1
2
3
4
5
6
7
 
const
cstDebut=#2;
cstFin=#13#10;
begin
sMsg2 := Copy(sMsg,Pos(cstDEbut,sMsg)+Length(cstDebut),Pos(cstFin,sMsg)-Pos(cstDebut,sMsg)+Length(cstDebut));
end;

[free07]

Quel est le type de sMsg ? c'est AnsiString ou String ? Faut que tu fasses attention au codage de ta chaîne de caractères.

Ton problème ne vient pas du fait que tu travailles sur des chaines de caractères Unicode ?

[juju1988]

C'est ça le problème je ne sais pas d'où vient les apostrophes delphi ou balance...

Si je fais comme tu m'as dit je récupère également le 03 et le #$D#$A du coup j'ai rajouté un +2 ça m'enlève le 03 mais je n'arrive pas à enlever le #$D#$A...

Code :

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

sMsg2 := Copy(sMsg,Pos(cstDEbut,sMsg)+Length(cstDebut)+2,Pos(cstFin,sMsg)-Pos(cstDebut,sMsg)+Length(cstDebut));

Mon sMsg c'est du string je viens d'essayer en AnsiString mais mon test :

Code :

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

1
2
  i := Pos('#2', sMsg);
  showMessage(inttostr(i));

me renvoi toujours 0

[tourlourou]

Code :

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

1
2
 i := Pos(#2, sMsg);
  showMessage(inttostr(i));

il n'y a pas d'apostrophes autour du caractère.