Multithreading

[f0rbeed]

Это конечно неплохо, но с C++ это уже другое дело. Там то с потоками вообще никаких проблем... Да и с другими делами тоже. 2ASD: А что за компонент для регистрации сервисов? Просто я столкнулся с тем что мне тоже бы это не помешало. 2 Aлександр Андреев: ждем твой проект...

[Александр Андреев]

Обещанный рассказ о проведенных исследованиях.

Действительно, VB поддерживает многопотоковость крайне криво. Приходится искать обходные пути, чтобы ее реализовать.
Один из таких путей - написать DLL на C++, которая бы выполняля вю работу с потоками. Это конечно неудобно, зато не будет падать.

Можно сдалать и в самом VB. Есть много мнений на этот счет. Я предлагаю свое. Итак, нужно придерживаться следующих пунктов:
1. Можно воспользоваться любым из модулей поддержки многопотоковости, что были предложены ранее в этом топике. Они все облекают функцию CreateThread, поэтому особой разницы между ними нет.
2. Управляющую функцию нужно объявлять так:

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

Public Function ThreadFunc(Param As Long) As Long

Неплохо также при выходе из нее вернуть какое-нибудь значение (по-моему принято возвращать -1 если все прошло без ошибок).
3. Важно: внутри управляющей функции должны быть только апишные вызовы. Программа становится крайне неустойчива, если встречается хотя-бы одна бейсиковская функция. Кто не верит, может попробовать такой пример:

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

Public Function ThreadFunc(Param As Long) As Long

    Call MsgBox "ThreadFunc"

    ThreadFunc = -1
End Function

У меня при этом наблюдалось 100% вылетов.
4. Компилировать надо в P-код.

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

[Александр Андреев]

Да, вот что забыл...
3.1. Дочерний поток может _безопасно_ обмениваться сообщениями с основным. Для этого можно использовать функцию SendMessage.

[ASD]

Компонент Dart ServerTool. ( http://www.dart.com/downloads/ )
Очень недурственно работает.
У меня написан сервис снятия статистики с роутера.
Падений небыло. Умеет писать в EventLog.
Фишки типа регистрации и анрегистрации держит.
Короче хвалю. Незнаю правда на сколко там новая версия на сайте.
У меня возможно постарее но с лекарством от жадности.

[f0rbeed]

2 Александр Андреев: А нельзя ли какой нибудь нормальный работающий пример выслать?

[Александр Андреев]

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

[Nikita]

А как передавать сообщения потоку? SendMessage - а подробнее?
Поток выполняет функцию, хочется изменять переменные в этой функции, и тп.