Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: CreateThread
Autor: tbtec
Datum: 17.12.01 22:01
Hallo Cyberlord, im Prinzip ist es egal, welche API-Funktionen in der Thread-Funktion verwendet werden. Nachfolgend so in etwa der Code, welcher bei mir zum Einsatz kommen sollte. In der Entwicklungsumgebung läuft das auch noch, aber in der kompilierten Version dann nicht mehr. Enterne ich die beiden API-Funktionen, kann ich den Thread immerhin starten, aber natürlich nicht mehr beenden. Erst dachte ich, WaitForSingleobject wäre eventuell falsch, aber selbst beim sleep schmiert das Programm ab. Naja, vielleicht fällt Dir noch was ein. m.f.G. tbtec Declare Sub sleep ......... Declare Function CreateEvent..... Declare Function SetEvent.... Declare Function WaitForSingleObject.... Declare Function CreateThread .... Public ThreadHandle as Long Public myEvent as Long Public IsRunning as Boolean sub StartThread() ThreadHandle = CreateThread( 0&, 0&, AddressOff myThread, 0&, 0&, 0&) end sub Sub ErzeugeEvent() myEvent = CreateEvent( 0&, 0&, 0&, vbNullString) end Sub sub StopThread() SetEvent(myEvent) end Sub function myThread ( lParam as Long) as Long IsRunning = True While IsRunning 'Tu irgendwas sleep 20 'eine API-Funktion if WaitForSingleObject(myEvent, 0) = WAIT_OBJECT_0 'nächste API-Funktion IsRunning = False end if Wend myThread=0 End Function

CreateThread	56	tbtec	17.12.01 20:41
Re: CreateThread	335	unbekannt	17.12.01 20:46
Re: CreateThread	46	tbtec	17.12.01 22:01

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen