network send text

[slydog43]

Im trying to send some text to an open port.
I can open the socket but then Im confused

I have
Sub mySocket1_Connected (Successful As Boolean)

If Successful = False Then
Return
Else
Msgbox("connected!","")
End If

Dim tw As TextWriter
tw.Initialize(mySocket1.OutputStream)

tw.WriteLine("testing 123")


is this close?

 

[Erel]

Yes. You may also want to call tw.Flush afterward to avoid the text from being buffered.

Usually you will want to send the text length and then the text itself. Otherwise several messages may appear as a single message.
Or you can use AsyncStreams in prefix mode which handles it automatically.

 

[slydog43]

wow I added a flush and it worked!!!

 

[fabianr]

How to send data? (Network)

I am tried make an application client/server. The Server is done in Delphi, and the Client en Basic4Android.

My Question is how to send data for than the server receive the data and for example do an action according to the text sent.

My Client:

Sub Process_Globals
    Dim Socket1 As Socket   
End Sub

Sub Globals
Dim Button1 As Button

End Sub 

Sub Activity_Create(FirstTime As Boolean)
activity.LoadLayout("Ventana1")
    Socket1.Initialize("Socket1")
    Socket1.Connect("192.168.1.4",8721,20000)
End Sub

Sub Socket1_Connected (Successful As Boolean)
    If Successful = False Then
        Msgbox(LastException.Message, "Error connecting")
        Return
    End If
   
End Sub

Sub Button1_Click
'[B]HERE IS THE CODE YOU SHOULD SEND THE TEXT[/B]
End Sub

:sign0085:
Gracias.

 

[Erel]

I recommend you to use AsyncStreams to handle the communication. See this tutorial: http://www.b4x.com/forum/basic4android-getting-started-tutorials/7669-asyncstreams-tutorial.html

It is much easier and more powerful than handling the communication yourself.

 

[fabianr]

I do not understand ... but anyway the example is an application out there
server right? and the client? :/

 

[Erel]

It is server code. The client code should be almost identical except.