PureBoard

Code: Alles auswählen

Global Ende.l
Procedure BeispielEndlosschleife(dummy.l) ; <- es MUSS EIN parameter vorhanden sein
repeat
  if ENDE
    procedurereturn
  endif
forever
Endprocedure

CreateThread(@BeispielEndlosschleife(), 0)
;blablabla code
; Bei Programmende:
Ende = 1 ; Variable Ende afu #True setzen damit sich der Thread sicher beendet
; Dann ggf mit ishread() noch kurz warten dun dann isset auch noch schön sicher beendet alles

Code: Alles auswählen

Global ende.l

InitNetwork()

Procedure MyThread(*this.s)

  Protected ConnectionID, todo.l, len, t
  Protected *buffer
  
  ; Warten auf Verbindung zum Server oder auf Abbruch
  While ende = 0
    ConnectionID = OpenNetworkConnection("localhost", 7000)
    If ConnectionID <> 0
      Break
    EndIf
    Delay(500)
  Wend
  
  If ende
    If ConnectionID <> 0
      CloseNetworkConnection(ConnectionID)
    EndIf
    ProcedureReturn 1
  EndIf
  
  ; Speicher anfordern
  *buffer = AllocateMemory($4000)
  
  Repeat
    
    Select NetworkClientEvent(ConnectionID)
    
    Case #PB_NetworkEvent_Data
      len = ReceiveNetworkData(ConnectionID, *buffer, $4000)
      ; Daten auswerten
      Debug PeekS(*buffer, len)
      
    Case #PB_NetworkEvent_File
    
    Default
      Select todo
      Case 0:
        Debug "New " + *this
        SendNetworkString(ConnectionID, "NEW Test=100"+#CR$)
        todo = 1
      Case 2:
        Debug "Get " + *this
        SendNetworkString(ConnectionID, "GET "+*this+#CR$)
        todo = 3
      Case 4:
        Debug "Pause" + *this
        Delay(1000)
        todo = 2  
      EndSelect
      Delay(100)
      t + 100
      If t > 1000
        todo + 1
        t = 0
      EndIf
    EndSelect
    
  Until ende
  
  ; Verbindung schliessen
  CloseNetworkConnection(ConnectionID)
  ; Speicher freigeben
  FreeMemory(*buffer)
  
EndProcedure


;- Konstanten
Enumeration ; Window ID
  #Window
EndEnumeration

Enumeration ; Menu ID
  #Menu
EndEnumeration

Enumeration ; MenuItem ID
  #Menu_Exit
EndEnumeration

Enumeration ; Statusbar ID
  #Statusbar
EndEnumeration

Enumeration ; Gadget ID
  
EndEnumeration

; ***************************************************************************************

;- Globale Variablen
Global exit = 0


;- Fenster
style = #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget | #PB_Window_SizeGadget
If OpenWindow(#Window, #PB_Ignore, #PB_Ignore, 400, 300, "Fenster", style)
  ; Menu
  If CreateMenu(#Menu, WindowID(#Window))
    MenuTitle("&Datei")
      MenuItem(#Menu_Exit, "Be&enden")
  EndIf
  ; Statusbar
  CreateStatusBar(#Statusbar, WindowID(#Window))
  ; Gadgets
  If CreateGadgetList(WindowID(#Window))
  
  EndIf

  ; Start Thread
  hThread = CreateThread(@MyThread(),@"Test")
  Delay(400)
  hThread2 = CreateThread(@MyThread(),@"Value")
    
  ;-- Hauptschleife
  Repeat
    event   = WaitWindowEvent()
    window  = EventWindow()
    menu    = EventMenu()
    type    = EventType()
    Select event
      Case #PB_Event_Menu                       ; ein Menü wurde ausgewählt
        Select menu
          Case #Menu_Exit
            Exit = 1
            ende = 1
        EndSelect
      Case #PB_Event_Gadget                     ; ein Gadget wurde gedrückt
      Case #PB_Event_CloseWindow                ; das Schließgadget vom Fenster wurde gedrückt
        Exit = 1
      Case #PB_Event_Repaint                    ; der Fensterinhalt wurde zerstört und muss neu gezeichnet werden (nützlich für 2D Grafik-Operationen) 
      Case #PB_Event_SizeWindow                 ; das Fenster wurde in der Größe verändert
      Case #PB_Event_MoveWindow                 ; das Fenster wurde verschoben
      Case #PB_Event_ActivateWindow             ; das Fenster wurde aktiviert (hat den Fokus erhalten)
      Case #PB_Event_SysTray                    ; das SysTray wurde aktiviert
    
    EndSelect
    
  Until Exit
EndIf

WaitThread(hThread)
WaitThread(hThread2)