...

;spnr = Spielernummer
;empf$ = empfänger
;nach$ = Nachricht
;
;

...

 If KeyDown (38) Then
  empf$ = Input$("an:")
  nach$ = Input$(":")
  SendNetMsg 1, nach$, spnr,  empf$,(,wichtig)
  If empf$ = "exit" Then StopNetGame
 EndIf
...

   SendNetMsg 1, nach$, spnr,  empf$,(1,wichtig)

COUNTHOSTIPS - Diese Funktion sucht nach Hosts mit dem angegebenen Namen. Die Anzahl der Hosts wird gezählt und danach zurückgegeben. Wenn mit dem Parameter Host$ der Wert "" übergeben wird, dann werden alle Hosts gesucht.

Mit der Funktion HOSTIP kann man die IP-Nummer ermitteln.


DOTTEDIP - Diese Funktion wandelt einen Integerwert in eine IP-Nummer. Eine IP-Nummer besteht aus 4 Zahlen - die alle durch Punkte getrennt sind. Diese Nummer ist 32 Bit breit (=Integer). Die Umwandlung ist relativ simpel. Es werden nur die einzelnen Byte-Werte "gesplittet" und als dezimale Zahlen ausgegeben. Aus dem Integerwert 1234567 entsteht somit der String: "0.18.214.135".


CREATEUDPSTREAM - Dieser Befehl erstellt eine UDP-Netzwerkverbindung. Die Portnummer kann angegeben werden. Falls es weggelassen wurde, dann sucht BlitzBasic nach einem freien Port. Die Nummer des Ports kann mit UDPSTREAMPORT ermittelt werden.

CREATEUDPSTREAM liefert einen Wert, der die Identität des Datenstroms angibt. Dieser Wert kann z.B. mit Read/Write-Befehlen verwendet werden. Sollte nur eine 0 zurückgeliefert werden, so konnte keine UDP-Verbindung erstellt werden. Mit CLOSEUDPSTREAM kann eine Verbindung wieder geschlossen werden.


WRITEBYTE - Byte senden
WRITESTRING - String senden
WRITEFLOAT - Float senden
...

SENDUDPMSG - Mit diesem Befehl kann eine Nachricht an eine IP-Adresse (und Port-Adresse) als UDP-Protokoll gesendet werden. Bevor man es benutzen kann, muss man allerdings noch CREATEUDPSTREAM ausführen. Eine Nachricht kann mit normalen WRITE-Befehlen geschrieben werden. Erst danach kann eine Nachricht mit SENDUDPMSG gesendet werden.

RECVUDPMSG - Diese Funktion kann neue Nachrichten empfangen und eine IP-Adresse zurückliefern, wenn eine Nachricht aus dem Netzwerk empfangen wurde. Andernfalls liefert es 0 zurück. Mit DOTTEDIP kann aus dem Integer eine normale IP-Adresse errechnet werden. Die Nachricht kann mit normalen READ-Befehlen ausgelesen werden.

Bevor man es benutzen kann, muss man allerdings noch CREATEUDPSTREAM ausführen. Die Nachricht wird mit RECVUDPMSG empfangen. Mit UDPMSGPORT kann der benutzte Port ermittelt werden. Mit SENDUDPMSG kann dagegen eine Nachricht verschickt werden.


READAVAIL - Diese Funktion kann für Datei- und Netzwerkzugriffe benutzt werden. READAVAIL ermittelt dabei die Anzahl der Bytes, die garantiert ausgelesen werden können. Wurde eine Datei geöffnet, so liefert diese Funktion die Anzahl der Bytes, die in den Speicher abgelegt wurden. Wenn diese Funktion mit einer Internetverbindung benutzt wird, dann liefert es die Anzahl der Bytes, die über das Internet angekommen sind.

Benutze auch EOF. Diese Funktion ermittelt, ob das Ende einer Datei erreicht ist.

