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

Erel said:

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

---

---

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

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

Click to expand...

Erel said:

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.

Click to expand...

aeric said:

Try

B4X:

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

B4X:

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

Click to expand...