Android Question Simple example to communicate between B4a and delphi

[invocker]

Hi

I need A simple example to send and receive string from tcp server delphi to tcp client B4A

 

[invocker]

client

 socket.Initialize("socket")
socket.Connect("127.0.0.1",1900,0)
astream.InitializePrefix(socket.InputStream,True,socket.OutputStream,"astream")

// *****************

Private Sub astream_NewData (Buffer() As Byte)
    Dim strAs String = BytesToString(Buffer,0,Buffer.Length,"UTF8")
Select Case str
           Case "TMSG"
            ToastMessageShow("TMSG",True)
    End Select
'   Log( str)
End Sub

server delphi

procedure TForm1.IdTCPServer1Execute(AContext: TIdContext);
var
  str: string;
begin
  str := AContext.Connection.IOHandler.AllData();
  if str <> EmptyStr then
  begin
  AContext.Connection.IOHandler.WriteLn('TMSG');
    // do something with received string s
  end;

end;

 

[Erel]

Please use [code]code here...[/code] tags when posting code.

Start with this video tutorial and examples: https://www.b4x.com/android/forum/threads/b4x-network-asyncstreams-b4xserializator.72149/#content

Run the B4J and B4A examples.

 

[invocker]

It is ok with B4J but not with delphi

 

[Erel]

Best solution is to use B4J.

You will need to find out the exact protocol that your delphi code expects. You cannot use B4XSerializator with Delphi.

Search for AsyncStreamsText if you want to send and receive strings that end with 'end of line' chars.

 

[DonManfred]

Can you provide an example exe which implements such a server which i can start/stop on my PC? Maybe with a memo for the incoming messages and a edit to send something or so.

 

[invocker]

I change It to
astream.Initialize(socket.InputStream,True,socket.OutputStream,"astream")

and it work Thank's