how to use the b4p weblogin

[winjiadh]

I want use the B4P creat a login
how to do it
who can help me
the old forums I can use the search to find the old helps,but the in the new Forums ,how to use the serch?

 

[mjcoon]

Don't know about the "login" (not sure what you mean) but regarding search, see http://www.b4x.com/android/forum/threads/your-new-forum-is-not-good.31220/

Mike.

 

[winjiadh]

'****** Server side *******
'stream is a BinaryFile object, server is a Server object and client is a Client object.

Sub Globals
'Declare the global variables here.

End Sub

Sub App_Start
sform.Show
Server.New1(50000) 'Listens on port 50000 (all ip's available).
Server.Start
Timer1.Enabled = True
End Sub


Sub Timer1_Tick
If Server.Pending = True Then
Timer1.Enabled = False
'Server.New1(50000) 'Listens on port 50000 (all ip's available).
Client.Value = Server.Accept
Msgbox("Server connected.")
stream.New1(Client.GetStream,False) 'Creates a BinaryFile object using the GetStream method.
stream.WriteString("This message will be sent to the client.")
'Do the communication here
End If
End Sub

 

[winjiadh]

'******Client side*******
'stream is a BinaryFile object and client is a Client object.
'If you are using Activesync to make the connection then the device should be the client and the server code should be running on the desktop before running the client code.
Sub Globals


End Sub


Sub App_Start
Client.New1
Client.Connect(Client.GetIP2("xp"),50000) 'Use Activesync IP.
If Client.DataAvailable = True Then Msgbox("Client connected.")

stream.New1(Client.GetStream,False)
Msgbox(stream.ReadString)
Client.Close
End Sub

 

[winjiadh]

who can told me
what's wrong

 

[Erel]

The code in post #3 seems to be correct. Is that the code you are running?

 

[winjiadh]

I run the code step by step
run in the "Client.Value = Server.Accept"
the error like the attachment

 

[klaus]

You must also initialize the Client with
Client.New

Best regards.

 

[agraham]

The error message has told you what is wrong. As the help for Network Client.value shows

client.New1
client.Value = server.Accept

 

[winjiadh]

ok，thanks