受信待ち（TCP/IP）の設定について (ID:80921)

名前

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

本文 今回、TCP/IPで接続確立するソフトを作成しています。 クライアントとサーバーの二つで構成されており、チャットプログラムです。 そこで、Winsockメソッドを使用し、クライアント側へ ------------------------------------------------------------------ Private Sub Command1_Click() With Winsock1 If .State = sckClosed Then .RemoteHost = Text1.Text .RemotePort = Text2.Text .Connect End If End With End Sub --------------------------------------------------------------------- となっております。そして受信部なのですが、 --------------------------------------------------------------------- Private Sub Form_Load() With Winsock1 .LocalPort = 1001 'Port Nomber .Listen 'State End With End Sub Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long) With Winsock1 If .State <> sckClosed Then .Close End If .Accept requestID End With End Sub --------------------------------------------------------------------- こうなっています。ちゃんと接続確立できました。 しかし。なぜか1度接続確立して、クライアント側を閉じてしまうと、 サーバー側をもう一度起動しなければ接続できなくなってしまいます・・・。 エラーには「接続が受付られませんでした」と記入されています。 どうかお力をお貸しください。