Wszystko działa, poza jedną rzeczą, a mianowicie kiedy wysyłam dane do sewera UDP w EditBoxie mam taki tekst:
"(EditText): Left = 0, Top (...)" jak się tego pozbyć aby został sam wysyłany tekst "Dane do wysłania" tak jak to ma miejsce w poradniku
[syntax=vb]#Region Project Attributes
#ApplicationLabel: Temperatura
#VersionCode: 1
#VersionName:
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: portrait
#CanInstallToExternalStorage: False
#End Region
#Region Activity Attributes
#FullScreen: True
#IncludeTitle: True
#End Region
Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
Dim udppack As UDPPacket
Dim udp As UDPSocket
Dim MyLan As ServerSocket
End Sub
Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.
Private btnZalWylLED As ToggleButton
Private edUstawIP As EditText
Private edUstawPort As EditText
Private edDaneDoWyslania As EditText
Private btnWyslij As Button
Private edLog As EditText
Private edSrvPort As EditText
Private btnPort As Button
Dim remote_ip As String
Dim srvport As String
Dim remote_port As String
End Sub
Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
Activity.LoadLayout("Galaxy_S7")
Activity.Title = "Łaj Faj"
'Msgbox ("Witaj Marcin!","Działa świetnie")
remote_ip = edUstawIP.Text
remote_port = edUstawPort.Text
srvport = edSrvPort.Text
udp_init( srvport )
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
'**********************************************
Sub udp_init ( sport As String )
udp.Initialize("udpsrv", sport, 1024)
Activity.Title= "Łaj Faj(" & MyLan.GetMyIP & ":" & sport & ")"
End Sub
Sub udpsrv_PacketArrived (Packet As UDPPacket)
Dim msg As String
msg = BytesToString(Packet.Data, Packet.Offset, Packet.Length, "UTF8" )
edLog.Text = edLog.Text & "< " & msg.Trim & CRLF
edLog.SelectionStart = edLog.Text.Length
End Sub
Sub SendUDP (ip As String, port As String, data As String)
Dim bintab() As Byte
bintab = data.GetBytes("UTF8")
udppack.Initialize( bintab, ip, port )
udp.Send( udppack )
edLog.Text = edLog.Text & "> " & data.Trim & CRLF
edLog.SelectionStart = edLog.Text.Length
End Sub
Sub btnZalWylLED_CheckedChange(Checked As Boolean)
If btnZalWylLED.Checked = True Then
btnZalWylLED.TextOn = "Załącz"
Else
btnZalWylLED.TextOff = "Wyłącz"
End If
End Sub
Sub btnWyslij_Click
remote_ip = edUstawIP.Text
remote_port = edUstawPort.Text
SendUDP ( remote_ip, remote_port, edDaneDoWyslania)
End Sub
Sub btnPort_Click
udp.Close
srvport = edSrvPort.Text
udp_init (srvport)
End Sub[/syntax]
Statystyki: Napisane przez Morcinek92 — 27 lip 2017, o 14:47
]]>