Отправка пакетов ......

[Valerik]

Здарова Всем !
У мя вот такая проблемка, с отпракой данных, мяг сказать данные у меня привышают 256 символов, следовательно надо их разбить на Пакеты, вот гляньте, где здеся ошибка:

If Len(WHWS) > 255 Then
'MsgBox Len(WHWS) & "=====" & Round(Len(WHWS) / 255)
For i = 0 To Round(Len(WHWS) / 255)
ws.SendData Mid(WHWS, i * 255 + 1, 255)
Next
End If

Заранее благодарен

[GSerg]

Че, правда 255 максимальная длина пакета?
В любом случае.

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

For i = 0 To Len(WHWS) \ 255
  ws.SendData Mid$(WHWS, i * 255 + 1, 255)
Next
ws.SendData Mid$(WHWS, i * 255 + 1)

[mad_Max]

Во-первых, че-то я сильно сомневаюсь насчет максимальной длины пакета.
Во-вторых, а в чем собственно ошибка? Что не так работает? Пакеты не доходят, доходят не все или еще что-то?
В любом случае, насколько я помню, не получится просто так в цикле отправлять сообщения через Winsock. Я обычно дожидаюсь отправки пакета перед отправкой следующего (ожидаю событие SendComplete).

[Valerik]

У мя ошибка в том что эта вся бодяга делает перессылку данных раз через раз. Ваще уже запарился, то передаёт то нефига. Как я понимаю, если он полных к примеру 6 пакетов набирает то отправляет, а если ненабрал то лажа, но это тоже невсегда так работает.
А на счёт отправки данных, чо вы к ним така привязалиь, я просто их разбиваю на пакеты, мне кажется так проще.
Люди если у кого есть пример, где отправка данных и приём данных работает отлаженно, то киньте, был бы примного благодарен. А то уже честно слово подзае*ался с этой проблемкой.

[Георгий]

Прикол в том, что размер пакета максимальный как раз и не 256. А около 1.5кб (примерно 256*6 ) Так что вот так

[Cyrax]

а зачем такие извращения, можно узнать?
что тут может быть проще в этом методе?
сначала разбиваем вручную на пакеты, потом эти пакеты отправляем. а как ты их на получателе собирать думаешь?... они ведь не обязательно туда прилетят именно в том проядке в каком ты их отправлял.
и потом... разбивка на пакеты нужной длинны уже реализована на уровне самого WinSock-API. зачем усложнять себе жизнь? не пойму...

так что все очень просто. отправка:

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

WinSock1.SendData msgData

получение:

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

Private Sub WinSock1_DataArrival(ByVal bytesTotal As Long)
  Dim DataReceived As String
  WinSock1.GetData DataReceived, vbString ' выгребаем все дынные из буфера
End Sub

[Георгий]

Граждане, поддержу предыдущего выступающего, и от себя добавлю:

стек протоколов TCP/IP гарантирует надежную доставку пакетов, их разбиение на более мелкие, если вдруг это понадобиться, машрутизацию, сборку на принимающей стороне, и еще много разных вещей. Не занимайтесь ерундой... Хотя мне впринципе все равно - хотите - занимайтесь