Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / API SHCreateThread передать и обработать параметр / 10 сообщений из 10, страница 1 из 1
21.02.2008, 16:25
    #35148243
michael R
michael R
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
API SHCreateThread передать и обработать параметр
описание запуск нового потока

Код: plaintext
1.
2.
3.
4.
5.
6.
Public Const CTF_COINIT = &H8
Public Const CTF_INSIST = &H1
Public Const CTF_PROCESS_REF = &H4
Public Const CTF_THREAD_REF = &H2

Public Declare Function SHCreateThread Lib "shlwapi.dll" (ByVal pfnThreadProc As Long, pData As Any, ByVal dwFlags As Long, ByVal pfnCallback As Long) As Long

Вызов из модуля
Код: plaintext
1.
2.
3.
Sub NewThread()
  msgbox "New Thread"
End Sub

вызов из основной формы
Код: plaintext
SHCreateThread AddressOf NewThread, ByVal  0 &, CTF_INSIST, ByVal  0 &

вопрос как можно передать параметр в NewThread для его обработки

Спасибо
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.02.2008, 16:51
    #35148366
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
API SHCreateThread передать и обработать параметр
Код: plaintext
1.
2.
3.
4.
Sub NewThread(param as Long)
  msgbox param
End Sub

SHCreateThread AddressOf NewThread,  12345 , CTF_INSIST, ByVal  0 &
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.02.2008, 17:17
    #35148462
michael R
michael R
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
API SHCreateThread передать и обработать параметр
да
только так работает

Код: plaintext
1.
2.
3.
4.
Sub NewThread(byval param as Long)
  msgbox param
End Sub

SHCreateThread AddressOf NewThread, byval  12345 , CTF_INSIST, ByVal  0 &
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.02.2008, 17:19
    #35148472
michael R
michael R
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
API SHCreateThread передать и обработать параметр
а если нужно передать текст как параметр
что то не выходит
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.02.2008, 17:36
    #35148538
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
API SHCreateThread передать и обработать параметр
StrPtr
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.02.2008, 17:38
    #35148549
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
API SHCreateThread передать и обработать параметр
А еще лучше VarPtr на какую-нибудь структуру постоянного размера, которая будет содержать указатель на строку и ее длину.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.02.2008, 17:53
    #35148615
michael R
michael R
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
API SHCreateThread передать и обработать параметр
не очень понятно

вызов
SHCreateThread AddressOf NewThread, ByVal "aaa", CTF_INSIST, ByVal 0&


Sub NewThread(ByVal param As Long)
записать param(aaa) как текст
End Sub

как я это должен записть
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.02.2008, 18:50
    #35148777
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
API SHCreateThread передать и обработать параметр
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
Type zzz
    StrPointer as Long
    StrLength as Long
End Type

dim x as zzz
s="1232134"
x.StrPointer = StrPtr(s)
x.StrLength = Len(s)
SHCreateThread AddressOf NewThread, VarPtr(x), CTF_INSIST, ByVal  0 &

Sub NewThread(byval param as Long)
Dim x As zzz
Dim s as String
    CopyMemory x, param, Len(x)
    s=Space(x.StrLength)
    CopyMemory s, x.StrPointer, x.StrLength
    msgbox s
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.02.2008, 00:54
    #35149282
michael R
michael R
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
API SHCreateThread передать и обработать параметр
нет не работает

какое нужно описание для CopyMemory
msgbox S -пусто
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.02.2008, 10:04
    #35149625
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
API SHCreateThread передать и обработать параметр
Код: plaintext
Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / API SHCreateThread передать и обработать параметр / 10 сообщений из 10, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 389ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2162663]:
 0ms
get settings:
 10ms
get forum list:
 17ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 47ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 54ms
get tp. blocked users:
 2ms
others: 235ms
total:  389ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]