Проблема с WInsock'ом

[Demonx]

Получаю данные так:

Код: Выделить всё

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim Data As String
Winsock1.GetData Data, vbString
Text1.Text = Text1.Text & Data
End Sub

А мне нужно данные получить сразу, а не по частям.
Типо так:

Код: Выделить всё

Dim Buffer As String
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim Data As String
Winsock1.GetData Data, vbString
Buffer = Buffer & Data
If (Что то тут должно быть) Then
Text1.Text = Buffer
End If
End Sub

[Sebas]

Целиком не получиться(

[MEMBER]

Получиться...

Код: Выделить всё

Option explicit
Public m_bResponseReceived As Boolean
'============================
Private Sub Winsock1_Close()
    If Not m_bResponseReceived Then
           '....
           ' Обработка Data. Не конкатенация! К этому моменту
             в Data будет лежать всё, что нужно!
           '....
            m_bResponseReceived = True
            Winsock1.Close
    Else
            Exit Sub
    End If
End Sub

Внимание! В DataArrival Winsock НЕ ЗАКРЫВАТЬ!

[Alfa]

А в чем прикол? Данные то из WinSock я сразу получаю, и все? Или есть кое-что?