Android Question convert my delphi code to b4a

[Addo]

i am using delphi for almost 7 years and i need to convert my client Thread to B4A to work under service

i have read on tha forums on how to use socket and i come up with result like following

thats how to connect

Socket1.Initialize("Socket1")
   Socket1.Connect("machine ip" , 27274, 20000)
   ph.KeepAlive(True)

and this is how i write

If Socket1.Connected Then
         
tr.Initialize(Socket1.OutputStream)
tr.WriteLine(cmd)
tr.Flush
 End If

but i couldn't figure out how to do the same mechanism of my delphi code under b4a like using thread and readln and read stream continuously if a data available

i just wanted to convert from delphi to b4a

 

[aaronk]

Check out: https://www.b4x.com/android/forum/threads/b4x-asyncstreams-tutorial.7669/

 

[Addo]

My server doesn't write streams only its also writestrings in the same protocol using write/writeln

 

[Erel]

and this is how i write

Never use TextWriter with network streams.

 

[Addo]

Never use TextWriter with network

I am just confused my server sends text over wire not as stream uses writeln I am not sure how to read that data using asyncstream sense my server does not write streams also sending as well

 

[Erel]

Have you seen the complete video?

 

[Addo]

I am watching currently

 

[Addo]

I have watched the full video great tutorial , but I am still confused the whole client and server you demonstrate is writing buffer , my server does not write a buffer the client should waiting for string or I am messed up in understanding

 

[Erel]

Network communication is always done with arrays of bytes. You can convert a string to an array of bytes with "aaa".GetBytes("UTF8") and convert it back with BytesToString.

Maybe it will be easier to start with this example: [B4X] Network + AsyncStreams + B4XSerializator

 

[Addo]

What I meant is my server is already done by delphi I am not trying to create a server from scratch , I wanted to create a client to connect and communicate to that Delphi server.

Difficult understanding :

If the client is waiting for byets data the server should send byets data as well which I cannot do because I can't modify the delphi server because its been used for other apps which I cannot change its mechanism .

The server used writeln/write to send the data to the client

What I am confused about that this streams reading and byets should read whats incomming from server even if its writeln ?

 

[Erel]

Your delphi server already sends bytes. You can use BytesToString to convert the received bytes back to a string.

If each message ends with an end of line character then you can use AsyncStreamsText.

 

[Addo]

I will dig deep into this and will come back with feedback I am sure this topic will help other delphi developers who wants to migrate

Thank you for your patience

 

[asales]

Maybe you need to try a different aproach or other components in Delphi, like the Indy components and REST Webservice.
See if this links can help you:
http://www.drdobbs.com/web-development/restful-web-services-a-tutorial/240169069?pgno=1
https://delphisolutions.wordpress.com/2015/12/07/rest-webservice-em-delphi-com-indy-sem-datasnap/ (in portuguese)

 

[Addo]

This is not indy tcp problem , I was able to connect and communicate using writeln if you read my first post, the problem is I dont know how to writeln and readln using asyncstream .

 

[OliverA]

Don' use prefix mode?

 

[Addo]

I am not very expert in b4a this is just my day 1 can you explain with code by not using prefix mode please

 

[OliverA]

astream.InitializePrefix

Just use astream.Initialize

 

[Addo]

What is the different and how this will make asteam use writeln / readln ? Not bytes

 

[OliverA]

Please check out the link provided by @aaronk in post #2. It will explain Prefix mode. It also shows how to convert bytes to text and text to bytes. @Erel tried to tell you that under the hood, everything is bytes. Delphi just hides the fact from you and with B4X (be it B4A, B4i, B4J) you just have to do a little bit of converting.

 

[Addo]

fine i have tried to use readbyets in the delphi server now i got gibberish characters which is invalid encoding i already used UTF8 encoding

CallSub2(Starter, "SendData", Bconv.StringToBytes(typingtxt.Text&"~", "UTF8"))

what could be the problem now ?