Re: Need help creating a multi client TCP server with Ada

[alex.aanis@gmail.com]

>     use type GNAT.Sockets.Stream_Access;
>                                -- Adam

Yes, I now can can store the channels. However I still can't connect more than one client. Is there  something wrong with my listener task:

 task body listenerTask is
  status      : Sockets.Selector_Status;
  Client      : Sockets.Sock_Addr_Type;
  Connection  : Sockets.Socket_Type;
  channel      : Sockets.Stream_Access;
  
 begin
  loop
   Sockets.Accept_Socket (
			  Server  => Receiver,
			  Socket  => Connection,
			  Address => Client,
			  timeout => 30.0,
			  Status  => status
			 );

   channel := Sockets.Stream (Connection);
   channels.Append (channel);

  end loop;
 end;