winsock и обрезанный пакет.

[Dimen]

Делаю авторизацию через контрол winsock, получаю текст страницы, текст страницы неполный. Он его режет по кускам и отправляет, как собрать весь код?

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

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

[VBTerminator]

1. Определи метку конца передачи (пусть это будет NULL).
2.

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

Dim tmp As String

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
  Dim Data As String
  Winsock1.GetData Data
  tmp = tmp & Data

  If Right(tmp, 1) = vbNullChar Then Text1.Text = tmp: tmp = ""
End Sub

[Dimen]

Спасибо. Но что то результата нет, не работает.

[Dimen]

вот так сработало:

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

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
  Dim Data As String
  Winsock1.GetData Data
  tmp = tmp & Data

  'If Right(tmp, 1) = vbNullChar Then
  Text1.Text = tmp
End Sub


Спасибо!

[Dimen]

Кстати что то по началу ступил жестко можно же вот так:

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

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

[Хакер]

VBTerminator, зачем ты советуешь гадость?

[awl100Alex]

Dimen
Зачем отправлять текст по кускам??? Обрезание... скорее всего делает Text1 – это у него такой глюк, поэтому оправляй весь текст страницы, а в Text1 загоняй через...

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

SendMessage Text1.hwnd, WM_SETTEXT, ByVal 0&, ByVal Data

Вот тут посмотри аналогичная проблема...
http://bbs.vbstreets.ru/viewtopic.php?f=1&t=39495

[dr.MIG]

awl100Alex, не надо предлагать ерунду. По-твоему, текст всегда приходит одним куском? Если ты так считаешь, то ты глубоко заблуждаешься.

P.S. а обрезание делает исключительно хирург.

[arvitaly]

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

ByVal bytesTotal As Long

зависит от скорости и ширины канала

[JohnK]

Я в своем проекте делал так: посылаю кусок текста, а впереди длину текста:

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

sss = CStr(Len(sss)) & vbCrLf & sss
WS.SendData sss


Принимающая сторона должна склеивать пришедшее и резать по длине, которая передается в начале строки.

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

next_i = 1: bExit = False
While Not bExit
 
  i = InStr(next_i, sData, vbCrLf)
  If i = 0 Then Exit Sub
 
  CRC = Val(Trim(Mid(sData, next_i, i)))
  If CRC = 0 Then Exit Sub

  Our_string=(Mid(sData, i + 2, CRC))
 
  next_i = i + 2 + CRC
  If CRC > Len(sData) Then Exit Sub
   
Wend