indyを使うプログラムを多重起動するためには？ (ID:40376)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 igyさん、ありがとうございました。 再現できるかということで、下のようなプログラムを作り、８個起動して試してみました。 それぞれが２００回以上になるまでは順調に作動しましたが、２２０回とかになると順次、socket error #10060 connection time out というエラー表示を出して止まりました。最後までいけたのは1個だけでした。 100万回は無茶だと言われましたので今回は1000回にしました。 HtpDataGetは上にありますので、1度試してもらいたいです。 windowsvistでdelphi2009を使ってます。光通信です。 procedure TForm4.Button1Click(Sender: TObject); var s: String; i:integer; begin i:=0; repeat inc(i); s:=''; richedit1.lines.clear; edit1.text:=inttostr(i); HtpDataget (S,'http://www.yahoo.co.jp',0); if (i mod 10)<5 then richedit1.Lines.Text := S; Application.ProcessMessages; until i>1000; end;