Intégration socket récupération poids balance precia i20 - Temps de latence

**juju1988** · 10/06/2015, 16h00

Bonjour à tous,

J'essaie d'intégrer en gros une socket de récupération de poids sur un programme me permettant de valider l'entrée en stock de mes produits. La socket de récupération de poids me permet de récupérer le poids de mes colis.
Avant de me lancer là dedans j'avais fait un petit programme de test seul (voir ici)

Ma connexion socket se fait en fonction d'un paramètre ini. S'il contient une adresse ip j'utilise ma socket sinon le code déjà existant dans le programme qui gère les ports COM.

Mon problème c'est que mon évènement OnRead dans lequel je réceptionne mon poids intervient après l'exécution du code dans lequel j'ouvre ma connexion et j'envoi ma demande de poids.

Du coup je n'arrive pas à récupérer mon poids au bon moment on va dire.
Peut être que cela peut venir du fait que je ne sais pas où fermer ma socket... sachant que j'ai essayé à divers endroits mais du coup cela ne me déclenche pas mon évènement OnRead...

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
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
  if trim(edit6.text)='' then edit6.text:='0.000';
  update;
  // si poids saisi = 0.000 on lance l'appel poids à la balance
  if edit6.text='0.000' then
  begin
    Label11.caption:=traduit('Réception en cours. Veuillez patienter')+'...';  update;
    Retour := TStringList.create;
    Retour.clear;
    x_u:=250;
 
    // JA 09/06/15
    // Lecture fichier ini
    CheminDAcces:=ExtractFilePath(Application.ExeName);
    if copy(CheminDAcces,length(CheminDAcces),1)<>'\' then CheminDAcces:=CheminDAcces+'\';
    // ==============================================================================================================
    if fileexists(CheminDAcces+'PARAM.INI')=false then
    begin
      DefaultINI;
      EnregistreFichierIni(CheminDAcces);
    end;
    LitFichierIni(CheminDAcces);
 
    // Test moyen de com
    if (INI_COM_BALANCE<>'COM1') or (INI_COM_BALANCE<>'COM2') or (INI_COM_BALANCE<>'COM3') then    // INI_COM_BALANCE récupéré dans fichier ini
    begin
      // Méthode socket * pour balance i20 PRECIA
      //Connexion(csBalance, 11001, INI_COM_BALANCE);
      Connexion(csBalance, 11001, INI_COM_BALANCE);
      Label11.Caption := 'Envoi de la demande de poids';
      csBalance.Socket.SendText(#01#05#48#51#76#13#10);
      //Deconnexion(csBalance);
 
    end
    else
    begin       // méthode de communication port COM *
      FFileHandleEntree:=-1;
      while FFileHandleEntree<0 do
      begin
        sleep(x_u);
        //FFileHandleEntree:=OpenComm('COM2',0,9600,'n','1',8,#13,#13,#13,#13,#0);
        //if (INI_COM_BALANCE='COM1') or (INI_COM_BALANCE='COM2') or (INI_COM_BALANCE='COM3') then
        // FF 03/09/14 Supp
        FFileHandleEntree:=OpenComm(INI_COM_BALANCE,0,9600,'n','1',8,#13,#13,#13,#13,#0);
        //else
        //  FFileHandleEntree:=OpenComm('COM2',0,9600,'n','1',8,#13,#13,#13,#13,#0);
        inc(x_u,250);
        if x_u> 1000 then break;
      end;
      if FFileHandleEntree>0 then
      begin
        sleep(125);
        EventForWait(600);
        TimeTempo (FFileHandleEntree,100);
        // envoi de la trame demande de lecture de n blocs d'informations
        // voir note protocole EGO / PRECIA
        //PutModem(FFileHandleEntree,CHR(39)+CHR(1)+CHR(9)+CHR(48)+CHR(49)+
        //CHR(48)+CHR(57)+CHR(13)+CHR(10)+CHR(39),Retour,true);
        x_u:=1;
        (*while PutModem(FFileHandleEntree,CHR(39)+CHR(1)+CHR(48)+CHR(49)+CHR(13)+CHR(10)+CHR(39),Retour,true)=false do
        begin
          //if PutModem(FFileHandleEntree,CHR(39)+CHR(1)+CHR(48)+CHR(49)+CHR(13)+CHR(10)+CHR(39),Retour,true)=false then
          if x_u >3 then
          begin
            messageDlg('Pas de lecture de la balance, recommencez.',
            mtInformation,[MbOk],0);
            Label11.caption:='...';
            update;
            closeComm(FFileHandleEntree);
            BitBtn6.Enabled:=True;
            BitBtn7.Enabled:=True;
            edit6.text:='0.000';
            Exit;
          end;
          inc(x_u);
          sleep(125*x_u);
          closeComm(FFileHandleEntree);
        end;*)
        if INI_TRAME_BALANCE=0 then
        begin
          while PutModem(FFileHandleEntree,CHR(39)+CHR(1)+CHR(48)+CHR(49)+CHR(13)+CHR(10)+CHR(39),Retour,true)=false do
          begin
            if x_u >3 then
            begin
              messageDlg(traduit('Pas de lecture de la balance, recommencez'),mtWarning,[MbOk],0);
              Label11.caption:='...'; update;
              closeComm(FFileHandleEntree);
              edit6.text:='0.000';  // FF 10/06/14 on mettait la variable edit1 au lieu de edit6 !! et ajout réinit des boutons 6 et 7
              BitBtn6.Enabled:=True;
              BitBtn7.Enabled:=True;
              Exit;
            end;
            inc(x_u);
            sleep(125*x_u);
            closeComm(FFileHandleEntree);
          end;
        end
        else
        begin
          while PutModem(FFileHandleEntree,CHR(39)+CHR(1)+CHR(13)+CHR(10)+CHR(39),Retour,true)=false do
          begin
            //if PutModem(FFileHandleEntree,CHR(39)+CHR(1)+CHR(48)+CHR(49)+CHR(13)+CHR(10)+CHR(39),Retour,true)=false then
            if x_u >3 then
            begin
              messageDlg(traduit('Pas de lecture de la balance, recommencez'), mtWarning,[MbOk],0);
              Label1.caption:='...'; update;
              closeComm(FFileHandleEntree);
              edit6.text:='0.000';  // FF 10/06/14 on mettait la variable edit1 au lieu de edit6 !! et ajout réinit des boutons 6 et 7
              BitBtn6.Enabled:=True;
              BitBtn7.Enabled:=True;
              Exit;
            end;
            inc(x_u);
            sleep(125*x_u);
            closeComm(FFileHandleEntree);
          end;
        end;
        sleep(125);
        //closeComm(FFileHandleEntree);
       (* for i:=0 to retour.count-1 do
        begin
         // showmessage((retour.strings[i]));
          ListBox1.items.add(retour.strings[i]);
        end;*)
        //edit6.text:=copy(retour.strings[0],6,7);
        //showmessage(inttostr(FFileHandleEntree));
        if retour.count>0  then
        begin
          if trim(copy(retour.strings[1],12,7))<>'' then
          begin
            edit6.text:=copy(retour.strings[1],12,7);
            Label11.caption:=traduit('Poids du dernier colis')+' : '+copy(retour.strings[1],12,7)+ ' Kg'; update;
          end
          else
          begin
            messageDlg(traduit('Pas de lecture de la balance, recommencez'),mtWarning,[MbOk],0);
            Label11.caption:='...'; update;
            closeComm(FFileHandleEntree);
            BitBtn6.Enabled:=True;
            BitBtn7.Enabled:=True;
            edit6.text:='0.000';
            Exit;
          end;
        end
        else
        begin
          messageDlg(traduit('Pas de lecture de la balance, recommencez'),mtwarning,[MbOk],0);
          Label11.caption:='...'; update;
          closeComm(FFileHandleEntree);
          BitBtn6.Enabled:=True;
          BitBtn7.Enabled:=True;
          edit6.text:='0.000';
          Exit;
        end;
        update;
        Retour.free;
      end
      else
      begin
        messageDlg(traduit('Pas de lecture de la balance, recommencez'),mtWarning,[MbOk],0);
        Label11.caption:='...'; update;
        closeComm(FFileHandleEntree);
        BitBtn6.Enabled:=True;
        BitBtn7.Enabled:=True;
        edit6.text:='0.000';
        Exit;
      end;
      closeComm(FFileHandleEntree);
    end;
  end;
   Label11.caption:='...';
  update;
  // test si le poids du colis est bien un réel
  Try
    strtofloat(Edit6.Text);
    Except on EConvertError do
    begin
      messageDlg(traduit('Nombre non valide pour le poids du colis'),mtError,[MbOk],0);
      BitBtn6.Enabled:=True;
      BitBtn7.Enabled:=True;
      edit6.text:='0.000';
      Label11.caption:='...'; update;
      Exit;
    end;
  end;
  if strtofloat(Edit6.Text)>1000 then
  begin
    if messageDlg(traduit('Poids supérieur à 1000 Kg, validez-vous la saisie ?'),mtConfirmation,[MbYes,MbNo],0)=MrNo then
    begin
      BitBtn6.Enabled:=True;
      BitBtn7.Enabled:=True;
      edit6.text:='0.000';
      Label11.caption:='...'; update;
      Exit;
    end;
  end;
  if strtofloat(Edit6.Text)>100000 then
  begin
    messageDlg(traduit('Poids supérieur à 100 000 Kg, Validation interdite - ca ne doit pas être normal !'),MtError,[MbOk],0);
    BitBtn6.Enabled:=True;
    BitBtn7.Enabled:=True;
    edit6.text:='0.000';
    Label11.caption:='...'; update;
    Exit;
  end;
  //** TEST DE LA SAISIE DES DIMENSIONS  ********************************************
  if z_SaisieDimension=True then
  begin
    if CB_TypeColis.text='' then
    begin
      MessageDlg(traduit('Attention, vous n avez pas renseigné le type de Suremballage'),MtWarning,[MbOk],0);
      BitBtn6.Enabled:=True;
      BitBtn7.Enabled:=True;
      CB_TypeColis.SetFocus;
      Exit;
    end;
    try
      strtoint(trim(CB_Hauteur.text));
      except on EConvertError do
      begin
        MessageDlg(traduit('Attention, la hauteur n est pas renseignée ou est incorrecte'),MtWarning,[MbOk],0);
        BitBtn6.Enabled:=True;
        BitBtn7.Enabled:=True;
        CB_Hauteur.SetFocus;
        Exit;
      end;
    end;
    if CB_TypeColis.text='AUTRES' then
    begin
      try
        strtoint(trim(CB_Longueur.text));
        except on EConvertError do
        begin
          MessageDlg(traduit('Attention, la longueur n est pas renseignée ou est incorrecte'),MtWarning,[MbOk],0);
          BitBtn6.Enabled:=True;
          BitBtn7.Enabled:=True;
          CB_Longueur.SetFocus;
          Exit;
        end;
      end;
      try
        strtoint(trim(CB_Largeur.text));
        except on EConvertError do
        begin
          MessageDlg(traduit('Attention, la largeur n est pas renseignée ou est incorrecte'),MtWarning,[MbOk],0);
          BitBtn6.Enabled:=True;
          BitBtn7.Enabled:=True;
          CB_largeur.SetFocus;
          Exit;
        end;
      end;
    end;
    if z_dernierColis then
    begin
      try
        strtoint(Edit3.Text);
        except on EConvertError do
        begin
          MessageDlg(traduit('Attention, le nb de palettes au sol est incorrect'),MtWarning,[MbOk],0);
          BitBtn6.Enabled:=True;
          BitBtn7.Enabled:=True;
          Edit3.SetFocus;
          Exit;
        end;
      end;
      try
        strtofloat(Edit11.Text);
        except on EConvertError do
        begin
          MessageDlg(traduit('Attention, le nb de mètres linéaires est incorrect'),MtWarning,[MbOk],0);
          BitBtn6.Enabled:=True;
          BitBtn7.Enabled:=True;
          Edit11.SetFocus;
          Exit;
        end;
      end;
      if strtoint(Edit3.Text)<=0 then
      begin
        MessageDlg(traduit('Attention, le nb de palettes au sol n est pas renseigné'),MtWarning,[MbOk],0);
        BitBtn6.Enabled:=True;
        BitBtn7.Enabled:=True;
        Edit3.SetFocus;
        Exit;
      end;
      if strtoint(Edit3.Text)> 50  then //strtoint(Label10.Caption) then
      begin
        if MessageDlg(traduit('Attention, Le nb de palettes au sol semble excessif - confirmez-vous votre saisie'),MtConfirmation,[MbYes,MbNo],0)=MrNo then
        begin
          BitBtn6.Enabled:=True;
          BitBtn7.Enabled:=True;
          Edit3.SetFocus;
          Exit;
        end;
      end;
    end;
  end;
  //*********************************************************************************    :=strtoint(Label10.Caption)
  // si le type de colis est différent, on recherche le nouveau type
  // pour le calcul du poids avec la nouvelle tare
  //Query2.Close;
  //Query2.sql.clear;
  //Query2.sql.add('select * from EMBXRES where CODXEMB=:p0');
  //Query2.params[0].AsString:=Edit5.Text;
  //tryQuery(Query2,'open','');
  //x_tare:=0;
  //if not Query2.eof then
  //  x_tare:=Query2.fieldbyname('TARXEMB').AsFloat
  //else
  //begin
  //  if z_embxcol<>Edit5.Text then
  //  begin
  //    messageDlg('Type de colis non trouvé, calcul sera fait avec l''ancien',
  //    mtInformation,[MbOk],0);
  //    Edit5.Text:=z_embxcol;
  //    Query2.Close;
  //    Query2.sql.clear;
  //    Query2.sql.add('select * from EMBXRES where CODXEMB=:p0');
  //    Query2.params[0].AsString:=Edit5.Text;
  //    tryQuery(Query2,'open','');
  //    if not Query2.eof then
  //      x_tare:=Query2.fieldbyname('TARXEMB').AsFloat;
  //  end;
  //end;
  // maj du poids total
  //z_poi:=z_poi+(strtofloat(Edit6.Text)+x_tare);
  if z_regroup then
    z_poi:=strtofloat(Edit6.Text)
  else
    z_poi:=z_poi+(strtofloat(Edit6.Text));
  // FF 15/12/14 Ajout ctrl au colis
  n_poidcolis:=strtofloat(Edit6.Text);                          // Quand je suis ici mon Edit6.Text = 0.000 parce que ....
 
.....
....
....

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
 
//..... Cette partie du code s'exécute après mon code précédent
procedure TFX02.csBalanceRead(Sender: TObject; Socket: TCustomWinSocket);
var
  sMsg, sMsg2 : AnsiString;
  i : integer;
const
  cstDebut=#2;
  cstFin=#13#10;
begin
  Label11.Caption := 'Réception du poids';
  sMsg := Socket.ReceiveText;
  sMsg2 := Trim(Copy(sMsg,Pos(cstDEbut,sMsg)+Length(cstDebut)+2,Pos(cstFin,sMsg)-Pos(cstDebut,sMsg)+Length(cstDebut)));
  ShowMessage(sMsg2);
  Edit6.Text := Copy(sMsg2,1,7);
 end;
end.

Merci d'avance pour votre aide

**juju1988** · 10/06/2015, 16h51

Du coup j'ai fait comme Paul me l'a suggéré dans cette discussion (voir la fin.)

J'envoi ma demande sur le OnConnect :

Code :

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

1
2
3
4
5
6
procedure TFX02.csBalanceConnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  Label11.Caption := 'Connecté à la balance i20';
  csBalance.Socket.SendText(#01#05#48#51#76#13#10);
end;

Et je déconnecte sur le OnRead :

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
procedure TFX02.csBalanceRead(Sender: TObject; Socket: TCustomWinSocket);
var
  sMsg, sMsg2 : AnsiString;
  i : integer;
const
  cstDebut=#2;
  cstFin=#13#10;
begin
  Label11.Caption := 'Réception du poids';
  sMsg := Socket.ReceiveText;
  Deconnexion(csBalance);
  sMsg2 := Trim(Copy(sMsg,Pos(cstDEbut,sMsg)+Length(cstDebut)+2,Pos(cstFin,sMsg)-Pos(cstDebut,sMsg)+Length(cstDebut)));
  ShowMessage(sMsg2);
  Edit6.Text := Copy(sMsg2,1,7);
 end;

Mon poids s'affiche mais le code que je vous ai mis précédemment passe malgré tout en premier par rapport au OnRead qui n'intervient qu'après

Avez vous une idée ?

Intégration socket récupération poids balance precia i20 - Temps de latence

Web & réseau Delphi

Vue hybride

Discussions similaires

Partager

Partager