XPSE

« Dieser Contribución wurde como Solución gekennzeichnet. »

- Página 3 -

Geht doch como en el Ejemplo*:
Kompilieren Marca Separación

'URL: https://xprofan.com/intl/de/xpse/nproc-und-neuzeichnen-messages/#bottom
 {$cleq}
cls
long myThread=createThread(0,0,procAddr(eineProc),hWnd,0,0),b
print "fertig"

while 1

    waitinput 1000
    getExitCodeThread(myThread,addr(b))
    case b==123456 : break

wend

print "allesfertig"
end

nProc eineProc(long some)

    whileLoop 2

        setText(some,str$(getTickCount))
        sleep(1000)

    wend

    return 123456//oder exitThread(123456) wenn an beliebiger Stelle Thread abgewürgt werden soll wie "end 123456"

endProc

*XP-getestet - tener hier sólo XP.

- Página 2 -

E.T. (13.11.10)

IF (13.11.10)

Was spricht porque dagegen el Usted Su Proc - el como sólo "ewig" dauert - por CreateThread aufrufst en lugar de "normal"?

Weil en el Prog eh keiner qué hacer kann (se), solange el Vergleichen se ejecuta.

So como yo verstanden habe stimmt dies pero no, porque lo se De hecho, el UI-Hilo neuzeichnen y no "nichts" tun. ^ ^

E.T. (13.11.10)

Würde porque entonces el HWND el Neuzeichnen-Befehl mitbekommen, wärend lo en el otro Hilo wartet (soryy, Yo stell mich wohl algo blöd a...)

Denkst vlt. sólo a kompliziert. Usted hast momentan sólo 1 Hilo y möchtest aber el dieser 2 Dinge "zugleich" tut - qué "natürlich" no Fall es. ^ ^

Wart Yo fummel Usted qué... <-- ließt sí para Glück keiner...

Schau veces si Usted algo como hilft... Kompilieren Marca Separación {$cleq} cls eineProc() print "fertig" waitinput end nProc eineProc long myHwndWProcAddr=getWindowLong(hWnd,gwl_wndProc) while ... call(myHwndWProcAddr,hWnd,wm_paint,0,0) wend
	13.11.2010 ▲ Vollständiges Zitat Absatzweise Cita Zeilenweise Cita

Echten Hilo "unendlich" largo ackern dejar sin UI-Hilo a "blockieren":
Kompilieren Marca Separación

 {$cleq}
cls
createThread(0,0,procAddr(eineProc),hWnd,0,0)
print "fertig"

while 1

    waitinput

wend

end

nProc eineProc(long some)

    whileLoop 10000

        setText(some,str$(getTickCount))
        sleep(1000)

    wend

endProc

So kannst doch simplemente "Aufgaben"/ Hilos anweisen y el voluntad lecker en el Hintergrund abgearbeitet sin el Usted Usted kümmern müsstest... (nProcs son doch threadsicher ^ ^)

E.T.

Super, el erstere sieht para mich así de, como sería lo hacer, Yo búsqueda.

Muss Todavía igual el otro Sachen ruhen dejar y einbauen y testen (y derweil otra vez qué encima Call's y ProcAddr en Ensamblador aprender) ...

Auf cada Fall ya veces una großes DANKE para Su Mühe!!!
Und wenns klappt, entonces ...

Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...

E.T. (13.11.10)

Super, el erstere sieht para mich así de, como sería lo hacer, Yo búsqueda.

Ihgitt Por favor, nimm abers 2.... el Erste es una übler Stinkschuh! ^ ^

E.T.

SO, Yo komm el Sache näher: Nur se ahora el Vergleichen aufgerufen y el XProfan-Prog rennt más, lo sino que debe "warten"(oder warten>nachschauen si vergl. fertig>ggf. Ventana aktualisieren>warten), si Vergleichen ya fertig.
Würde sí denken con Hilo.Is(lThread) , aber es sí en XPSE "fehlerhaft"...

Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...

Schau veces hierzu nützliche APIs: [...]

Einfach con GetExitCodeThread schauen si el Hilo todavía se ejecuta oder antes el Ende el ThreadProc por SendMessage ne UserMessage absenden en el Hauptprogramm algo "mitzuteilen" oder simplemente por Volver-Valor de el Hilo-Proc el ThreadExitCode festlegen oder por ExitThread ThreadExitCode a beliebiger Punto en el ThreadProc festlegen:
Kompilieren Marca Separación

'URL: https://xprofan.com/intl/de/xpse/nproc-und-neuzeichnen-messages/#bottom
 {$cleq}
cls
long myThread=createThread(0,0,procAddr(eineProc),hWnd,0,0),b
print "fertig"

while 1

    waitinput 1000
    getExitCodeThread(myThread,addr(b))
    case b==123456 : break

wend

print "allesfertig"
end

nProc eineProc(long some)

    whileLoop 2

        setText(some,str$(getTickCount))
        sleep(1000)

    wend

    return 123456//oder exitThread(123456) wenn an beliebiger Stelle Thread abgewürgt werden soll wie "end 123456"

endProc

- Página 3 -

E.T.

Hm, GetThreadID() wäre como wohl qué, aber sólo de VISTA [...]

. Muss aber bajo XP laufen...

Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...

Geht doch como en el Ejemplo*:
Kompilieren Marca Separación

'URL: https://xprofan.com/intl/de/xpse/nproc-und-neuzeichnen-messages/#bottom
 {$cleq}
cls
long myThread=createThread(0,0,procAddr(eineProc),hWnd,0,0),b
print "fertig"

while 1

    waitinput 1000
    getExitCodeThread(myThread,addr(b))
    case b==123456 : break

wend

print "allesfertig"
end

nProc eineProc(long some)

    whileLoop 2

        setText(some,str$(getTickCount))
        sleep(1000)

    wend

    return 123456//oder exitThread(123456) wenn an beliebiger Stelle Thread abgewürgt werden soll wie "end 123456"

endProc

*XP-getestet - tener hier sólo XP.

E.T.

Jo, así passt's...

, danke IF

Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...

14.11.2010 ▲

^ ^

14.11.2010 ▲