multi-threaded under xHarbour

[Natter]

Work under xHarbour functions are multi-threaded such as StartThread() / StopThread() ?

[Enrico Maria Giordano]

xHarbour seems to support multithread. What do you want to know exactly?

EMG

[Natter]

Want to learn how you can create a new thread (with the function StartThread() failed)

[Enrico Maria Giordano]

Do you get any error messages?

EMG

[Natter]

I don't get errors, just nothing happens.
I tried to run the examples with StartThread(), but instead of thread handle this function returns empty.
for example:

PROCEDURE Main
LOCAL pThread

CLS
USE Customer
pThread := StartThread( "ShowTime", 0, MaxCol()-7 )

Browse()

StopThread( pThread )

WaitForThreads()
RETURN

PROCEDURE ShowTime( nRow, nCol )
DO WHILE .T.
DispOutAt( nRow, nCol, Time() )
ThreadSleep( 1000 )
ENDDO
RETURN

[Enrico Maria Giordano]

Just tried: works fine here.

EMG

[Enrico Maria Giordano]

Some details:

- I'm using latest xHarbour from SVN and BCC 7.10
- I had to link cw32mt.lib and vmmt.lib

EMG

[Natter]

Hm.. similarly, but does not work. I will think

Enrico, thank for your help !

[Enrico Maria Giordano]

Please try adding

Code: Select all  Expand view  RUN

SETMODE( 25, 80 )

at the start of your sample.

EMG

[Natter]

I create a thread th:=Startthread() and open DIALOG . After doing the main thread I close my thead StopThread(th) or KillThread(th). But apparently the DIALOG in the thread is not closed and when you try to create a thread I get the error WINDOWS