DoEvents и выполнение одновременно одной процедуры

[Source]

В Wsk_DataArrival сокета читаю данные в глобальный массив GetDat. Затем управление передаётся обработчику таймера напрямую (как обычный вызов процедуры, просто мне там удобно держать кусок кода) tmrGet_Timer, где вызывается процедура, в которой есть DoEvents. И после сего сокет принимает новый пакет UDP, который перезаписывает нужные данные (выходит ошибка из-за отсутствия нужных данных). Вопрос - почему Wsk_DataArrival вызывается повторно, когда предыдущий вызов Wsk_DataArrival не завершился и действительно ли в этом виноват DoEvents?

1а. Если бы не было ошибки, как бы происходило выполнение двух вызовов Wsk_DataArrival - параллельно и они бы нормально завершились?

Второй вопрос - события множества контролов (таймеров, сокетов и др.) выстраиваются в очередь для выполнения (т.е. выполняются последовательно) или же есть такие моменты (события некоторых контролов), когда возможно параллельное выполнение кода (где надо следить за глобальными переменными), если считать, что в моей программе нет ничего особенного вроде параллельных процессов и тому подобного, о коих я ещё и не знаю.

[GSerg]

и действительно ли в этом виноват DoEvents?

Что значит "виноват"? Это первейшее свойство его вызова. Что просишь у компа, то и получаешь.

параллельно

Нет, последовательно.

или же есть такие моменты

Или же нет таких моментов.

[Source]

Нет, последовательно.

Но ведь же произошёл 2-й вызов после DoEvents, когда первый не завершился?

[GSerg]

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

Код

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

sub foo
  foo2
end sub

sub foo2
  msgbox "!"
end sub

непоняток не вызывает?

[Source]

пример не вызывает. Но каким образом произошло у меня?
Private Sub Wsk_DataArrival(ByVal bytesTotal As Long)
if True then DoEvents 'Wsk_DataArrival ?
...
End Sub

После DoEvents идет другой код. Значит, при DoEvents процессор перешёл на выполнение второго Wsk_DataArrival, а потом управление перешло на код после DoEvents? А, ну да, на DoEvents управление передаётся обработчикам событий

[Source]

это натолкнуло меня на мысль, если сделать так:

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

Public CountSubWsk as long

Private Sub Wsk_DataArrival(ByVal bytesTotal As Long)
CountSubWsk=CountSubWsk+1
if CountSubWsk<1000 then DoEvents else CountSubWsk=0
'обработка пакета
End Sub

Если заносить данные в отдельный массив для каждого пакета, а потом обрабатывать, то такой способ позволит очень быстро вытягивать пакеты из буфера сокета, который, вроде не так велик. И пакеты не будут теряться из-за задержки обработки данных и переполнения буфера сокета. Хотя, м.б. такой нарастающий вызов Wsk_DataArrival может привести к переполнению стека... Но можно поставить глобальный счётчик. Но тогда будет большая задержка, когда будет обрабатываться 1000 пакетов. Но стек будет почти пуст. Здорово. Действительно ли это будет эффективнее?
Интересно, а сколько данных может принять буфер сокета?

[tyomitch]

Если просто нужно, чтобы был свой массив для каждого пакета, сделай его локальным внутри Wsk_DataArrival.

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

[Source]

а как этот размер можно получить?

[tyomitch]

Его не нужно получать. От него не нужно зависеть.

[Source]

мне интересно, каков его размер. Я буду в таймере определять процент его заполнённости и ориентироваться, теряются ли пакеты. Может, он будет у меня постоянно заполнен на 100%, тогда я должен буду принять меры!

[Amed]

Все это производится автоматически.

А какие меры, например?

[Source]

ну вы чё, издеваетесь? Поставлю буфер к стенке и расстреляю!