Скорость передачи по WinSock

[Саша_ОР]

Добрый день!
Дамы и господа, помогите пожалуйста. Так вот, делаю я игру по сети, танк через каждые 50 миллисекунд изменяет координаты и они пересылаются с такой же скоростью по сети, но почему-то положение танка изменяется только через секунду. Использовал индексы, но это усложняет код, нет ли другого, более оптимизированного способа, а так же можно ли посылать пакет сразу же, не выходя из процедуры?
Заранее благодарен!

[tyomitch]

Телепатов нет, так что показывай код.

[Саша_ОР]

Сам код очень длинный и по кускам вы его не поймете. Просто я посылаю данные через каждые 50 миллисекунд, но на удаленный комп они приходят через секунду, а мне необходимо, чтобы они приходили через каждые 50 миллисекунд... Делаю танки по сети, почто доделал!

[alibek]

Мечтать не вредно.
Данные придут тогда, когда придут.

[Хакер]

tyomitch

Телепатов нет, так что показывай код.

Обижаешь

[Viper]

Ну раз они таки есть, то... показывай код

[GB826]

Чем отсылаются?
Как получаются?

[vvs_adm]

Чем отсылаются?

Connection to the remote brain of the telepathist | Хакер
...
Ok.
Result: WinSock.SendData
Connection closed.

Как получаются?

Connection to the remote brain of the telepathist | Хакер
...
Ok.
Result: WinSock_DataArrival()
Connection closed.

[Kovu]

Как ускорить:
попробовать принести компы друг к другу и соединить их прямым проводом.
А vvs_adm сломал Хакера

[13GHOST]

Может попробывать это через DirectPlay сделать?

[alibek]

Человек с обычным сокетом не может разобраться, какой DirectPlay?

[Саша_ОР]

Я где-то видел тему про WinSock, не никак не могу найти вот что. Дело в том, что WinSock передает данные только тогда, когда процедура закончилась, а мне необходимо послыть данные, еще находясь в процедуре.
А вот код отправки через каждые 50 миллисекунд.

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

Private Sub MoveTank_Timer()
  Call PesokTank
  Call LedTank
    Select Case gBytTankGrad
      Case 1: If PT.Y > 0 Then PT.Y = PT.Y - gBytTankStep
      Case 2: If PT.X < 110 Then PT.X = PT.X + gBytTankStep
      Case 3: If PT.Y < 130 Then PT.Y = PT.Y + gBytTankStep
      Case 4: If PT.X > 0 Then PT.X = PT.X - gBytTankStep
    End Select
  Call BlockTank
  Call TankInTank
  Call MapRefresh
  WsTankNUM = WsTankNUM + 1
    If WsTankNUM = 41 Then WsTankNUM = 1
  WsTank(WsTankNUM).SendData (Chr$(PT.X) & Chr$(PT.Y) & Chr$(gBytTankGrad))
End Sub

[keks-n]

DoEvents? Sleep?

[Саша_ОР]

DoEvent мне помог вот в таком коде
В нем отправляется только последнее, но вставка DoEvent помогла отправить и те и те данные.
А как можно отправить пакет не выходя из главной процедуры?

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

Winsock1.SendData ("1")
Winsock2.SendData ("2")


[tyomitch]

А, ещё один привязавшийся к конкретному разбиению TCP-потока по пакетам? Ай-яй-яй.

Нужны пакеты -- юзай UDP. Нужны пакеты с гарантией доставки -- придумай свой протокол поверх TCP. Хотя в игре гарантия доставки, наверное, ни к чему.