WLAN communication

[WolfgangGruia]

How do I manage a connection over WLAN from the device to a PC ?

[mamuen]

Hi Wolfgang,

Originally Posted by WolfgangGruia

How do I manage a connection over WLAN from the device to a PC ?

you can handle it like a normal networkconnection. Use the network.dll !

Greating Mamuen

[WolfgangGruia]

I want to use the WLAN for communication. So I wrote 2 little programs:

Clientside:

Sub ButtonSend_Click

stream.New1(client.GetStream,false)
stream.WriteString(Chr(2) & "010101001" & Chr(3))

End Sub


Sub ButtonConnect_Click

client.New1
client.Connect(client.GetIP2("PPP_PEER"),50000) 'Use Activesync IP.
Msgbox("Client connected.")

End Sub


Serverside:

Sub App_Start

server.New1(50000) 'Listens on port 50000 (all ip's available).
server.Start ' Server Objekt for send (Server is always a Sender)
client.New1 ' Client Object for receiving
client.Value = server.Accept 'This line will block waiting for the other client to connect.
Msgbox("Server connected.")
stream.New1(client.GetStream,false) 'Creates a BinaryFile object using the GetStream method.

Do While true
If client.DataAvailable Then Msgbox(stream.ReadString)
DoTasks
Loop
End Sub


It works fine, but if I use:

client.Connect(client.GetIP2("MSHEIMNETZ"),50000) ' use WLAN


with 'MSHEIMNETZ' name of the WLAN-network instead of the Activesync IP 'PPP_PEER', I get error messages.

What have I to do?


Regards

[taximania]

I'm struggling with WLAN too.
AGraham's app used to work, but doesn't anymore

The chit-chat app just hangs and refuses to run on my device(s).

[mamuen]

Hi Wolfgang,

Originally Posted by WolfgangGruia

...... but if I use:

client.Connect(client.GetIP2("MSHEIMNETZ"),50000) ' use WLAN


with 'MSHEIMNETZ' name of the WLAN-network instead of the Activesync IP 'PPP_PEER', I get error messages.

What have I to do?

In the funktion client.connect you have to use the server-IP not the client one. In the client-server-modell the server is allways listening not the client.

[WolfgangGruia]

Dear Mamuen,

what do I have to put into 'client.getIP2(?????)' ?

Best regards

[mamuen]

Hi WolfgangGruia,

you have to put the server name into.

client.Connect(client.GetIP2("servername"),50000)

Client.getIP2() seem to generate a DNS-request. For the first test i think it is better to use his IP-Address:

client.Connect ("192.168.1.100",50000)

regards Mamuen

[Erel]

If you are connecting through ActiveSync you should use:

<font face="Verdana"><font color="#010101">client.Connect (client.GetIP2 ("PPP_PEER"), 50000)
</font></font>

Otherwise you could find the server's name with Server.HostName (from the server).

[WolfgangGruia]

Dear Erel,

It still doesn't work.My code is:


On the device:

client.New1
server.New1 (50000)
client.Connect(client.GetIP2(server.hostname),5000 0) 'Use Activesync IP.
Msgbox("Client connected.")
stream.New1(client.GetStream,false)

...

stream.WriteString(st)




On the PC:

server.New1(50000) 'Listens on port 50000 (all ip's available).
server.Start ' Server Objekt zum Senden (Server ist immer Sender)
client.New1 ' Also Client Objekt for the receive part
Do While server.Pending = false
DoEvents
Loop
client.Value = server.Accept
Msgbox("Server connected.")
stream.New1(client.GetStream,false) 'Creates a BinaryFile object using the GetStream method.

Do While true
If client.DataAvailable Then Msgbox(stream.ReadString)
DoTasks
DoEvents
Loop

[Erel]

Server.HostName can only be used on the server side.
On the pc check its value with: Msgbox(Server.HostName)
Afterward enter this name on the client.