Проблема с Winsock (передаёт две переменные как одну :-( )

[XairOn]

Здравствуйте. У меня такая проблема возникла: когда я передаю две строковых переменные от клиента к серверу, то почему-то они туда доходят как одна, например:
text1.text="Visual "
text2.text="Basic"
winsock.SendData text1.text
winsock.SendData text2.text

Вроде всё правильно, но сервер принимает две переменные как одну и получится, что text1.text="Visual Basic", а text2.text="". Помогите пожалуйста от этого избавиться!

[er_admin]

каждую строку перед посылкой обрамлять спец.символами, а потом при приеме вычислять то, что внутри. (winsock.senddata "{"+text1.text+"}"

моя фунция для этого:
Public Function fun_SplitString(str_SplitStroka As String, str_SplitChar1 As String, str_SplitChar2 As String)
Dim mas_str_TempArray() As String
Dim str_SimvolTemp As String
Dim iter1 As Integer, iter2 As Integer, iter3 As Integer

For iter1 = 1 To Len(str_SplitStroka)
str_SimvolTemp = Mid(str_SplitStroka, iter1, 1)
If str_SimvolTemp = str_SplitChar1 Then
For iter2 = iter1 + 1 To Len(str_SplitStroka)
str_SimvolTemp = Mid(str_SplitStroka, iter2, 1)
If str_SimvolTemp = str_SplitChar2 Then
ReDim Preserve mas_str_TempArray(iter3) As String
mas_str_TempArray(iter3) = Mid(str_SplitStroka, iter1 + 1, iter2 - iter1 - 1)
iter3 = iter3 + 1
iter1 = iter2
Exit For
End If
Next iter2
End If
Next iter1
fun_SplitString = mas_str_TempArray()
Erase mas_str_TempArray()
End Function

только надо, чтобы в в отправляемых строках не было этого спец.символа, а то просплититься неправильно.

иного решения я не нашел.

[tyomitch]

er_admin, я бы использовал vbNullChar вместо "{" - уж он-то в текстбоксе точно встретиться не может.

[hCORe]

Лучше Chr(1)

[tyomitch]

Лучше Chr(1)

Чем лучше? Он-то в текстбоксе может и оказаться!

[xenomorph]

Какие бы символы не использовались, есть вероятность что они будут в теле пакета передачи и ... аут . Просто в начале первого пакета - необходимо указать длинну всего пакета. И резать все данные по размеру и контрольной сумме .

[XairOn]

xenomorph спасибо большое, я вобщем-то так и поступил. Если кому-нибудь понадобиться приведу пример:
в моём случае нужно было отделить одну текстовую переменную от другой, вот как я это сделал:


For i = 1 To Len(текстовая переменная)
If Asc(Mid$(текстовая переменная, i, 1)) <> 124 Then m = Val(Mid$(текстовая переменная, 1, i)) Else Exit For
Next i
текстовая переменная1 = Mid$(текстовая переменная, i + 1, m)
текстовая переменная2 = Mid$(текстовая переменная, m + Len(Str(m)) + 1)