PureBasic - форум

Информация о пользователе

Привет, Гость! Войдите или зарегистрируйтесь.

Вы здесь » PureBasic - форум » Вопросы по PureBasic » WinAPI и MultiTreads

WinAPI и MultiTreads

Страница: 1

Сообщений 1 страница 2 из 2

1

  • Автор: SadStar
  • Активный участник
  • Зарегистрирован: 19.09.2011
  • Приглашений: 0
  • Сообщений: 168
  • Уважение: [+2/-0]
  • Позитив: [+0/-0]
  • Провел на форуме:
    3 дня 11 часов
  • Последний визит:
    21.06.2023 08:59:22

как узнать - можно ли вызывать заданные функции WinAPI в параллельных потоках без синхронизации

например функция SendARP

При однопоточном сканировании все проходит без отказов но заметно-долгое время.

вызов такой

If SendARP_(inet_addr_(IP), 0, @MacAddr(0), @n) = #NO_ERROR
..............................
EndIf

попытка распараллелить   запросы потерпела неудачу

подозревается затык при вызове этой функции в некоторых потоках

0

2

  • Автор: Пётр
  • Активный участник
  • Зарегистрирован: 14.06.2009
  • Приглашений: 0
  • Сообщений: 2944
  • Уважение: [+96/-5]
  • Позитив: [+1/-0]
  • Пол: Мужской
  • Провел на форуме:
    2 месяца 9 дней
  • Последний визит:
    Вчера 16:55:01

Может в коде ошибка?

Этот код нормально работает в многопоточном режиме.

Код:
Procedure Th(*x)
  Dim MacAddr.l(100)
  IP.s="192.168.1.1"
  
  Repeat
    n=400
    If SendARP_(inet_addr_(IP), 0, @MacAddr(), @n) <> #NO_ERROR
      Debug "Err"
    EndIf
  ForEver
  
EndProcedure

For i=1 To 10
  CreateThread(@Th(), 0)
Next i

MessageRequester("", "")

0

Страница: 1

Вы здесь » PureBasic - форум » Вопросы по PureBasic » WinAPI и MultiTreads