Sachinsd03
Member
I have Posted My code.I successfully initialize server but I can't connect sever to Client.Can anyone please tell me what is wrong in my code ? Can i connect client and server in the same pc ?
Server Code
Client Code
Server Code
B4X:
#Region Project Attributes
#MainFormWidth: 600
#MainFormHeight: 600
#End Region
Sub Process_Globals
Private fx As JFX
Private MainForm As Form
Public Server As ServerSocket
End Sub
Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
'MainForm.RootPane.LoadLayout("Layout1") 'Load the layout file.
MainForm.Show
server_side
End Sub
Sub server_side()
Try
Server.Initialize(6000,"localhost")
Server.Listen()
If Server.IsInitialized = True Then
Log("Started")
End If
Catch
Log("Waiting for Client")
End Try
End Sub
Client Code
B4X:
#Region Project Attributes
#MainFormWidth: 600
#MainFormHeight: 600
#End Region
Sub Process_Globals
Private fx As JFX
Private MainForm As Form
Public socket As Socket
End Sub
Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
'MainForm.RootPane.LoadLayout("Layout1") 'Load the layout file.
MainForm.Show
Try
socket.Initialize("socket")
socket.Connect("localhost",6000,10000)
If socket.Connected = True Then
Log("Connected")
Else
Log("Not Connected")
End If
Catch
Log("Waiting to server")
End Try
End Sub
Last edited: