XProfan

 $DLL

DLLPROC Count_C,1,"Count_C"

    parameters param#
    declare i&,a&,s$,hAufrufer&,ThreadRunning#,hText&,StartWert&
    s$=@string$(param#,0)
    'comme erstes cela Flag pour cela aufrufende Programme mettons, dass qui Fil fonctionne
    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&

    tandis que i&<=StartWert&+10000

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

    endwhile

    'Rückgabewert übermitteln
    @sendmessage(hAufrufer&,$1000,hText&,0)
    long ThreadRunning#,0=0'Flag pour cela aufrufende Programme pour, dass qui Fil fonctionne, effacer
    return 0

ENDPROC

'Multithreading-Beispiel avec XProfan-ThreadProc dans C-DLL sur Profan2Cpp
 $H windows.ph
declare hDLL%,uwp&,CProcAddr&
declare hText1&,hText2&,hText3&
declare s1$,s2$,s3$
declare hThread1&,hThread2&,hThread3&
declare ThreadRunning1&,ThreadRunning2&,ThreadRunning3&
cls ~getsyscolor(4)'Hauptfenster avec Hintergrundgrau erstellen (weil qui Text-Dialogelemente dans cette la couleur gehalten sommes)
usermessages $1000'avec cette Message signalisiert un fil, dass il sich eh bien finissez (cela peux zusätzlich avec den Flags ThreadRunningX& überprüft volonté, quoi dans diesem Beispiel mais pas benutzt wird)
hText1&=@create("TEXT",%HWnd,"0",10,10,300,20)'ici wird Fil 1 reinschreiben
hText2&=@create("TEXT",%HWnd,"0",10,35,300,20)'ici wird Fil 2 reinschreiben
hText3&=@create("TEXT",%HWnd,"0",10,60,300,20)'ici wird Fil 3 reinschreiben
hDLL%=@usedll("MultithreadingBeispielC.dll")'dans cette DLL ist qui Fil-Procédure enthalten
'Threads starten
CProcAddr&=~GetProcAddress(hDLL%,"Count_C")'"echte" ProcAddr qui dans qui DLL ausgelagerten Procédure beziehen (avec direkten Profan-Prozeduren allez cela pas, sodass Profan selbst pas multithreading-fähig ist)
s1$=@str$(%HWnd)+"²~³"+@str$(@addr(ThreadRunning1&))+"²~³"+@str$(hText1&)+"²~³1"'Übergabestring pour Fil 1 avec dem Hauptfensterhandle, dem Flag ThreadRunning, dem Handle des Text-Dialogelements et dem Startwert füttern
hThread1&=~createthread(0,0,CProcAddr&,@addr(s1$),0,0)'Fil 1 starten
s2$=@str$(%HWnd)+"²~³"+@str$(@addr(ThreadRunning2&))+"²~³"+@str$(hText2&)+"²~³-10000"'Übergabestring pour Fil 2 avec dem Hauptfensterhandle, dem Flag ThreadRunning, dem Handle des Text-Dialogelements et dem Startwert füttern
hThread2&=~createthread(0,0,CProcAddr&,@addr(s2$),0,0)'Fil 2 starten
s3$=@str$(%HWnd)+"²~³"+@str$(@addr(ThreadRunning3&))+"²~³"+@str$(hText3&)+"²~³12345678"'Übergabestring pour Fil 3 avec dem Hauptfensterhandle, dem Flag ThreadRunning, dem Handle des Text-Dialogelements et dem Startwert füttern
hThread3&=~createthread(0,0,CProcAddr&,@addr(s3$),0,0)'Fil 3 starten
'sur cela Ende qui Threads attendre et réagir

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

    waitinput

    si %umessage=$1000'un fil signalisiert, dass il sich maintenant finissez et übergibt dabei son Texthandle dans &UwParam

        uwp&=&UwParam

        si uwp&=hText1&

            settext hText1&,"Fertig."

        elseif uwp&=hText2&

            settext hText2&,"Fertig."

        elseif uwp&=hText3&

            settext hText3&,"Fertig."

        endif

    endif

endwhile

waitinput'avec cela on cela Ende avec 3x "Fertig." sieht
'aufräumen
~closehandle(hThread1&)
~closehandle(hThread2&)
~closehandle(hThread3&)
usermessages 0
freedll hDLL%
end

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

nproc myThread

    parameters data&
    //...
    return data&

endproc