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=-1.3 required=5.0 tests=BAYES_00,INVALID_MSGID
	autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,297123c81a4f80e1
X-Google-Attributes: gid103376,public
From: "Chad R. Meiners" <v025@truman.edu>
Subject: Re: Socket buffer filling up
Date: 1999/11/18
Message-ID: <38342539.0@silver.truman.edu>#1/1
X-Deja-AN: 550299754
References: <383403bd.0@silver.truman.edu> <383404ee.0@silver.truman.edu>
X-Priority: 3
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2918.2701
X-Trace: news.more.net 942963933 150.243.160.9 (Thu, 18 Nov 1999 16:25:33 CST)
X-MSMail-Priority: Normal
NNTP-Posting-Date: Thu, 18 Nov 1999 16:25:33 CST
Newsgroups: comp.lang.ada
Date: 1999-11-18T00:00:00+00:00
List-Id: <comp.lang.ada>

Josh,

    I believe your problem has to do with the fact you are only shutting
down the socket and not closing it.  You are running out of available
sockets so either you need to reuse the sockets you have, or you need to use
the close_socket api form the Winsock api's to release them so other
programs can allocate sockets.  I have extended Jerry's socket package to
have this functionality.   E-mail me if you would like this package

-Chad R. Meiners

Josh Highley <joshhighley@hotmail.com> wrote in message
news:383404ee.0@silver.truman.edu...
> joshhighley@hotmail.com (Josh Highley) wrote in
> <383403bd.0@silver.truman.edu>:
>
> oops, my code wasn't correct, I forgot to specify the beginning of the
> loop.  Here's the correct code, hopefully:
>
> WITH Sockets;
> USE  Sockets;
> -- other wits and uses
>
> PROCEDURE my_sockets IS
>
>    Connection1 : Socket_Fd;
>    Connection2 : Socket_Fd;
>    Http_Port   : CONSTANT Positive  := 80;
>    Web_Server1 : CONSTANT String    := "www.server-one.com";
>    Web_Server2 : CONSTANT String    := "www.server-two.com";
>
> BEGIN  -- main program
>    LOOP
>       Connection1 := Socket (Af_Inet, Sock_Stream);
>       Put_Line("Connecting. . .");
>       Connect (Connection1, Web_Server1, Http_Port);
>          -- put stuff on socket
>       -- get stuff from socket
>       Shutdown(Connection1);
>
>          -- parse the data received
>
>       Connection2 := Socket (Af_Inet, Sock_Stream);
>       Connect(Connection2, Web_Server2, Http_Port);
>
>       -- put stuff on socket
>       -- get stuff from socket until certain information is found, then...
>       Put_Line("Closing Connection.");
>       Shutdown(Connection2);
>       DELAY Seconds_Wait;  -- I've been delaying 3 minutes
>    END LOOP;
>
> END my_sockets;
>
>
> Thanks,
>
> Josh Highley
> joshhighley@hotmail.com
>
>