Infos über Client

[mb1996]

Ich benutze die Sockets für meinen Chat. Nun habe ich ein Problem.
Mit Socket.RecieveText was der Client sendet. Wie bekomme ich raus, welche Connectionsnummer der Client ist, der eine Nachricht sendet?

[mleyen]

In einer Schleife die Socket.Handle Werte abgleichen?

[mb1996]

Was muss ich den genau machen. Wie funktioniert das mit Socket.Handle?

[hans ditter]

Wenn ich das richitg sehe, dann in etwa so:

Delphi-Quellcode:

for i:= o to TServerWinSocket(Sender) do
begin
  if TServerWinSocket(Sender).Connections[i].SocketHandle = Socket then
  begin
    //hier kommt hin, was du dann tun willst
  end;
end;

LG; hans ditter

[mb1996]

Ich werde es bald ausprobieren. Danke
Wenn ich sonst Fragen haben, werde ich euch schreiben :thumb:

[mb1996]

hm

Code:

for b:= 0 to TServerWinSocket(Sender) do
       begin
       if TServerWinSocket(Sender).Connections[b].SocketHandle = Socket then
        begin
        Server.Socket.Connections[b].SendText('ONLINE: ' + Usermanager.Accounts.Items[b].UserName);
        end;
       end;

Das funktioniert nicht. ,,to TServerWinSocket(Sender)" ist kein Integer.

[Phoenix]

er meint auch eher Length(TServerWinSocket(Sender).Connections)
- oder TServerWinSocket(Sender).Connections.Count.. ? halt die Anzahl der Connections, die Du danach in der Schleife durchläufst.

[mb1996]

Delphi-Quellcode:

if TServerWinSocket(Sender).Connections[b].SocketHandle = Socket then

-Operatoren auf diesem Level nicht anwendbar
:?

[Die Muhkuh]

Evtl. Socket.Handle?