Client/Server sample

[TakisGen]

Hi Mike,

On the Server side, how do you obdain the Address of the Client connected?

Regards
Takis

[Mike Petrichenko]

For present moment this feature disabled. But if you really need it I can add this feature very quickly.

[TakisGen]

Hi Mike,

Please note, that Unicode characters are not passed correctly between Server and Client.
The same happens in SMSClient.

Regards
Takis

[Mike Petrichenko]

How you send it?

[TakisGen]

     ...
    Tx(ReasonEnum.Chat, TextBox.Text)
     ...

    Private Sub Tx(ByVal Reason As ReasonEnum, ByVal TxData As String)
        Try
            Select Case RunAs
                Case RunAsEnum.Server : Server.Write(Data)
                Case RunAsEnum.Client : Client.Write(Data)
            End Select
        Catch ex As Exception
            Log(ex.Message, ColorInfo)
        End Try
    End Sub

    Private Sub Server_OnData(ByVal sender As Object, ByVal e As AxBluetoothFrameworkX.IBFServerXEvents_OnDataEvent) Handles Server.OnData
        Rx(e.data)
    End Sub

    Private Sub Client_OnData(ByVal sender As Object, ByVal e As System.EventArgs) Handles Client.OnData
        Dim Data As String
        Dim Size As Integer = 1024
        Client.Read(Data, Size)
        Rx(Data)
    End Sub

    Private Sub Rx(ByVal RxData As String)
    ...
    End Sub

[Mike Petrichenko]

All correct. But internally it transleted into non-Unicode strings. So the best way is send it byte-by-byte.
I will add full Unicode support in next (4.5) version which will published at this week.