PureBoard

Code: Alles auswählen

OpenConsole()

; OnErrorSupport
Procedure error()
  Select MessageRequester("Warning","Ein Fehler ist in der Zeile "+Str(GetErrorLineNR())+" aufgetreten",#MB_ICONWARNING | #MB_ABORTRETRYIGNORE)
    Case 3
      End
    Case 4
      error()
  EndSelect
EndProcedure
OnErrorGosub(@error())

; Initialisieren
Declare NetworkHandle()
Declare ServerHandle()
#buffersize = 1000
Global quit.b
InitNetwork()

; Einfacher Messagehandler
Procedure Info(text.s,typ.b)
  Select typ.b
    Case 0
      ;Debug "Error: "+text
      PrintN("Error:    "+text)
      ;MessageRequester("Error",text.s,#MB_ICONSTOP)
    Case 1
      ;Debug "Log: "+text
      PrintN("Log:      "+text)
      ;MessageRequester("Info",text.s,#MB_ICONINFORMATION)
    Case 2
      ;Debug "Nachricht: "+text
      PrintN("Nachricht:"+text)
      ;MessageRequester("Nachricht",text.s,#MB_ICONINFORMATION)
  EndSelect
EndProcedure

; Startet Server
Procedure RunServer()
  If CreateNetworkServer(2000)
    Structure computer
      id.l
    EndStructure
    Structure work ; Struktur für die Liste für das Abarbeiten der Pakete
      id.l
      *buffer
      doit.b
    EndStructure
    Global client.computer
    NewList ToDo.work()
    CreateThread(@ServerHandle(),0)
    CreateThread(@NetworkHandle(),0)
    ProcedureReturn #True
  EndIf
EndProcedure

Procedure ServerHandle() ; Procedure für das Empfangen von Paketen (Thread)
  Repeat
    Select NetworkServerEvent()
      Case 1
        Client\id = NetworkClientID()
      Case 2 ; Wenn ein Paket empfangen wird
        AddElement(Todo()) ; Eine Element wird in die Liste zu Abarbeitung hinzugefügt
        todo()\id = NetworkClientID()
        todo()\buffer = AllocateMemory(#buffersize) ; Speicher für das Paket wird reserviert
        ReceiveNetworkData(todo()\id ,Todo()\buffer,#buffersize)
        Todo()\doit = 1 ; Paket wird für die Bearbeitung freigegeben.
      Case 4
        Client\id = 0
      Default
        Delay(1)
    EndSelect
  Until quit
EndProcedure

Procedure NetworkHandle() ; Procedure für das Bearbeiten der Pakete (Thread)
  Repeat
    If CountList(Todo()) ; Wenn ein Paket für die Bearbeitung da ist
      FirstElement(Todo()) ; Wird das erste Paket ausgewählt
      If Todo()\doit ; Falls dieses Element für die Bearbeitung freigegeben ist
        Select PeekB(todo()\buffer) ; Lese den ersten Byte aus ( hier sollte der immer 1 sein...später soll das sozusagen ein Befehl sein. z.B. ist 1 eine Nachricht und 2 Koordinaten und 3...)
          Case 1 ; Falls 1 => Nachricht
            info(PeekS(todo()\buffer+1),2) ; Liest die Nachricht und bringt sie auf den Bildschirm
        EndSelect
        FreeMemory(Todo()\buffer) ; Fertig bearbeitet => Speicher wieder freigeben
        DeleteElement(Todo()) ; Element löschen
        ResetList(Todo()) ; Liste reseten
      EndIf
     Else
      Delay(1)
    EndIf
  Until quit
EndProcedure


;Hauptroutine

If RunServer()
  info("Server wurde gestartet",1)
  While quit = 0
    Delay(10)
  Wend
  info("Server wurde gestoppt",1)
 Else
  Info("Server konnte nicht gestartet werden",0)
EndIf
End

Code: Alles auswählen

OpenConsole()
InitNetwork()
*buffer = AllocateMemory(100)
PokeB(*buffer,1) ; Schreibt den ersten Byte, der für den Befehl steht ( hier ist dieser 1 und bedeutet, das es sich um eine Nachricht handelt )
sid.l = OpenNetworkConnection("127.0.0.1",2000)
If sid
  For x = 0 To 100
    PokeS(*buffer+1,Space(50)) ; Leert den Text für die Nachricht
    PokeS(*buffer+1,Str(x)) ; Schreibt den Text
    PrintN(PeekS(*buffer+1)) ; Schreibt den Text, der gesendet wird in die Konsole
    SendNetworkData(sid,*buffer,50) ; Verschickt das Paket ( 1+$Text )
    Delay(1)
  Next
  CloseNetworkConnection(sid)
 Else
  PrintN("Konnte Server nicht finden")
EndIf
PrintN("Finish")
Input()
; IDE Options = PureBasic v3.94 (Windows - x86)
; CursorPosition = 11
; Folding = -
; DisableDebugger