TCP接続の2 つ以上の接続要求の受け付けをするには？ (ID:111179)

名前

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

本文

サーバー側
Option Explicit
Private intMax As Long

Private Sub Form_Load()
   intMax = 0
   sckserver(0).LocalPort = 1001
   sckserver(0).Listen
   tcpclient.Show
End Sub

Private Sub sckServer_ConnectionRequest _
(Index As Integer, ByVal requestID As Long)
   If Index = 0 Then
      intMax = intMax + 1
      Load sckserver(intMax)
      sckserver(intMax).LocalPort = 0
      sckserver(intMax).Accept requestID
      Load txtdata(intMax)
   End If
End Sub

Private Sub txtSendData_Change()

sckserver(intMax).SendData TxtSendData.Text
End Sub

Private Sub sckserver_DataArrival(ByVal bytesTotal As Long)

Dim strData As String
    sckserver(intMax).GetData strData
    TxtOutput.Text = strData
End Sub

クライアント側
Option Explicit

Private Sub Form_Load()

Winsock1.RemoteHost = "RemoteComputerName"
Winsock1.RemotePort = 1001
End Sub

Private Sub cmdConnect_Click()
Winsock1.Connect
End Sub

Private Sub txtSendData_Change()
Winsock1.SendData TxtSendData.Text
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim strData As String
Winsock1.GetData strData
TxtOutput.Text = strData
End Sub

で実行しテキストボックスに入力すると
「実行時エラー40006：指定したトランザクションまたは要求のプロトコルまたは接続状態に問題があります。」
というようなエラーメッセージがでます。

Winsock1.RemoteHost = "RemoteComputerName"  
                              ↑
                  自分の環境に合わせました。

ご意見お聞かせください。

←解決時は質問者本人がここをチェックしてください。

戻る