如何使用 Indy 10 tcpip 收听 "controller board"？

Question

我在 Visual Basic 中有一个代码，它有一个计时器并监听一个 tcpip 流。我尝试在 deplhi 中对其进行编码，但我遇到了问题。

我像这样使用 tcpip 连接成功：IdTCPClient1.Connect；

板子tcpip是192.168.0.180，端口2000，我的服务器是192.168.0.30。

我正在尝试这个代码：

procedure TForm1.Button8Click(Sender: TObject);
var StrStream: TMemoryStream;
begin

  if IdTCPClient1.Connected then
    begin
      StrStream := TMemoryStream.Create;
      if IdTCPClient1.IOHandler.Connected then
        IdTCPClient1.IOHandler.ReadStream(StrStream,-1,false);

      Memo1.Lines.Add('hello');
    end;

end;

问题是，在行 IdTCPClient1.IOHandler.ReadStream(StrStream,-1,false);应用程序停止，没有错误，没有消息，我不明白。

VB代码

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick

        Try

            If tcp1.Available > 1 Then
                Dim leitura As NetworkStream = tcp1.GetStream
                Dim bytes(tcp1.ReceiveBufferSize) As Byte
                leitura.Read(bytes, 0, CInt(tcp1.ReceiveBufferSize))
                returndata = Encoding.ASCII.GetString(bytes)
                txtSerial1.AppendText(returndata)

            End If

            If tcp2.Available > 1 Then
                Dim leitura As NetworkStream = tcp2.GetStream
                Dim bytes(tcp2.ReceiveBufferSize) As Byte
                leitura.Read(bytes, 0, CInt(tcp2.ReceiveBufferSize))
                returndata = Encoding.ASCII.GetString(bytes)
                txtSerial2.AppendText(returndata)
            End If


        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

Answer 1

当调用 IOHandler 的 ReadStream() 方法时，设置 AByteCount=-1 和 AReadUntilDisconnect=False 告诉 ReadStream() 期望传入数据前面有一个多字节指定数据中后续字节数的整数（4 或 8 字节，取决于 IOHandler 的 LargeStream 属性），然后等待那么多字节实际到达。服务器的数据实际上是这样的吗？我对此表示怀疑，因为那不是您的 VB 代码所期望的。

将 IOHandler 的 ReadBytes() 方法与 AByteCount=-1 一起使用比使用 ReadStream() 方法更接近于您的 VB 代码，例如：

procedure TForm1.Button8Click(Sender: TObject);
var
  Bytes: TIdBytes;
begin
  if IdTCPClient1.Connected then
  begin
    IdTCPClient1.IOHandler.ReadBytes(Bytes, -1);
    // use Bytes as needed...
    Memo1.Lines.Add('hello');
  end;
end;

此外，请记住 Indy 默认使用阻塞套接字 I/O。您真的不应该在 UI 主线程中执行阻塞操作。您应该将阅读逻辑移至单独的工作线程。或者，至少，确保在 TIdTCPClient 上设置一个小的 ReadTimeout，这样 ReadBytes() 就不会长时间阻塞 UI。

如何使用 Indy 10 tcpip 收听 "controller board"？

How can I listening "controller board" with indy 10 tcpip?

tcp

indy10

delphi-10.1-berlin