gambas-source-code/app/examples/Networking/UDPServerClient/.src/FrmClient.class
Benoît Minisini c6a9cd69c2 [EXAMPLES]
* NEW: Add examples again. I hope correctly this time.


git-svn-id: svn://localhost/gambas/trunk@6726 867c0c6c-44f3-4631-809d-bfa615b0a4ec
2014-12-12 19:58:52 +00:00

73 lines
1.7 KiB
Text

' Gambas class file
Public UDPClient As UdpSocket
Public Sub Form_Open()
UDPClient = New UdpSocket As "UDPClient"
End
'///////////////////////////////////////////////////
' Client stuff
'///////////////////////////////////////////////////
Public Sub Button2_Click()
If UDPClient.Status <= Net.Inactive Then
'UDPClient.Path = "/tmp/gambas-udp-client"
UDPClient.Bind
If UDPClient.Status = Net.Active Then
Button2.Text = ("Stop")
TxtData.Enabled = True
Button3.Enabled = True
End If
Else
Close #UDPClient
Button2.Text = ("Start !")
TxtData.Enabled = False
Button3.Enabled = False
End If
End
Public Sub Button3_Click()
UDPCLient.TargetPort = TxtPort.Text
UDPCLient.TargetHost = TxtIP.Text
'UDPClient.TargetPath = "/tmp/gambas-udp-socket"
Write #UDPCLient, TxtData.Text, Len(TxtData.Text)
End
Public Sub UDPClient_Error()
Button2.Text = ("Start !")
TxtData.Enabled = False
Button3.Enabled = False
Select Case UDPClient.Status
Case Net.CannotBindSocket
Message.Error(("Unable to Bind to that port"))
Case Net.CannotCreateSocket
Message.Error(("System does not allow to create a socket"))
Case Net.CannotRead
Message.Error(("Error Sending Data"))
Case Net.CannotWrite
Message.Error(("Error Receiving Data"))
End Select
End
Public Sub UDPClient_Read()
Dim sCad As String
Read #UDPClient, sCad, Lof(UDPClient)
TxtRecClient.Text = TxtRecClient.Text & ("Received data from : ") & UDPClient.SourceHost & ":" & UdpClient.SourcePort & Chr(13) & Chr(10)
TxtRecClient.Text = TxtRecClient.Text & ("Data --> ") & sCad & Chr(13) & Chr(10)
End
Public Sub Form_Close()
If UDPClient.Status > 0 Then Close #UDPClient
End