1:
2:
3:
4:
5:
6:
7:

procedure Tfrm_Server.ServerSocketClientConnect(Sender: TObject; Socket: TCustomWinSocket);
begin
  mem_EventLog.Lines.Add('ClientConnect Handle/IP: ' + IntToStr(Socket.SocketHandle) + ' / ' + Socket.RemoteAddress);
  Socket.SendText('Hallo');
  lbl_ServerIP.Caption := 'IP: ' + socket.LocalAddress;
  lb_Clients.Items.add(IntToStr(Socket.SocketHandle) + #9 + Socket.RemoteAddress);
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

{Close selected Clients}
procedure Tfrm_Server.bu_CloseSelectedClick(Sender: TObject);
var i: integer;
begin
  while not (lb_Clients.SelCount = 0) do
  begin
    for i := 0 to lb_Clients.Count -1 do
    begin
      if lb_Clients.Selected[i] then
      begin
        ServerSocket.Socket.Connections[i].Close;
        break;
      end;
    end;
  end;
end;                    

1:
2:
3:

ServerSocket.Open;
lbl_ServerStatus.Caption := 'ONLINE';
lbl_ServerIP.Caption:= 'IP: ' + ServerSocket.Socket.LocalAddress;                    

1:
2:
3:
4:
5:
6:
7:

procedure Tfrm_Server.ServerSocketClientConnect(Sender: TObject; Socket: TCustomWinSocket);
begin
  mem_EventLog.Lines.Add('ClientConnect Handle/IP: ' + IntToStr(Socket.SocketHandle) + ' / ' + Socket.RemoteAddress);
  Socket.SendText('Hallo');
  lbl_ServerIP.Caption := 'IP: ' + socket.LocalAddress;
  {lb_Clients.Items.add(IntToStr(Socket.SocketHandle) + #9 + Socket.RemoteAddress);}noch änder!
end;                    

1:
2:
3:
4:

procedure Tfrm_Server.ServerSocketClientConnect(Sender: TObject; Socket: TCustomWinSocket);
begin
  lb_Clients.Items.AddObject(IntToStr(Socket.SocketHandle) + #9 + Socket.RemoteAddress , Socket);
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

{Close selected Clients}
procedure Tfrm_Server.bu_CloseSelectedClick(Sender: TObject);
var i: integer;
SelectedSocket : TCustomWinSocket;
begin
  for i := lb_Clients.Count -1 downto 0 do
  begin
    if lb_Clients.Selected[i] then
    begin
      SelectedSocket := TCustomWinSocket(lb_Clients.Items.Objects[i]);
      SelectedSocket.Close;
    end;
  end;
end;                    

1:
2:
3:
4:

  TClientSocket = class (TCustomWinSocket)
                  ModulAdress: integer;
                  ListIndex: integer;
                end;                    

1:
2:
3:
4:

procedure Tfrm_Server.ServerSocketClientConnect(Sender: TObject; Socket: TCustomWinSocket);
var ConnectString: String;
    NewClient: TClientSocket;
begin                    

1:

NewClient.?? := TCustomWinSocket.Create(Socket.SocketHandle)??                    

1:

NewClient := TClientSocket(Socket);                    

1:
2:
3:
4:
5:
6:

procedure Tfrm_Server.ServerSocketClientConnect(Sender: TObject; Socket: TCustomWinSocket);
var ConnectString: String;
    NewClient: TClientSocket;
begin
  NewClient := TClientSocket(Socket);
  ConnectClient(NewClient);                    

1:
2:
3:
4:

procedure Tfrm_Server.ConnectClient(NewClient: TClientSocket);
begin
  showmessage(NewClient.LocalAddress);
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

{Close selected Clients}
procedure Tfrm_Server.bu_CloseSelectedClick(Sender: TObject);
var i: integer;
SelectedSocket : TClientSocket;

begin
  for i := lb_Clients.Count -1 downto 0 do
  begin
    if lb_Clients.Selected[i] then
    begin
      SelectedSocket := TClientSocket(lb_Clients.Items.Objects[i]); {Da sitzt jetzt ein TClientSocket drin!}
      SelectedSocket.Close;
    end;
  end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

procedure Tfrm_Server.bu_CloseSelectedClick(Sender: TObject);
var i: integer;
SelectedSocket : TClientSocket;

begin
  for i := lb_Clients.Count -1 downto 0 do
  begin
    if lb_Clients.Selected[i] then
    begin
      SelectedSocket := TClientSocket.Create;
      SelectedSocket := TClientSocket(lb_Clients.Items.Objects[i]);
      SelectedSocket.ClientSocket.Close;
      SelectedSocket.Destroy;
    end;
  end;
end;                    

1:
2:
3:
4:
5:
6:

  var
    i: Integer;
begin
  for i := lb_Clients.Count-1 downto 0 do
    if lb_Clients.Selected[i] then
      TCustomWinSocket(lb_Clients.Items.Objects[i]).Close;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

type
  TTCP_Client = class (TObject)
                  Socket: TCustomWinSocket;
                  Connected: boolean;
                  LastPing: TDateTime;
                  ModulAdress: integer;
                  IP: String;
                  Typ: Integer;
                  HW: Integer;
                end;                    

1:
2:
3:
4:
5:
6:
7:

procedure Tfrm_Server.ServerSocketClientConnect(Sender: TObject; Socket: TCustomWinSocket);
var NewClient: TTCP_Client;
begin
  NewClient := TTCP_Client.Create;
  NewClient.Socket := TCustomWinSocket(Socket);
  ConnectClient(NewClient);
end;                    

1:
2:
3:
4:

procedure Tfrm_Server.ConnectClient(NewClient: TTCP_Client);  nur socket übergeben!!
begin
  lb_Clients.Items.AddObject('???' + #9 + NewClient.Socket.RemoteAddress , NewClient);
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

procedure Tfrm_Server.bu_CloseSelectedClick(Sender: TObject);
var i: integer;
{SelectedClient : TTCP_Client;}

begin
  for i := lb_Clients.Count -1 downto 0 do
  begin
    if lb_Clients.Selected[i] then
    begin
      {SelectedClient := TTCP_Client.Create;
      SelectedClient := TTCP_Client(lb_Clients.Items.Objects[i]);
      SelectedClient.Socket.Close;
      SelectedClient.Destroy; }
      TTCP_Client(lb_Clients.Items.Objects[i]).Socket.Close;
    end;
  end;
end;                    

1:
2:
3:
4:
5:
6:
7:

procedure Tfrm_Server.ServerSocketClientConnect(Sender: TObject; Socket: TCustomWinSocket);
var NewClient: TTCP_Client;
begin
  NewClient := TTCP_Client.Create;
  NewClient.Socket := TCustomWinSocket(Socket);
  lb_Clients.Items.AddObject('???' + #9 + NewClient.Socket.RemoteAddress , NewClient);
end;                    

1:

var ClientList: TList;                    

1:
2:
3:

procedure Tfrm_Server.FormCreate(Sender: TObject);
begin
  ClientList := TList.Create;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

procedure Tfrm_Server.ConnectClient(Socket: TCustomWinSocket);
var Index: integer;
begin
  Index := ClientList.Add(TTCP_Client.Create);  //?????
  with TTCP_Client(ClientList.Items[Index]) do
  begin
    Socket := Socket;
    Connected := false;
    ModulAdress := 0;
    IP := Socket.RemoteAddress;  //kommt später raus
    Typ := 0;
    HW := 0;

    lb_Clients.Items.AddObject('???' + #9 + IP , TTCP_Client(ClientList.Items[Index])); // Zeiger auf einen meiner Clients in der Liste
    Socket.SendText('‡000001FFFF');
  end;                    

1:
2:

public // besser in die Klasse packen
  ClientList: TObjectList;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure Tfrm_Server.ConnectClient(Socket: TCustomWinSocket);
  var
    NewClient: TTCP_Client;
begin
  NewClient := TTCP_Client.Create;
  NewClient.Socket := Socket;
  // weitere Eigenschaften belegen...
  ClientList.Add(NewClient); // in die TObjectList, wird Eigentümer des Objekts!

  lb_Clients.Items.AddObject('???' + #9 + IP , NewClient); // Referenz merken
  Socket.SendText('‡000001FFFF');
end;                    

1:

ClientList.Add(NewClient); // in die TObjectList, wird Eigentümer des Objekts!                    

1:

ClientList.Add(TTCP_Client.Create);                    

1:
2:
3:

Index := ClientList.Add(TTCP_Client.Create);
with TTCP_Client(ClientList.Items[Index])do
  //eigenschaft....