XPSE

« Dieser Beitrag wurde als Lösung gekennzeichnet. »

- Seite 3 -

Geht doch wie im Beispiel*:
Kompilieren Markieren Separieren

'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 hier nur XP.

- Seite 2 -

E.T. (13.11.10)

iF (13.11.10)

Was spricht denn dagegen das Du Deine Proc - die da halt "ewig" dauert - per CreateThread aufrufst statt "normal"?

Weil in dem Prog eh keiner was machen kann (soll), solange das Vergleichen läuft.

So wie ich das verstanden habe stimmt dies aber nicht, denn es soll ja der UI-Thread neuzeichnen und nicht "nichts" tun. ^^

E.T. (13.11.10)

Würde denn dann das HWND den Neuzeichnen-Befehl mitbekommen, wärend es auf den anderen Thread wartet (soryy, ich stell mich wohl etwas blöd an...)

Denkst vlt. nur zu kompliziert. Du hast momentan halt 1 Thread und möchtest aber das dieser 2 Dinge "zugleich" tut - was "natürlich" nicht der Fall ist. ^^

Wart ich fummel Dir was... <-- ließt ja zum Glück keiner...

Schau mal ob Dir sowas hilft...
Kompilieren Markieren Separieren

 {$cleq}
cls
eineProc()
print "fertig"
waitinput
end

nProc eineProc

    long myHwndWProcAddr=getWindowLong(hWnd,gwl_wndProc)

    while ...

        call(myHwndWProcAddr,hWnd,wm_paint,0,0)

    wend

endProc

oder sowas... (poste ich gleich...)

Echten Thread "unendlich" lange ackern lassen ohne UI-Thread zu "blockieren":
Kompilieren Markieren Separieren

 {$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 einfach "Aufgaben"/ Threads anweisen und die werden lecker im Hintergrund abgearbeitet ohne das Du Dich kümmern müsstest... (nProcs sind doch threadsicher ^^)

E.T.

Super, das erstere sieht für mich so aus, als würde es machen, was ich suche.

Muss ich doch gleich die anderen Sachen ruhen lassen und einbauen und testen (und derweil wieder was über Call's und ProcAddr in Assembler lernen) ...

Auf jeden Fall schon mal ein großes DANKE für Deine Mühe!!!
Und wenns klappt, dann ...

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, das erstere sieht für mich so aus, als würde es machen, was ich suche.

Ihgitt bitte nimm abers 2.... das Erste ist ein übler Stinkschuh! ^^

E.T.

SO, ich komm der Sache näher: Nur wird jetzt das Vergleichen aufgerufen und das XProfan-Prog rennt weiter, es soll aber "warten"(oder warten>nachschauen ob vergl. fertig>ggf. Fenster aktualisieren>warten), ob Vergleichen schon fertig.
Würde ja denken mit Thread.Is(lThread) , aber steht ja bei 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 mal hierzu nützliche APIs: [...]

Einfach mit GetExitCodeThread schauen ob der Thread noch läuft oder vor dem Ende der ThreadProc per SendMessage ne UserMessage absenden um den Hauptprogramm etwas "mitzuteilen" oder einfach per Return-Wert aus der Thread-Proc den ThreadExitCode festlegen oder per ExitThread ThreadExitCode an beliebiger Stelle in der ThreadProc festlegen:
Kompilieren Markieren Separieren

'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

- Seite 3 -

E.T.

Hm, GetThreadID() wäre da wohl was, aber erst ab VISTA [...]

. Muss aber unter 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 wie im Beispiel*:
Kompilieren Markieren Separieren

'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 hier nur XP.

E.T.

Jo, so 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 ▲