Считывание переменных через ЗПТ

[LexBondAgent007]

Всем привет! Довно небыло проблем у меня и вот пожалуйста:

В text1 записано:
7,2,6,Hoster

Передаю я через WinSock данные:
WinServer.SendData text1
Клиент их получает
WinClient.GetData MyData, vbString

И получается, что MyData = Hoster ВМЕСТО MyData = 7,2,6,Hoster

Проблема: Как считать данные? Пробовал:
1) WinClient.GetData a,b,c,d, vbString
2) WinClient.GetData [a,b,c,d], vbString
Но в обоих случаях VB ругается, что типа так нельзя

Вопрос: Как нужно правельно поделить дату на 4 переменные в моем случае? HELP!

[GSerg]

Покажи _DataArrival.

[LexBondAgent007]

Private Sub DataClient_DataArrival(ByVal bytesTotal As Long)
DataClient.GetData MyData, vbString
Label5.Caption = "Connected succesfully! Data: " & MyData
end sub

УСЕ!

[tyomitch]

А то, что данные приходят пакетами, мы не учитываем?

[LexBondAgent007]

Понимаю что пакетами! Так как нужно их обрабатывать то? В этом и вся соль!

[LexBondAgent007]

Народ! Ну помогите плз! А то проэкт на месте стоит!

[GSerg]

http://bbs.vbstreets.ru/viewtopic.php?t=19905

[vvs_adm]

GSerg
Этот позор удалять надо, а ты на него ссылку даешь

[GSerg]

vvs_adm
Теперь ты знаешь, что не только ты так делаешь. Разве немного не легче?

[LexBondAgent007]

Спасибо за ссылку, конечно... но вот я так и не понял на том примере ничего... Неужели поделить 4 числа через запятую, которые передались так сложно? А полегче примеры какие нибудь есть? Я же не PRO

[GSerg]

Это базовый пример.
Минимальный код для dataarrival.

[vvs_adm]

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

В твоем случае, как и в любом, нужно определиться с форматом данных и решать в соответствии с этим. К примеру можно первым байтом передавать длину следующей команды, если предопределено, что её длина не превышает 255 символов... Ну и так далее, вариантов много. Можно при этом (да и не плохо бы, а то так за-зря и пропадет), использовать BytesTotal

[LexBondAgent007]

Хорошо... допустим.... а как потом раскидать все на 4 переменные
исход: 7,2,6,Hoster
после передачи:
a = 7
b = 2
c = 6
d = Hoster

[vvs_adm]

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

[LexBondAgent007]

Так и всеь вопрос в том: КАК считывать то?

[GSerg]

http://bbs.vbstreets.ru/viewtopic.php?t=19905

[LexBondAgent007]

Это понятно
Я имею ввиду как сначало до , потом опять до , и снова до , и потом слово?

[vvs_adm]

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

dim sFullBufer as string

Private Sub DataClient_DataArrival(ByVal bytesTotal As Long)
  Dim sBufer as string
  Dim nEndPos as long
  Dim sResult as string

  DataClient.GetData sBufer, vbString
  sFullBufer=sFullBufer & sBufer
 
  nEndPos=Instr(1,sFullBufer,"символ конца строки")
  If nEndPos>0 Then
    sResult=Left$(sFullBufer,nEndPos-1)
    ' ну вот тут ты
    ' извращаешься над sResult
    sFullBufer=Right$(sFullBufer,len(sFullBufer)-nEndPos)
  End If
end sub


В итоге в sResult у тебя та строка "7,2,6,Hoster" , которую ты вначале никак не мог получить. А дальше делай с ней то, что и собирался.

[tyomitch]

Это понятно
Я имею ввиду как сначало до , потом опять до , и снова до , и потом слово?

Поищи по форуму "Split без доллара".

[LexBondAgent007]

У меня в итоге в sBufer - НИЧЕГО!

[vvs_adm]

Поищи по форуму "Split без доллара".

Достаточно одной таблетки (т.е. просто Split)

[vvs_adm]

LexBondAgent007
А потом найденный сплит примени к эсрезалт.

P.S.: как прям в квесте... Нашел ... , попробовал применить ..., получил новое задание

[LexBondAgent007]

Мы забегаем вперед...
Посмотрите мое предыдущее сообщение!
в sResult НИЧЕГО НЕТу! пустота!

Чувствую, пора мне достовать уже с полки яд...

[vvs_adm]

LexBondAgent007
Ну так ты кинь хоть кусок кода, где видно, что в sResult пустота...

[LexBondAgent007]

БОЖЕ МОЙ!!!!!!!!!!!!!!!!!!!!! ТАК Я ОТПРАВЛЯЛ ТО СОВСЕМ НЕ ТО ЧТО НАДО БЫЛО! ВМЕСТО 7,2,6,Hoster - Я ОТПРАВЛЯЛ ПРОСТО - Hoster

Мдя............... ОК теперь разбиваем на 4 переменные sResult
Но вот со сплитом я тоже не понял:
Он у меня разбивает на буквы почемуто А как надо чтоб ЗПТ отделяли слова? И как потом все в переменные закидать?

[LexBondAgent007]

КАКОЙ КОШМАР! Так он спокойно передает дату:

Private Sub DataClient_DataArrival(ByVal bytesTotal As Long)
DataClient.GetData MyData, vbString
Label5.Caption = "Connected succesfully! Data: " & MyData
end sub

И MyData = 7,2,6,Hoster

Теперь как это разбить на 4 переменные?

[tyomitch]

Твой код со сплитом покажи.
Похоже, ты ему задал лишние параметры.

[vvs_adm]

[vvs_adm]

КАКОЙ КОШМАР! Так он спокойно передает дату:

Private Sub DataClient_DataArrival(ByVal bytesTotal As Long)
DataClient.GetData MyData, vbString
Label5.Caption = "Connected succesfully! Data: " & MyData
end sub

И MyData = 7,2,6,Hoster

Теперь как это разбить на 4 переменные?

На самом деле в ЛЮБОЙ момент такой код даст тебе осечку. Пакет может обрезаться в самом неожиданном месте. Так как у тебя - делать нельзя. У тебя строка конечно короткая, но ты уверен разве, что сервер не успеет передать подряд несколько раз данные прежде, чем клиент их получит?

[LexBondAgent007]

tyomitch
Да я ему вообще параметры не задавал:
a = Split(Text1, ",")

vvs_adm
Спорить с ПРО не буду! Оставлю как посоветовал! Все = работает