DataArrivalで、複数データを受信するには？ (ID:119944)

名前

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

本文 「。。。」さん。早速の情報ありがとうございます。 私の情報が皆無でまことに申し訳ありません。 まず、環境ですが、OS:Windows2000 アプリケーション：VB(6.0)です。 プログラムの流れを簡単に申し上げますと、、、 Private Sub Form_Load() ReDim mRecLen(mMaxConnections) ReDim mRecvBuff(mMaxConnections) ' Winsockコントロール配列を作成 For idx = 1 To mMaxConnections Load tcpServer(idx) tcpServer(idx).LocalPort = 0 mRecLen(idx) = 0 ' 受信レコード長を初期化 mRecvBuff(idx) = "" ' 受信データの初期化 Next ' リスニングコントロールの初期化 tcpServer(0).LocalPort = cCONNECT_PORT tcpServer(0).Listen End Sub Private Sub tcpServer_ConnectionRequest (Index As Integer, ByVal requestID As Long) Dim idx As Integer If (Index = 0) Then For idx = 1 To mMaxConnections If (tcpServer(idx).State = sckClosed) Then tcpServer(idx).Accept requestID Exit For End If Next End If End Sub といった感じで、接続を待ちうけ、初回に書いた内容でデータを取得 しております。 通常の通信ではデータの混在は無いのですが、約７台以上のクライア ントが一斉にデータ送った場合に、稀（数百回に１度程度）ですが、 データ混在が発生します。 （PHSを利用した基地局からのデータ受信です） これでも未だ情報不足とは思いますが、何かヒントがあれば、教えて ください。 どうぞ宜しくお願いします。