Client ausfindig machen

[Rastaman]

Hallo. Ich hätte da eine Frage zu den Sockets.
Und zwar habe ich einen server und mehrere Clienten verbinden.
Die Clienten senden Text. Nun möchte ich herausfinden von welchem der Text kam.
Ungefähr so.

Delphi-Quellcode:

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  ShowMessage('Nachricht von Client Nr.' + IntToStr(?) + ' empfangen');
end;

Was muss ich für das ? einsetzen??
Danke schonmal.

[freak24]

Zitat:

Zitat von Gerrit89

Was muss ich für das ? einsetzen?

Also du kannst das Handle anzeigen lassen

Delphi-Quellcode:

Socket.SocketHandle

Möglich wäre auch die Adresse/Hostname

Delphi-Quellcode:

Socket.RemoteAddress
Socket.RemoteHost

Ich hoffe du kannst damit was anfangen.

[Rastaman]

Nein.
Wenn 2 Clienten verbunden sind muss die zahl für das ? entweder 0 oder 1 sein.

[Phistev]

Erstelle eine Liste / ein Array, indem du einer Adresse eine ID (0,1,2,...) zuweist. Benutz dann die Adresse, um die ID herauszufinden.

[Rastaman]

Öhm, das versteh ich nicht wirklich.
Dadurch weiß ich doch auch nicht welcher Client gesendet hat.

[Grendel]

Zitat:

Zitat von Gerrit89

Dadurch weiß ich doch auch nicht welcher Client gesendet hat.

Ja aber sicher doch.
Wenn Du eine Zuordnung von IP+Port zu einer eindeutigen ID hast kannst Du soch sagen, daß Der Client, der auf Port xyz von IP abc sendet die ID 123 hat.

Bis neulich ...

[Rastaman]

Könntest du da mal n konkretes Beispiel schreiben?

[Phistev]

Delphi-Quellcode:

type TIPID = record
  adress: string; //oder integer
  ID: integer;
end;
type TIPIDArray = array of TIPID

[Rastaman]

Öhm und dann?
Wie siehts dann mit OnClientConnect und OnClientRead aus ?

[Phistev]

Erstelle in der Klasse TForm1 eine Variable vom Typ TIPIDArray, und greife dann darauf zu. In OnClientConnect machst du (evtl.) das Array mit SetLength größer und hängst die IP mit der ID an, in OnClientRead durchsuchst du dann einfach das Array.