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

名前

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

本文 「。。。」さん。お返事ありがとうございます。 早速なのですが、最初に見ていただいた「DataArrival」の中で、mRecLen(Index)の初期化を入れてあります。 下のような感じです。 Private Sub tcpServer_DataArrival(Index as Integer, Byval bytesTotal As Long) Dim tmpBuff As String tcpServer(Index).GetData tmpBuff, vbString, bytesTotal mRecLen(Index) = mRecLen(Index) + bytesTotal mRecvBuff(Index) = mRecvBuff(Index) & tmpBuff If (mRecLen(Index) >= 256) then --- ↓↓処理↓↓ --- ： ： --- ↑↑処理↑↑ --- mRecLen(Index) = 0 '<----この部分です。 mRecvBuff(Index) = "" End If 初期化の場所が不適切なのでしょうか。。。？ 素人質問で申し訳ないのですが、教えてください。 宜しくお願いします。