Bonsoir,

j'utilise TRegExpr pour faire mes regex.
Voici 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 TForm1.testClientRead(Sender: TObject; Socket: TCustomWinSocket);
const
RRegister = '[A-Za-z]+ : [a-zA-Z0-9]+ || [a-zA-Z0-9]+';
var
r : TRegExpr;
result : String;
begin
  //Log data
  Memo1.Lines.Add(DateTimetoStr(Now()) + ' | ' + Socket.RemoteAddress + ' | ' + 'Client Sending Data');
  Result := '';
  r := TRegExpr.Create;
 
  try
    r.Expression := RRegister;
    if r.Exec(Socket.ReceiveText) then
      REPEAT
      Result := Result + r.Match [0];
      UNTIL not r.ExecNext;
    finally r.Free;
  end;
  ShowMessage(Result);
 
end;
Voila ce que vaut Socket.ReceiveText : Register : Pseudo || Pass où pseudo et pass contiennent n'importe quel charactère.

Voila ce que je veux faire : sortir dans uen variable le mod Register, dans une autre le pseudo et dans une derneire le password.

Quelqu'un peut il m'aider ?