tserversocket de me.....

Question

bon jarive toujours aps a reconaitre l'ID d'une multiconection :
var
  Form1: TForm1;
con: integer;
implementation

{$R *.dfm}

procedure TForm1.ServerSocket1Accept(Sender: TObject;
  Socket: TCustomWinSocket);
begin
con=con+1;
socket.Accept(con);
end;

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
  var tmp:string;
begin
tmp:=socket.ReceiveText

///////////DE QUI VIENT CE MESSAGE ??? (quel index, car je peut exxepter plusieur conection simultané !)//////////////

end;

cs_Nono40 · Answer

Essaye quelque chose du genre :

procedure TForm1.ServeurSocket1Connect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  Inc(Con);
  Socket.Data:=Pointer(Con);
end;

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
  var tmp:string;
  Id:Integer;
begin
  tmp:=socket.ReceiveText;

  // Pour retrouver l'index :  
  ID:=Integer(Socket.Data);
end;

--- :sleepy)  Nono du Moulin  :sleepy) ---

Tserversocket de me.....

1 réponse

Votre réponse

Discussions similaires