XPSE

Español

p.specht

thread.is liefert lt. xpse-Página momentan siempre Null.
Gibt lo Hinweise, por qué el así es? In Java, auch interpretierend, scheint el entsprechende Befehl thread.isalive a trabajo. Wo podría Yo oder alguien Berufenerer ansetzen?

Computer: Gerät, daß es in Mikrosekunden erlaubt, 50.000 Fehler zu machen, zB 'daß' statt 'das'...

30.11.2018 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

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

Tjo, como Yo wohl Mist gebaut.

Bitte veces esta Workaround ansehen:

Kompilieren Marca Separación

nProc thread.is2(long thread)

    long cs=criticalsection.begin(str(thread))
    thread=long(thread,36)
    criticalsection.end(cs)
    volver thread

endProc

Alle Sprachen
WinXP, SP3, Core(TM) i7-3770 @ 3.40GHz

05.12.2018 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

p.specht

JAU klappt - danke IF!

Kompilieren Marca Separación

 {$cleqt}
Windowstyle 24
cls rgb(255,200,200)

nProc thread.is2(long thread)

    long cs=criticalsection.begin(str(thread))
    thread=long(thread,36)
    criticalsection.end(cs)
    volver thread

endProc

var edit& =@Crear("Edit",%Hwnd,"1",40,20, 140,20)
var edit2&=@Crear("Edit",%Hwnd,"2",40,50, 140,20)
var edit3&=@Crear("Edit",%Hwnd,"3",40,80, 140,20)
var thread& =thread.start(procaddr(meinThread), edit&, "1000")
var thread2&=thread.start(procaddr(meinZweiterThread), edit2&, "2000")
var thread3&=thread.start(procaddr(meinDritterThread), edit3&, "3000")
var n&=0
font 2
locate 15,1
Imprimir " Theads voluntad el Reihe después de final mittels ESC-Taste!"
Imprimir "\n Hauptprogramm nun en Hauptschleife!"

repeat

    locate 23,23:imprimir n&:inc n&
    Título de la ventana str$(n&)
    waitinput 100

until (%key=27) or (%key=2)

imprimir "\n Hauptschleife wurde verlassen."
waitinput 1500
thread.stop(thread&)
::::::::::::::::::::::::::::::imprimir thread.is2(thread&),

mientras que thread.is2(thread&)

endwhile

:::::::::::::::::::::::::::::imprimir thread.is2(thread&)
thread.close(thread&)
imprimir "\n Posesiones Hilo Nr. 1 final."
waitinput 1500
thread.stop(thread2&)

mientras que thread.is2(thread2&)

endwhile

thread.close(thread2&)
imprimir " Posesiones Hilo Nr. 2 final."
waitinput 1500
thread.stop(thread3&)

mientras que thread.is2(thread3&)

endwhile

thread.close(thread3&)
imprimir " Posesiones Hilo Nr. 3 final."
waitinput 1500
beep
imprimir "\n Hier Hauptprogramm: Isch 'abe feddisch... BYEBYE!"
waitinput 3000
FIN

nproc meinThread :parámetros thread&,dataLong&,dataString$

    whilenot thread.mensaje(thread&)==wm_close

        settext(dataLong&,"["+time$(0)+"."+substr$(time$(1),1,".")+"]")
        sleep(1000)

    endwhile

    volver 0

ENDPROC

nproc meinZweiterThread :parámetros thread2&,dataLong2&,dataString2$

    whilenot thread.mensaje(thread2&)==wm_close

        settext(dataLong2&, "("+time$(1)+"."+substr$(time$(0),1,".")+")")
        sleep(1333)

    endwhile

    volver 0

ENDPROC

nproc meinDritterThread :parámetros thread3&,dataLong3&,dataString3$

    whilenot thread.mensaje(thread3&)==wm_close

        settext(dataLong3&, "{"+time$(0)+"."+substr$(time$(1),1,".")+"}")
        sleep(3000)

    endwhile

    volver 0

ENDPROC