CLOSEUDPSTREAM - Dieser Befehl schließt eine UDP-Verbindung, die mit CREATEUDPSTREAM geöffnet wurde. CREATEUDPSTREAM liefert einen Wert, der zusammen mit CLOSEUDPSTREAM benutzt werden muss.

Durch eine UDP-Verbindung kann man auf ein Netzwerk zugreifen.

Graphics 800,600
;AppTitle "SplntProg Chat"
;hoch =  hostspiel
;joch =  joinspiel
;spnr =  spielernummer
;nach =  nachrichttyp
;var =  nachricht
;spna =  spielername
.Marke

;hinter=LoadImage("C:\Daten\hintergrundmini.bmp")
;logo=LoadImage("C:\Daten\progger.bmp")
;TileBlock hinter, 0,0
;DrawImage logo, 245, 250



Print ""
Print "1 - Hosten"
Print "2 - Joinen"
wahl = Input$("Auswahl:")

 If wahl = 1 Then hoch$ = Input$("Neuer Channel:") spiel = HostNetGame("" + hoch + "")

 If wahl = 2 Then
  joch$ = Input$("Name des Channel:")
  spiel = JoinNetGame(joch$, Host_IP$)
  If joch$ = 0 Then Print "" Print "Channel konnte nicht gefunden werden" Print "" Goto Marke
 EndIf
 Name$ = Input$("Nickname:")

Print "20%"
Print "40%"
Print "60%"
Print "80%"
Print "100%"

Repeat
 var = RecvNetMsg()
 nachtype = NetMsgType()
 spnr = NetMsgFrom()
 spna$ = NetPlayerName$(spnr)
 nach$ = NetMsgData$()
 var = RecvNetMsg()
   
 If nachtype = 100 Then
   Print "Neuer Spieler"
  ElseIf nachtype = 101 Then
   Print "Ein Spieler hat die Sitzungs verlassen"
  ElseIf nachtype = 102 Then
   Print "Der Host hat die Sitzung verlassen"
  ElseIf nachtype = 200 Then
   Print "- FEHLER - Sitzung wird geschloßen"
  EndIf

 If KeyDown (15) Then
  empf$ = Input$("an:")
  nach$ = Input$(":")
  SendNetMsg 1, nach$, spnr,  empf$,1
  If empf$ = "exit" Then StopNetGame
 EndIf

 If KeyDown(1) Then End

 If var = 1 Then
  Print "" + spna$ + "sagt: " + nach$ + ""
 EndIf
;msg =
Until KeyHit(1)

AppTitle "Progger Chat"
Print "Sample UDP Communications"

Inp_Port=4000
Out_Port=4001

Print "LOCAL IP:"

ip_count=CountHostIPs(GetEnv("localhost"))
For i=1 To ip_count
   Print DottedIP(HostIP(1))
Next

Print "Enter Destination IP#: xxx.xxx.xxx.xxx"
Dest_IP$=Input$(">")
IP= INT_IP(Dest_IP$)

Print ""
Print "Starting Chat TO quit"

udp_rd=CreateUDPStream(Inp_Port)
udp_wr=CreateUDPStream(Out_Port)

.loop
byte1=GetKey()
If byte1>0 Then
   If Byte1=13 Then
      Print
      WriteByte(udp_wr,byte1)
      SendUDPMsg udp_wr,IP,Inp_Port
   Else
      Write Chr(Byte1)
      WriteByte(udp_wr,byte1)
      SendUDPMsg udp_wr,IP,Inp_Port
   EndIf
EndIf

IP_rd=RecvUDPMsg(udp_rd)

If IP_rd <> 0 Then
   Buflen=ReadAvail(udp_rd)
   If Buflen> 0 Then
      byte1=ReadByte(udp_rd)
      If byte1=13 Then
         Print
      Else
         Write Chr$(byte1)
      EndIf
   EndIf
EndIf

If KeyDown(1) Then Goto quit
Goto loop

.quit
CloseUDPStream udp_wr
CloseUDPStream udp_rd

Function INT_IP(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