in_stream = CreateUDPStream()          ; Stream erzeugen und handle zurückgeben
out_stream = CreateUDPStream()
      
myinport = UDPStreamPort(in_stream)      ; Port ermitteln
myoutport = UDPStreamPort(out_stream)

Const cinport = 2002, coutport = 2003

in_stream = CreateUDPStream(cinport)    ; Stream erzeugen und handle zurückgeben
out_stream = CreateUDPStream(coutport)

myinport = cinport                  ; Port ermitteln
myoutport = coutport

; Graphical Variables
Global resolution_x = 200, resolution_y = 100, graph_depth = 32, graph_mode = 2

; Create Graphics
Graphics3D resolution_x, resolution_y, graph_depth, graph_mode
SetBuffer BackBuffer() ; DoubeBuffering

; Variable
Const cport = 9002
Const idsendmsg = 1

Local frametimer = CreateTimer(60) ; 60 FPS (Bilder pro Sekunde)

Global myip_dot$: network_getip(): DebugLog "Meine I-Net IP: " + myip_dot$
Global nachricht$
Global menu = 1
Global mystream
Global myip_int = network_intip(myip_dot$)

; Functions ////////////////////////////////////

Repeat ; Anfang der Hauptschleife
   
   AppTitle "Client test"
      
   Select menu
      Case 1: main() ; schreibe Nachricht in den Stream
      Case 2: network_read_data() ; lese aus dem Stream
   End Select
   
   WaitTimer(frametimer) ; wir wollen 60 FPS nicht mehr
   Flip(0)
   Cls
   If KeyHit(1) Then system_clean_up()
   
Forever

; Functions ////////////////////////////////////

Function main()

   mystream = CreateUDPStream(cport)

   Local tmp_msg$ = "Client gestartet"
   nachricht$ = "Schicke mir selber eine Nachricht..."
   network_write_data( idsendmsg, "Client gestartet", myip_int, cport)
   DebugLog nachricht$
   
   menu = 2
   
End Function

; Functions ////////////////////////////////////

Function network_write_data( datatype, msg$, to_ip, to_port )
   
   Select datatype
      Case idsendmsg:
         WriteInt(mystream, idsendmsg)
         WriteString(mystream, msg$)
   End Select
   
   SendUDPMsg mystream, to_ip, to_port
   
End Function

; Functions ////////////////////////////////////

Function network_read_data()
   
   Local tmp_msg$ = ""
   Local tmp_ip = 0
   Local tmp_port = 0

   Local ip_rec_int = RecvUDPMsg(mystream) ; lese die Nachricht mit read, return ist senderIP
   Local rec_port = UDPMsgPort(mystream)
   
   If ip_rec_int
   
      nachricht$= "Neue Nachricht von Port: " + rec_port
      DebugLog nachricht$
      
      idc = ReadInt(mystream)

      If idc = idsendmsg Then ;erhalte: Nachricht
         tmp_msg$ = ReadString(mystream)   
                  
         nachricht= "Nachricht erhalten: " + tmp_msg
         DebugLog nachricht$
      EndIf
                  
   EndIf   
   
End Function

; Functions ////////////////////////////////////

Function network_intip(IP$)
  a1=Int(Left(IP$,Instr(IP$,".")-1)):IP$=Right(IP$,Len(IP$)-Instr(IP$,"."))
  a2=Int(Left(IP$,Instr(IP$,".")-1)):IP$=Right(IP$,Len(IP$)-Instr(IP$,"."))
  a3=Int(Left(IP$,Instr(IP$,".")-1)):IP$=Right(IP$,Len(IP$)-Instr(IP$,"."))
  a4=Int(IP$)
  Return (a1 Shl 24) + (a2 Shl 16) + (a3 Shl 8 ) +a4
End Function

; Functions ////////////////////////////////////

Function system_clean_up()

   If mystream Then CloseUDPStream(mystream)
   End
   
End Function

; Functions ////////////////////////////////////

Function network_getip() ; lese wieistmeineip.de in myip ein

Local webserver$ = "www.meineipadresse.de"
Local webpath$ = "meine_ip.php"
Local tmp_msg$
Local tmp_sip_dot$
Local tmp_status$
Local tcp

;Verbinde zur Webseite

   tcp = OpenTCPStream( webserver$, 80 )
   
   If Not tcp
      Return 1 ;-> connection fehlgeschlagen
   EndIf
            
   ;Lese Meine Internet IP
   WriteLine tcp, "GET http://" + webserver$ + "/" + webpath$ + " HTTP/1.0"
   WriteLine tcp, ""

   If Eof( tcp )
      Return 1 ;-> connection fehlgeschlagen
   Else
                           
      While Not Eof(tcp) ;lese nun das Vz aus

         tmp_msg$ = ReadLine$(tcp)
         ;DebugLog(tmp_msg$)
         
         t = Instr(tmp_msg$, "<B>", 1)
         If t > 0
            s = Instr(tmp_msg$, ";", t)
            e = Instr(tmp_msg$, "<", s)
            tmp_ip_dot$=Mid( tmp_msg$, s + 1, e - s -1 )
            
            Exit         
         EndIf

      Wend
                        
   EndIf

   CloseTCPStream tcp

   myip_dot$ = tmp_ip_dot$

End Function

; Functions ////////////////////////////////////