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

[Jacob Sparre Andersen <jacob@jacob-sparre.dk>]

alex.aanis@gmail.com writes:

> 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;

It looks like it might work.  Have you set up your receiver correctly?
Where are the connections processed?  It appears that "Channels" is a
global variable.  Have you made sure to make it protected?

You may want to add an exception handler to your listener task for
reporting any exceptions in the task.

It would be nice if you could adhere to the style described in the Ada
Quality and Style Guide (indentation, labels after "end", identifiers).

Greetings,

Jacob
-- 
"Computer Science is to Science, as Plumbing is to Hydrodynamics"