ATNEL tech-forum

Re: Udp terminal

2015-11-29T20:07:15+01:00

Dzięki koledzy, post wcześniej już napisałem, że tam miałem błąd - działa
Wielkie dzięki!

---------------------

Jestem początkującym i nie chciałem kopiować gotowca, tylko piszę na podstawie poradnika.
Musiałem to przeoczyć, ale nauka na błędach zapada w pamięci na dłużej.

Statystyki: Napisane przez swicio — 29 lis 2015, o 20:07

Re: Udp terminal

2015-11-29T20:04:43+01:00

Ty nie potrzebnie dodałeś dim str as string przeciez juz masz to tutaj
[syntax=basic4gl]Sub udp_send( adr As String, port As Int, str As String )[/syntax]

Statystyki: Napisane przez matekogon — 29 lis 2015, o 20:04

Re: Udp terminal

2015-11-29T20:03:43+01:00

Mirek w udp_send nie powoluje zmiennej str.

Statystyki: Napisane przez mario — 29 lis 2015, o 20:03

Re: Udp terminal

2015-11-29T20:00:15+01:00

Wzorowałem się na poradniku Mirka, a tam jest to samo
[syntax=basic4gl]Sub udp_send( adr As String, port As Int, str As String )
Dim udppack As UDPPacket

Dim dane() As Byte

str = str & Chr(13) & Chr(10)
dane = str.GetBytes( "UTF8" )

udppack.Initialize( dane, adr, port )
udpsrv.Send( udppack )
End Sub[/syntax]

tylko dodatkowo ma możliwość wyboru portu poprzez edPortTx.Text
[syntax=basic4gl]udp_send( "255.255.255.255", edPortTx.Text, teDane.Text )[/syntax]

Quote:

Dokładnie nie potrzebnie dwa razy definiujesz str wystarczy usunąć dim str as stringm

I tu właśnie był błąd

Statystyki: Napisane przez swicio — 29 lis 2015, o 20:00

Re: Udp terminal

2015-11-29T19:56:24+01:00

Dokładnie nie potrzebnie dwa razy definiujesz str wystarczy usunąć dim str as stringm

Statystyki: Napisane przez matekogon — 29 lis 2015, o 19:56

Re: Udp terminal

2015-11-29T19:51:07+01:00

Kolego, błąd masz tutaj:

[syntax=c]Dim udppack As UDPPacket
Dim dane() As Byte
Dim str As String

str= str & Chr(13) & Chr(10)[/syntax]

Wysyłasz pusty string przecież.

powinno być:

[syntax=c]str= EditText1.Text & Chr(13) & Chr(10)[/syntax]

wtedy będzie śmigać.

Statystyki: Napisane przez mario — 29 lis 2015, o 19:51

Re: Udp terminal

2015-11-29T19:43:14+01:00

Faktycznie, nie zauważyłem. Już poprawiam, ale mimo to dalej nie odbieram tekstu tylko znaczniki chr

Statystyki: Napisane przez swicio — 29 lis 2015, o 19:43

Re: Udp terminal

2015-11-29T19:36:49+01:00

Dla czego wysyłasz port jako string a nie int?

Statystyki: Napisane przez matekogon — 29 lis 2015, o 19:36

Udp terminal

2015-11-29T19:42:57+01:00

Witam,
Nie wiem gdzie mam błąd, ale nie mogę wysłać z telefonu tekstu.

[syntax=basic4gl]udp_send( "255.255.255.255", 32000, EditText1.Text)[/syntax]

gdy wpisuję w pole edit1 jakiś tekst, wysyła mi jedynie same znaczniki Chr(13) & Chr(10)

tak jakby funkcja udp_send nie pobierała z edit1 tekstu do zmiennej "str as String"
[syntax=basic4gl]Sub udp_send( adr As String, port As Int, str As String)[/syntax]

Proszę o podpowiedź co robię źle, lub co przeoczyłem.

poniżej cały kod:
[syntax=basic4gl]#Region Project Attributes
#ApplicationLabel: UDP
#VersionCode: 1
#VersionName:
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: unspecified
#CanInstallToExternalStorage: False
#End Region

#Region Activity Attributes
#FullScreen: False
#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 udpsrv As UDPSocket
Dim udppack As UDPPacket

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 btnsend As Button
Private EditText1 As EditText
Private EditText2 As EditText
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("1")
udpsrv.Initialize("udpsrv",32000,1024)

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub udpsrv_PacketArrived (Packet As UDPPacket)
Dim msg As String
msg = BytesToString(Packet.Data, Packet.Offset,Packet.Length,"UTF8")
EditText2.Text=(EditText2.Text & msg & CRLF)

End Sub

Sub udp_send( adr As String, port As Int, str As String)
Dim udppack As UDPPacket
Dim dane() As Byte
Dim str As String

str= str & Chr(13) & Chr(10)

dane= str.GetBytes( "UTF8" )

udppack.Initialize( dane, adr, port )
udpsrv.Send( udppack )

End Sub

Sub btnsend_Click

udp_send( "255.255.255.255", 32000, EditText1.Text)
End Sub[/syntax]

Statystyki: Napisane przez swicio — 29 lis 2015, o 16:03