[bb] UDP Communications by Wayne [ 1+ years ago ]

BlitzBot · June 29, 2017, 00:28:43

Title : UDP Communications
Author : Wayne
Posted : 1+ years ago

Description : Sample UDP Chat program

Code :

Code (blitzbasic) Select

;
; Sample UDP communications program
;
; Author: W.Gray  Last updated: 1/2/4
; Comment: Free code no restrictions, use at your own risk.
;
; Instructions:
; Start program, your IP will be displayed, enter your friends IP addy, type.

Print "Sample UDP Communications"

Inp_Port=4000 ; Incoming Port
Out_Port=4001 ; Outgoing Port


; Display all local user IP's
;
Print "Local IPs:"
For i=1 To CountHostIPs(GetEnv("localhost"))
    Print DottedIP(HostIP(i))
Next

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

; Convert to integer IP
IP= Int_IP(Dest_IP$)

Print
Print "Starting Chat <esc> to quit"

; Allocate ports, get stream id's
udp_rd=CreateUDPStream(Inp_Port) ; Read Stream
udp_wr=CreateUDPStream(Out_Port) ; Write Stream

.loop
; Poll Keyboard for Keypress.
byte1=GetKey()

; transmit each key press.
If byte1>0 Then
	; If 'Enter' pressed force new line locally, and send it.
    	If Byte1=13 Then 
        Print
	; put character in stream buffer.
        WriteByte(udp_wr,byte1)
	; send all characters in the stream buffer.
        SendUDPMsg udp_wr,IP,Inp_Port
    Else
	; Show character before we send it.
        Write Chr(Byte1)
	; put character in stream buffer.
        WriteByte(udp_wr,byte1)
	; send all characters in the stream buffer.
        SendUDPMsg udp_wr,IP,Inp_Port
    EndIf
EndIf

; Load UDP message into stream
IP_rd=RecvUDPMsg(udp_rd)

; Test for messages in stream
If IP_rd <> 0 Then    

;Get number of bytes in UDP stream
    Buflen=ReadAvail(udp_rd)
    If Buflen > 0 Then
    
; Get received character and print to display
        byte1=ReadByte(udp_rd)
        
; Translate <enter> key    
        If byte1=13 Then
            Print
        Else
            Write Chr$(byte1)
        EndIf
        
    EndIf
    
EndIf

; Look for <escape>
If KeyDown(1) Then
    Goto quit
EndIf

Goto loop

; Cleanup and terminate
.quit
CloseUDPStream udp_wr
CloseUDPStream udp_rd


;--------------------------------------
; FUNCTION: INT_IP(IP$)
; 
; Returns integer value of a IP Address string
; IP$ Format n.n.n.n

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


;--------------------------------------
; FUNCTION: VAL(STRING$)
; 
; Returns integer value of a string

Function val(String$) 
ac=String$
Return String$
End Function

Comments :

bytecode77(Posted 1+ years ago)

.

SyntaxBomb - Indie Coders

[bb] UDP Communications by Wayne [ 1+ years ago ]

BlitzBot