Inet1のプロパティとPerlの環境変数について (ID:79425)

名前

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

本文 そのコードだと、正しく取得出来ないと思いますよ。＞Take1さん > RX_DATA = RX_DATA & Inet1.GetChunk(1024, icByteArray) 上記行で、先頭から1024バイト分を取得しているのに、 > If LenB(Inet1.GetChunk(1024, icByteArray)) = 0 Then mBool = True ここでさらに、次の1024バイト分を空読みしてしまっていますので、 データが1024バイト単位に飛び飛びになってしまいます。 こんな感じでは如何でしょうか。 Private mstrLog As String Private Const cSIZE As Long = 1024& Private Sub Inet1_StateChanged(ByVal State As Integer) If State = icResponseCompleted Then Dim buf() As Byte Dim log() As Byte buf = Inet1.GetChunk(cSIZE, icByteArray) Do While UBound(buf) >= 0 log = CStr(log) & CStr(buf) 'Debug.Print Format(UBound(log), "#,0") & "バイト受信" buf = Inet1.GetChunk(cSIZE, icByteArray) Loop mstrLog = StrConv(CStr(log), vbUnicode) End If End Sub