Discussion :

[free07]

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

Oui mais '#2' tu l'as mis aussi dans un AnsiString ? Tu compares quoi un String avec un AnsiString ? Le message que tu reçois de ta balance, tu le mets directement dans un AnsiString ?

[juju1988]

Youps !!
Effectivement ça fonctionne tout de suite mieux j'ai bien mon poids qui me revient

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
var
  sMsg, sMsg2 : AnsiString;
  i : integer;
begin
  sMsg := Socket.ReceiveText;
  i := Pos(#2, sMsg);
  sMsg2 := Copy(sMsg, i+3,9);
  Socket.close;
  RichEdit1.Lines.Add(Socket.RemoteHost+'  '+sMsg2);
end;

OU la solution de LINKIN :

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.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
var
  sMsg, sMsg2 : AnsiString;
  i : integer;
const
  cstDebut=#2;
  cstFin=#13#10;
begin
  sMsg := Socket.ReceiveText;
  //i := Pos(#2, sMsg);
  //sMsg2 := Copy(sMsg, i+3,9);
  sMsg2 := Copy(sMsg,Pos(cstDEbut,sMsg)+Length(cstDebut)+2,Pos(cstFin,sMsg)-Pos(cstDebut,sMsg)+Length(cstDebut));
  Socket.close;
  RichEdit1.Lines.Add(Socket.RemoteHost+'  '+sMsg2);
end;

Merci beaucoup !!