winsock-пакеты

[noob4ever]

В общем пытаюсь отправить пакеты:
Server(IntMax).SendData "100"
Server(IntMax).SendData "200"


в клиенте принимаются:
tcpclient.GetData getdatapocket
if getdatapocket="100" then ...
if getdatapocket="200" then ...

На клиент приходит сразу 2 пакета одновременно "100200"
Без понятия как сделать чтобы они прихадили поочереди?

[tyomitch]

Придумать протокол и использовать его.
TCP передаёт поток байтов, а не пакеты.
Нужны пакеты, юзай UDP. Тогда потеряется гарантия доставки.
Выбирай.

[Dimon007]

Поставить паузу.

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

Private Declare Function GetTickCount Lib "kernel32" () As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sub Pause(PauseTime As Long)
    Dim TM As Long
    TM = GetTickCount
    Do
     If GetTickCount - TM > PauseTime Then
        Exit Do
     End If
    Sleep 2
    DoEvents
Loop
End Sub

private sub command1_click()
    winsock1.senddata ssss
    call pause(150)
    winsock1.senddata ssss
end sub


[iGrok]

Поставить паузу.

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

Private Declare Function GetTickCount Lib "kernel32" () As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sub Pause(PauseTime As Long)
    Dim TM As Long
    TM = GetTickCount
    Do
     If GetTickCount - TM > PauseTime Then
        Exit Do
     End If
    Sleep 2
    DoEvents
Loop
End Sub

private sub command1_click()
    winsock1.senddata ssss
    call pause(150)
    winsock1.senddata ssss
end sub


Сомневаюсь, что это правильно решение.
Правильное подсказал tyomitch

[Dimon007]

Зато не придётся выбирать между "тем" и "тем", и всё работает

[iGrok]

Зато не придётся выбирать между "тем" и "тем", и всё работает

Это "все работает" ровно до тех пор, пока на клиентской машине параллельно с прогой-клиентом не запустят какое-либо ресурсоемкой приложение, которое не даст клиенту вовремя отработать первый пакет, в результате чего в буфере окажется опять "100200".

Тёмыч подсказал написать протокол. Наиболее простым вариантом будет перемежение данных какими-либо "служебными" символами.
При этом клиент все приходящие данные скидывает в некий буфер, и просматривает его на наличие этих "служебных" символов. Данные "от звонка до звонка" рассматриваются как пакет.
Символ, естественно нужно выбирать из числа тех, что никогда не встретятся в самих данных..

[Хакер]

iGrok
Да что ж вам всем охота символ-делитель делать, и искать его в данных, вместо того чтобы явно указать длину данных?

[noob4ever]

спасиба.

[iGrok]

iGrok
Да что ж вам всем охота символ-делитель делать, и искать его в данных, вместо того чтобы явно указать длину данных?

Хм.. Сделать фиксированную "длину пакета"? Тоже вариант..
Причем в данном случае даже лучше.

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