ich bin gerade an einem Programm am arbeiten, bei dem ein ProgressBar während eines Netzwerkverbindungsaufbaus angezeigt werden soll. Jetzt hatte ich das über einen Thread versucht zu realisieren, jedoch wird der Thread angehalten (Pause), wenn der Server nicht erreichbar ist!?
Hat jemand eine Idee warum das so ist?
Code: Alles auswählen
Enumeration
#Window_0
#ProgressBar_0
EndEnumeration
Procedure ProgressBar(param)
Repeat
For thread_x = 0 To 100
SetGadgetState(#ProgressBar_0, thread_x)
Delay(10)
Next
Delay(1)
ForEver
EndProcedure
Procedure Open_Window_0()
If OpenWindow(#Window_0, 235, 71, 300, 150, #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_TitleBar , "Warum hält der Thread an?")
If CreateGadgetList(WindowID())
ProgressBarGadget(#ProgressBar_0, 10, 10, 280, 100, 0, 100, #PB_ProgressBar_Smooth)
EndIf
EndIf
EndProcedure
Open_Window_0()
CreateThread(@ProgressBar(),0)
InitNetwork()
x=0
Repeat
x = x+1
Event = WindowEvent()
While WindowEvent(): Wend
If x = 500
CID = OpenNetworkConnection("141.1.1.1",80)
MessageRequester("",Str(CID))
x = 0
EndIf
Delay(1)
Until Event = #PB_EventCloseWindow
Michael
