Client Connection geziehlt beenden

[Pump3r]

Hi, damit beende ich den Client der als erstes verbunden ist.
Kann mir jemand sagen wie ich, wenn ich 10 Clienten hab, rausbekomm welche IP welche ID hat?
ServerSocket1.Socket.Connections[0].Close; gruß pump3r :>

[marabu]

Hallo Christian,

du könntest raten - oder probiere es mal so:

Delphi-Quellcode:

function ConnectionIndexOf(server: TServerSocket; address: string): Integer;
begin
  with server.Socket do
  begin
    Result := Pred(ActiveConnections);
    while Result >= 0 do
      if Connections[Result].RemoteAddress = address
        then Exit
        else Dec(Result);
  end;
end;

Freundliche Grüße vom marabu

[Pump3r]

ne das mit dem raten lass ich mal lieber

dankeschön!

gruß chris

[BackYard]

hi, kann mir einer von euch, oder wer anders sagen, wie ich das dann anwende?
also wenn ich eine listbox hab, und zb ein client connected zu meinem server,
wie füg ich dann die ip und diese id indie liste?

vllt. könnt ihr mir ja helfen

grüßle by

[marabu]

Hallo BackYard.

Im Ereignis OnClientConnect deiner ServerSocket-Komponente kannst du die IP-Adresse des Client so in deine ListBox übernehmen:

Delphi-Quellcode:

procedure TDemoForm.ClientConnect(Sender: TObject; Socket: TCustomWinSocket);
begin
  ListBox.Items.Add(Socket.RemoteAddress);
end;

Grüße vom marabu