Надоевший вопрос о потоках!

[Залетин ВиталийВикторович]

У меня вопрос такого плана: есть ли где в инете нормальные материалы на тему потоков в VB. Облазил много чего, но все локальные решения. Кокретно интересует вопрос: возможно ли написать компоненту, которая бы запускала в отдельном потоке ЛЮБОЙ код. И еще: интересно было бы узнать как вообще устроена система многопоточности - что там внутри?

[keks-n]

Написать можно, но работать без ошибок не будет, ну нет в VB6 нормальной поддержки многопоточности.

А компонента есть (откуда скачал не помню), от она:

[Amed]

Отсюда класс?

[ANDLL]

Кокретно интересует вопрос: возможно ли написать компоненту, которая бы запускала в отдельном потоке ЛЮБОЙ код.

Конечно!
Только требуеться, что бы этот код поддерживал многопоточность. А у VB с эти проблемы...
2Amed:Такое ощущение, что все помешались на этом примере.
Ну нет там многопоточности. НЕТ! В отдельном потоке выполянеться вызов одной единтсвенной API функции и только потому программа не рушиться. Стоит написать в потоке что-то типа A=Left(B,5) и все. На этом многопоточность заканчиваеться...
2keks-n:Собственно, то же самое...

[ANDLL]

Кста... трасиируя в отладчике седня свою прогу с удивлением заметил что в ВБ проблемы с много поточностью только у программиста =) гы.. в проге сам я НЕ создаю ни одного лишного потока кроме майна, в то время как ProcCallEngine нашего любимого msvbvm60 создает Аж 2 дополнительных потока для каждого МОДУЛЯ, вызываемого из Main

Запустил немаленькую прогу, написанную на VB, поставил breakpoint на NtCreateThread. Не разу не пикнуло. Не знаю, где ты там увидел, что VB создает новые потоки...

всвязи с чем любой модуль, вызываемый из майна запускается в виртуальной памяти...

Вообще, что бы то небыло, если оно запускаеться, лежит в вертуальной памяти.

как достать адрес вызова этого самого модуля Protect из Sub Main

Что за модуль? Модуль в понимании Win32, модуль как тип файла бейсика, или модуль это любой VB-файл?

[tyomitch]

Взял свою старую прогу наугад, запустил, посмотрел - 3 нити.
Одна в EXE, одна в kernel32.BaseThreadStartThunk, одна в rpcrt4.ThreadStartRoutine
Если кому интересно, могу дать кол-стеки.

[ANDLL]

Хочешь сказать, что я неправильно поставил breakpoint?

[tyomitch]

Выходит так.

[tyomitch]

7Сххххххх - это системные библиотеки WinNT. Лучше по этим адресам не химичить.

[Amed]

О Господи... Flex, что у тебя за проект?

[tyomitch]

да в том то и вся феня что почему то именно там и исполняется МОЙ код!!!! ужас ЛЮДИ просвятите темного!

Да почему же ты решил, что там исполняется ТВОЙ код?

[keks-n]

От он РАБОТАЮЩИЙ пример, в котором идет изменение переменных, взаимодействие с формой и всё такое.

[hCORe]

Ага. И компилируется в P-Code. Со всеми вытекающими.

[keks-n]

Но работает-же, а чем тя P-код не устраевает?

[hCORe]

P-Code медленный и под него есть куча декомпиляторов.

А вот эта библиотека позволяет делать многопоточность в Native-коде.
http://planet-source-code.com/vb/scripts/ShowCode.asp?lngWId=1&txtCodeId=26900
Там для вызова API-функций используется TLB.

Правда, не рекомендую использовать этот метод, не сохранив парочки резервных копий проекта... на всякий случай. И еще: объект Err и стандартный файловый ввод-вывод работать не будут. (проверено).

[hCORe]

И обязательно НАДО прочитать статью ПЕРЕД использованием. Иначе возможны проблемы

[keks-n]

Гм, ИМХО, проще ActiveX EXE нарисовать.

[ANDLL]

Вот тут я согласен.
Сам не пробовал, но есть подозрения, что уж в Ax EXE многопотчносуть должна работать.

[alibek]

Да, есть, причем "легальная". В свойствах проекта просто мультитредовость надо выставить.

[hCORe]

Между прочим, в формулировке темы значилось исполнение ЛЮБОГО кода, а не только кода класса из ActiveX EXE.

Есть, кстати, кое-какие плюсы у "нелегальной" реализации. К примеру, при работе с "легальной" многопоточностью автоматического переключения нитей при исполнении синхронных задач нет:

Asynchronous Tasks
Visual Basic doesn't provide a way to fork execution - that is, to have one thread initiate a method call on a new thread and immediately resume processing on the original thread. You can simulate this behavior in your test application by having the original method call turn on a timer and then return immediately. When the timer event occurs, you can turn the timer off and perform the asynchronous processing. This technique is discussed in "Asynchronous Call-Backs and Events", and is demonstrated (see "Creating an ActiveX Exe Component") and in the Coffee sample application.

(см. статью "Creating a Multithreaded Test Application")

А у "нелегальной" - переключение успешно происходит. Правда, от этого больше проблем, чем преимуществ.

[keks-n]

Между прочим, в формулировке темы значилось исполнение ЛЮБОГО кода, а не только кода класса из ActiveX EXE.

А кто мешает из класса вызвать этот "ЛЮБОЙ" код?

[alibek]

А кто мешает из класса вызвать этот ЛЮБОЙ код?

Попробуй, узнаешь.

[keks-n]

Alibek, поясни пожалуйста.

[keks-n]

Чем, хотелось бы знать? И какой именно код незя выполнить?

[ANDLL]

2keks-n:Тебе же сказали, попробуй. Ну что может быть проще?