XPSE

« cette Beitrag wurde comme Solution gekennzeichnet. »

- page 3 -

allez doch comment im Beispiel*:
Kompilieren Marque Séparation

'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 - hab ici seulement XP.

- page 2 -

E.T. (13.11.10)

iF (13.11.10)

quoi spricht car dagegen cela Du Votre Proc - qui là arrêt "ewig" dauert - per CreateThread aufrufst statt "normal"?

Weil dans dem Prog eh aucun quoi faire peux (soll), solange cela comparer fonctionne.

So comment je cela verstanden habe stimmt ca mais pas, car es soll oui qui L'assurance-chômage-Fil neuzeichnen et pas "nichts" 1faire. ^ ^

E.T. (13.11.10)

Würde car ensuite cela HWND den Neuzeichnen-Befehl mitbekommen, wärend es sur den anderen Fil wartet (soryy, je stell mich wohl quelque chose blöd à...)

Denkst vlt. seulement trop compliqué. tu as momentan arrêt 1 Fil et vouloir mais cela cette 2 Dinge "zugleich" tut - quoi "natürlich" pas qui le cas ist. ^ ^

étiez je fummel Dir quoi... <-- ließt oui zum Glück aucun...

exposition la fois si Dir quelque chose comme hilft... Kompilieren Marque Séparation {$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 citation Absatzweise Citation Zeilenweise Citation

Echten Fil "unendlich" longtemps ackern laisser sans L'assurance-chômage-Fil trop "blockieren":
Kompilieren Marque Séparation

 {$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 peux doch simple "Aufgaben"/ Threads anweisen et qui volonté appétissant im Hintergrund abgearbeitet sans cela Du toi kümmern müsstest... (nProcs sommes doch threadsicher ^ ^)

E.T.

Super, cela erstere sieht pour mich so aus, comme serait es faire, quoi je cherche.

Muss je doch juste qui anderen Sachen ruhen laisser et einbauen et testen (et derweil wieder quoi sur Call's et ProcAddr dans Assembler apprendre) ...

sur jeden le cas déjà la fois un großes DANKE pour Votre Mühe!!!
et wenns klappt, ensuite ...

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, cela erstere sieht pour mich so aus, comme serait es faire, quoi je cherche.

Ihgitt s'il te plaît prends abers 2.... cela Erste est un übler Stinkschuh! ^ ^

E.T.

SO, je komm qui l'affaire näher: seulement wird maintenant cela comparer aufgerufen et cela XProfan-Prog rennt plus, es mais devrait "warten"(ou bien warten>nachschauen si vergl. fertig>ggf. la fenêtre aktualisieren>warten), si comparer déjà fertig.
Würde oui penser avec Fil.Is(lThread) , mais steht oui chez 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...

exposition la fois hierzu nützliche APIs: [...]

simple avec GetExitCodeThread regarder si qui Fil encore fonctionne ou bien avant dem Ende qui ThreadProc per SendMessage ne UserMessage expédier um den Hauptprogramm quelque chose "mitzuteilen" ou bien simple per Retour-Wert aus qui Fil-Proc den ThreadExitCode festlegen ou bien per ExitThread ThreadExitCode à beliebiger Stelle dans qui ThreadProc festlegen:
Kompilieren Marque Séparation

'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

- page 3 -

E.T.

Hm, GetThreadID() wäre là wohl quoi, mais seulement ab VISTA [...]

. Muss mais sous XP courir...

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...

allez doch comment im Beispiel*:
Kompilieren Marque Séparation

'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 - hab ici seulement XP.

E.T.

Jo, so passt's...

, merci 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 ▲