Android Question Is there a DataInterval function similar to the Winsock control in VB6.0 in B4A？

[bskotu555]

Is there a DataInterval function similar to the Winsock control in VB6.0 in B4A, so that I can retrieve the content returned by the device.


Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim strData As String
Winsock1.GetData strData
If strData <> "" Then
MsgBox strData
End If
End Sub

If possible, can you directly modify it on the following code?

Private Sub ConnectToServer(Host As String)
Log("Trying to connect to: " & Host)
CloseExistingConnection
Dim client As Socket
client.Initialize("client")
client.Connect(Host, 8999, 10000)
Wait For Client_Connected (Successful As Boolean)
If Successful Then
Log("OK")
astream.InitializePrefix(client.InputStream, False, client.OutputStream, "astream")
UpdateState (True)
Else
Log("Failed to connect: " & LastException)
End If
End Sub

 

[Erel]

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

You need to handle the NewData event. See the example.

Note the prefix mode will only work if both sides of the connection implement the prefix protocol.

 

[bskotu555]

请在此使用[明码][暗码]...发布代码时的[/code][/plain]标记。

---

---

您需要处理NewData事件。参见示例。

注意只有当连接的两端都实现前缀协议时，前缀模式才起作用。

 

[bskotu555]

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

You need to handle the NewData event. See the example.

Note the prefix mode will only work if both sides of the connection implement the prefix protocol.

I introduced the Asynchronous StreamsText.bas module and modified the NewDATA event. I'm not sure if that's correct, right?

 

[teddybear]

Please read carefully the post #2 replied by Erel first

1.Please use [code]code here...[/code] tags when posting code. don't upload a code picture

2.Note the prefix mode will only work if both sides of the connection implement the prefix protocol.
From your previous post, the server seems to be a a fixed barcode reader, I don't think it uses the prefix protocol.

3.You can join aeric's group for help[/code]

 

[aeric]

Try

Private Sub ConnectToServer(Host As String)
    Log("Trying to connect to: " & Host)
    CloseExistingConnection
    Dim client As Socket
    client.Initialize("client")
    client.Connect(Host, PORT, 10000)
    Wait For Client_Connected (Successful As Boolean)
    If Successful Then
        'astream.InitializePrefix(client.InputStream, False, client.OutputStream, "astream")
        astream.Initialize(client.InputStream, Null, "astream")
        UpdateState (True)
    Else
        Log("Failed to connect: " & LastException)
    End If
End Sub

Sub AStream_NewData (Buffer() As Byte)
    Dim message As String = BytesToString(Buffer, 0, Buffer.Length, "UTF8")
    Log(message)
'    Dim mm As MyMessage = ser.ConvertBytesToObject(Buffer)
'    txtAge.Text = mm.Age
'    txtName.Text = mm.Name
'    Dim bmp As B4XBitmap = LoadBitmapFromBytes(mm.Image)
'    bmp = bmp.Resize(pnlCanvas.Width, pnlCanvas.Height, False)
'    cvs.ClearRect(cvs.TargetRect)
'    cvs.DrawBitmap(bmp, cvs.TargetRect)
'    cvs.Invalidate
End Sub

 

[bskotu555]

Perfectly solved my problem, null is the key

Try

Private Sub ConnectToServer(Host As String)
    Log("Trying to connect to: " & Host)
    CloseExistingConnection
    Dim client As Socket
    client.Initialize("client")
    client.Connect(Host, PORT, 10000)
    Wait For Client_Connected (Successful As Boolean)
    If Successful Then
        'astream.InitializePrefix(client.InputStream, False, client.OutputStream, "astream")
        astream.Initialize(client.InputStream, Null, "astream")
        UpdateState (True)
    Else
        Log("Failed to connect: " & LastException)
    End If
End Sub

Sub AStream_NewData (Buffer() As Byte)
    Dim message As String = BytesToString(Buffer, 0, Buffer.Length, "UTF8")
    Log(message)
'    Dim mm As MyMessage = ser.ConvertBytesToObject(Buffer)
'    txtAge.Text = mm.Age
'    txtName.Text = mm.Name
'    Dim bmp As B4XBitmap = LoadBitmapFromBytes(mm.Image)
'    bmp = bmp.Resize(pnlCanvas.Width, pnlCanvas.Height, False)
'    cvs.ClearRect(cvs.TargetRect)
'    cvs.DrawBitmap(bmp, cvs.TargetRect)
'    cvs.Invalidate
End Sub