SendData в цикле

[XairOn]

И снова здравствуйте, у меня теперь такой вопрос: можно ли отправлять данные методом WinSock.SendData в цикле, например:

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

For i = 0 To 10
tcpServer.SendData List1.List(i)
Next i

т.е таким образом я хочу передать содержимое листбокса сервера, листбоксу клиента, в клиенте у меня такой код:

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

For i = 0 To 10
tcpServer.GetData text
list1.AddItem text
Next i

если я таким образом пытаюсь сделать это, то получается, что у меня передается сразу все содержимое листбокса, (при i=0) а потом 10 раз пустые строки, можно ли вообще так делать (в цикле отправлять и принимать данные). Просто если содержимое листбокса "очень" велико (примерно 400 строк и больше), одной переменной не получается передать всё содержимое, клиентский листбокс получается каким-то обрезанным, поэтому я и решил передавать каждую строку по очереди...или есть другое решение этой проблемы??? Помогите пожалуйста!

[tyomitch]

Передавать данные в цикле - можно, но чтобы они не "склеивались" при передаче, нужно их чем-то разделять, например vbNullChar, а при приёме по этому разделителю резать обратно.

[XairOn]

vbNullChar...хм, ну при чем тут цикл? Если я правильно тебя понял, то клиент все равно будет получать одну строку, а иначе
зачем же ещё разделитьель нужен? Мне ведь нужно, чтобы каждая строка из листбокса по очереди отправлялась, а ты предлагаешь
(как я понял) в одной переменной всё передать, а потом нарезать опять же на строки, сначала я так и делал, но проблема в том,
что при большом количестве Item'ов они не все доходят, строка "обрезается". Не мог бы ты хотя бы маленький пример привести,
а то я что-то не совсем понимаю.

[tyomitch]

XairOn, винсок шлёт не "переменные", а поток данных. Иногда - на самом деле редко - в один поток попадает ровно одна переменная. А вообще, посланные переменные могут по дороге дробиться, а у клиента склеиваться незаметно для тебя.
Поэтому единственный выход - установить собственный контроль за пересылаемыми данными. Как вариант - разделять все строки vbNullChar, если есть гарантия, что внутри строк он не встретится.
Пример из головы (не проверял):

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

'сервер
Dim i As Long
For i = 0 To List1.ListCount
    Winsock1.SendData List1.List(i) & vbNullChar
Next


'клиент
Dim Buffer As String
Sub Winsock1_DataArrival
Dim Subbuffer As String, Chunks As Variant, i As Long
    Winsock1.GetData Subbuffer
    Buffer = Buffer & Subbuffer
    Chunks = Split(Buffer, vbNullChar)
    For i = 0 To UBound(Chunks) - 1
        List1.AddItem Chunks(i)
        Buffer = Mid$(Buffer, Len(Chunks(i)) + 1)
    Next
End Sub


[-=TsA=-]

Была у меня подобная проблема решил ее так:
1. Завел переменную типа Boolean

2. Проверяю переменную если True то посылаю пакет, и выставляю переменную в False, иначе пропускаю посылку пакета.

3. На клиенте по окончанию приема пакета отправляю на сервер сообщение "Ок".

4. На сервере по приеме сообщения "Ок" выставляю переменную в True далее см. п. 2.

так я гарантированно получал ровно столько сколько нужно

[kif]

На мой взгляд есть два варианта:
1 - склеить данные из listbox в одну строку ч/з разделитель и передать одной строкой.
2 - как предложено выше разработать свою систему комманд (что-то вроде протокола верхнего уровня).

[tyomitch]

На мой взгляд есть два варианта:
1 - склеить данные из listbox в одну строку ч/з разделитель и передать одной строкой.
2 - как предложено выше разработать свою систему комманд (что-то вроде протокола верхнего уровня).

Вариант 1 - гарантированно быстрее при ничуть не меньшей надёжности.
При этом не обязательно явно всё склеивать в одну строку, достаточно послать строки одну за другой.

[alibek]

Вопрос только в разделителе, ибо и vbNullChar не панацея. Советовал бы использовать не разделитель, а префикс, указывающий длину последующего потока данных.

[kif]

вопрос еще и в типе данных
допустим если передаются данные типа фио, адрес, www, email и т.д., то можно перед непосредственными данными втавлять соответствующий префикс - fio, adr, www, eml и т.д.

При приеме разобрать строку.

Вот и все.

[kif]

Это к тому, что в данном случае не требуется разделитель как таковой.

[tyomitch]

А если в email встретится строка "www", или наоборот, то что - всё сломается?

[kif]

tyomitch ты меня не понял.

Это просто условность.

Префиксы можно придумать такие, чтобы не было никаких исключений, даже на русском языке или с использованием цифр - параметр01, параметр02 и т.д.

[alibek]

Да уж
47-килобайтный префикс для 40-символьной строки