Login
Templates, Tools and Utilities
for Clarion Developers
Templates, Tools and Utilities
|
||
|
|
|
Icetips Article
Back to article list
Search Articles
Add Comment
Printer friendly
Direct link
Windows API: Using CreateThread to create threads in Clarion 2002-04-04 -- Andrea Rodella Newsgroups: comp.lang.clarion
...hi all, the trick is teh PASCAL attribute on the called procedure
!!!
so the code is as follow :
!* Prototype *
CreateThread(<*GROUP>,ULONG,ULONG,ULONG,ULONG,*ULONG),UNSIGNED,RAW,DLL,PASCAL
!* My procedure*
prcsocket (long lpgroup),PASCAL
!* declarations *
mygrouptopasstype group,type
field1 cstring(20)
field2 long
end
mygrouptopass like(mygrouptopasstype)
!* calling Source code *
mygrouptopass.field1=GLO:Client_SocketX
mygrouptopass.field2=1
ThreadHandle = CreateThread( , 0, Address(prcsocket),
Address(mygrouptopass), 0,ThreadID)
!* called procedure *
prcsocket Procedure(long lpgroup)
localgroup like(mygrouptopass)
CODE
message(lpgroup) !That's ZERO !
! and if I try to access the memory with this parameter
memcpy(address(localgroup), lpgroup,size(mygrouptopasstype))
message(localgroup.field1)
On Wed, 03 Apr 2002 13:29:34 GMT, geasoft@eudora%$%mail.com (Andrea
Rodella) wrote:
>Hi Andrew,
>you confirm that with this prototyping
>> CreateThread(long lpSecurityAttributes, long Stacksize, long lpFunction, long lpParameter, |
>> long CreationFlags, *long ThreadID),long,raw,pascal
>> TerminateThread(long hThread, long dwExitCode),bool,pascal,proc
>you are able to pass parameters to the procedure you call with the
>CreateThread?
>
>If yes, please can you send me an extract of your code, to understand
>if it's a problem of my application or of my machine ?? (maybe is
>Win2K that works in a different way ?)
>
>Thanx a lot
>
>Bye
>
>
>
>
>On Tue, 2 Apr 2002 09:51:13 -0500, "Andrew Ireland"
>
Today is November 21, 2024, 3:51 am This article has been viewed 35206 times. Google search has resulted in 133 hits on this article since January 25, 2004.
|
|