From mboxrd@z Thu Jan 1 00:00:00 1970 X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me X-Spam-Level: X-Spam-Status: No, score=0.1 required=5.0 tests=BAYES_00,FREEMAIL_FROM, PDS_OTHER_BAD_TLD autolearn=no autolearn_force=no version=3.4.4 X-Received: by 10.42.82.137 with SMTP id d9mr4265157icl.25.1391730020810; Thu, 06 Feb 2014 15:40:20 -0800 (PST) X-Received: by 10.140.96.37 with SMTP id j34mr2076qge.34.1391730020777; Thu, 06 Feb 2014 15:40:20 -0800 (PST) Path: eternal-september.org!reader01.eternal-september.org!reader02.eternal-september.org!news.eternal-september.org!news.eternal-september.org!news.eternal-september.org!feeder.eternal-september.org!feeder.erje.net!eu.feeder.erje.net!news.glorb.com!c10no11360805igq.0!news-out.google.com!y18ni4938qap.1!nntp.google.com!f11no13248186qae.1!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail Newsgroups: comp.lang.ada Date: Thu, 6 Feb 2014 15:40:20 -0800 (PST) In-Reply-To: <173b40e2-b288-4375-9842-e6058e565379@googlegroups.com> Complaints-To: groups-abuse@google.com Injection-Info: glegroupsg2000goo.googlegroups.com; posting-host=85.226.118.98; posting-account=Q4keDQoAAADVvR66mtecxKV-0pCNQlyk NNTP-Posting-Host: 85.226.118.98 References: <1408dd3b-f555-4b75-94ef-cdb9c06ed0ca@googlegroups.com> <173b40e2-b288-4375-9842-e6058e565379@googlegroups.com> User-Agent: G2/1.0 MIME-Version: 1.0 Message-ID: Subject: Re: Need help creating a multi client TCP server with Ada From: alex.aanis@gmail.com Injection-Date: Thu, 06 Feb 2014 23:40:20 +0000 Content-Type: text/plain; charset=ISO-8859-1 Xref: news.eternal-september.org comp.lang.ada:18412 Date: 2014-02-06T15:40:20-08:00 List-Id: > 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;