XProfan

 $DLL

DLLPROC Count_C,1,"Count_C"

    parámetros param#
    declarar i&,a&,s$,hAufrufer&,ThreadRunning#,hText&,StartWert&
    s$=@cadena$(param#,0)
    'como erstes el Flag para el aufrufende Programa conjunto, dass el Hilo se ejecuta
    a&=val(@substr$(s$,2,"²~³"))
    ThreadRunning#=a&
    long ThreadRunning#,0=1
    'Aufrufer-Fensterhandle ermitteln
    hAufrufer&=@val(@substr$(s$,1,"²~³"))
    'Textcontrol-Handle ermitteln
    hText&=@val(@substr$(s$,3,"²~³"))
    'Startwert ermitteln
    StartWert&=@val(@substr$(s$,4,"²~³"))
    'Zählung durchführen
    i&=StartWert&

    mientras que i&<=StartWert&+10000

        settext hText&,@str$(i&)
        inc i&

    endwhile

    'Rückgabewert übermitteln
    @sendmessage(hAufrufer&,$1000,hText&,0)
    long ThreadRunning#,0=0'Flag para el aufrufende Programa dafür, dass el Hilo se ejecuta, löschen
    volver 0

ENDPROC

'Multithreading-Ejemplo con XProfan-ThreadProc en C-DLL encima Profano2Cpp
 $H windows.ph
declarar hDLL%,uwp&,CProcAddr&
declarar hText1&,hText2&,hText3&
declarar s1$,s2$,s3$
declarar hThread1&,hThread2&,hThread3&
declarar ThreadRunning1&,ThreadRunning2&,ThreadRunning3&
cls ~getsyscolor(4)'Ventana principal con Hintergrundgrau redactar (porque el Texto-Dialogelemente en dieser Farbe mantenido son)
usermessages $1000'con dieser Message signalisiert un hilo, dass él se nun final (el kann zusätzlich con el Flags ThreadRunningX& überprüft voluntad, qué en diesem Ejemplo pero no benutzt se)
hText1&=@create("TEXT",%HWnd,"0",10,10,300,20)'hier se Hilo 1 reinschreiben
hText2&=@create("TEXT",%HWnd,"0",10,35,300,20)'hier se Hilo 2 reinschreiben
hText3&=@create("TEXT",%HWnd,"0",10,60,300,20)'hier se Hilo 3 reinschreiben
hDLL%=@usedll("MultithreadingBeispielC.dll")'en dieser DLL Es el Hilo-Procedimiento enthalten
'Hilos starten
CProcAddr&=~GetProcAddress(hDLL%,"Count_C")'"echte" ProcAddr el en el DLL ausgelagerten Procedimiento beziehen (con direkten Profano-Prozeduren va el no, sodass Profano incluso no multithreading-fähig es)
s1$=@str$(%HWnd)+"²~³"+@str$(@addr(ThreadRunning1&))+"²~³"+@str$(hText1&)+"²~³1"'Übergabestring para Hilo 1 con el Hauptfensterhandle, el Flag ThreadRunning, el Handle des Texto-Dialogelements y el Startwert füttern
hThread1&=~createthread(0,0,CProcAddr&,@addr(s1$),0,0)'Hilo 1 starten
s2$=@str$(%HWnd)+"²~³"+@str$(@addr(ThreadRunning2&))+"²~³"+@str$(hText2&)+"²~³-10000"'Übergabestring para Hilo 2 con el Hauptfensterhandle, el Flag ThreadRunning, el Handle des Texto-Dialogelements y el Startwert füttern
hThread2&=~createthread(0,0,CProcAddr&,@addr(s2$),0,0)'Hilo 2 starten
s3$=@str$(%HWnd)+"²~³"+@str$(@addr(ThreadRunning3&))+"²~³"+@str$(hText3&)+"²~³12345678"'Übergabestring para Hilo 3 con el Hauptfensterhandle, el Flag ThreadRunning, el Handle des Texto-Dialogelements y el Startwert füttern
hThread3&=~createthread(0,0,CProcAddr&,@addr(s3$),0,0)'Hilo 3 starten
'Auf el Ende el Hilos warten y reagieren

mientras que (@gettext$(hText1&)<>"Fertig.") or (@gettext$(hText2&)<>"Fertig.") or (@gettext$(hText3&)<>"Fertig.")

    waitinput

    if %umessage=$1000'un hilo signalisiert, dass él se ahora final y übergibt esta ser Texthandle en &UwParam

        uwp&=&UwParam

        if uwp&=hText1&

            settext hText1&,"Fertig."

        elseif uwp&=hText2&

            settext hText2&,"Fertig."

        elseif uwp&=hText3&

            settext hText3&,"Fertig."

        endif

    endif

endwhile

waitinput'así al Ende con 3x "Fertig." sieht
'aufräumen
~closehandle(hThread1&)
~closehandle(hThread2&)
~closehandle(hThread3&)
usermessages 0
freedll hDLL%
end

cls
// 3 threads por myThread-Proc
createThread(,,procAddr(myThread,1),,,)
createThread(,,procAddr(myThread,1),,,)
createThread(,,procAddr(myThread,1),,,)
waitinput

nproc myThread

    parámetros data&
    //...
    volver data&

ENDPROC