hallo
dp,
wiedermal ein socket-problem:
diesmal möchte ich vom server aus einzelne Clienten disconnecten.
beim connecten eines clienten werden die clienten-daten in ein listbox geladen:
Code:
procedure TForm1.ServerSocket1ClientConnect(Sender: TObject;
Socket: TCustomWinSocket);
var
ib : integer;
begin
Memo1.Lines.Add(timetostr(now)+' Neuer User betritt den Chat !');
edit10.text := 'User eingeloggt: ' + IntToStr(ServerSocket1.Socket.ActiveConnections);
listbox1.Clear;
for
ib := 0 to Serversocket1.Socket.ActiveConnections - 1 do
listbox1.Items.Add(serversocket1.Socket.Connections[
ib].RemoteHost + ' ' + serversocket1.Socket.Connections[
ib].remoteaddress);
end;
nun möchte ich das man ein item der listbox anklickt, dann auf den 'disconnect' button geht und die
verbindung zu diesem clienten getrennt wird.
oder eigentlich würde mir auch schon 'normaler' Code (ohne listbox) helfen.
bisher habe ich folgendes versucht:
Code:
procedure button1click;
begin
serversocket1.socket.connections[0].disconnect(1);
// oder das:
serversocket1.socket.connections[1].disconnect(1);
end;
beides funzt aber net !
die delphi hilfe konnte mir nicht helfen und aus google wurde ich auch net schlau !
Frohe Weihnachten !