Delphi IOHandler 读取未知字节数

Question

我是 Delphi XE5 的新手，主要使用 VB.Net 和一些 Java。我试图从传入的 TCP 连接中读取未知数量的字节，但没有运气研究如何确定输入缓冲区中有多少字节要读取。似乎我尝试的每种方法(即 ReadBytes、ReadStream 等)都要求我明确告诉他们要读取多少字节或阻塞多少字节。我只需要一种方法来确定输入缓冲区中有多少字节，以便我可以使用 ReadBytes 来读取它们。

begin
  Client.IOHandler.CheckForDataOnSource(300);
  if Not Client.IOHandler.InputBufferIsEmpty then
    Client.IOHandler.ReadBytes(rxBuf);
end;

为了不阻塞，我需要提供输入缓冲区中的字节数，但我无法确定如何做到这一点。我尝试了 InputBuffer.Size，但返回的数字比可能存在的数字大得多。

我现在尝试了以下方法:

begin
  if Client.IOHandler.InputBufferIsEmpty then
  begin
    Client.IOHandler.CheckForDataOnSource(1000);
    if Not Client.IOHandler.InputBufferIsEmpty then
    begin
      Client.IOHandler.InputBuffer.ExtractToBytes(rxBuf);
    end;
  end
  else
    Client.IOHandler.InputBuffer.ExtractToBytes(rxBuf);
end;

当我设置断点并单步执行代码时，代码会跳过 ExtractToBytes，并且 rxBuf 保持为零，即使输入缓冲区中有数据也是如此。为什么？

我之前遗漏了一些代码。这是整个事情。

while stop-start <MainForm.Timeout do
begin
  if Client.IOHandler.InputBufferIsEmpty then
  begin
    Client.IOHandler.CheckForDataOnSource(1000);
    stop := Ticks;
    if Not Client.IOHandler.InputBufferIsEmpty then
    begin
      Client.IOHandler.InputBuffer.ExtractToBytes(rxBuf);
      break;
    end;
  end
  else
    Client.IOHandler.InputBuffer.ExtractToBytes(rxBuf);
  break;
end;

我知道缓冲区中有数据，因为单步执行代码会进入中断；但是 ExtractToBytes(rxBuf) 没有被评估并且不知道为什么。

Answer 1

InputBuffer.Size 是 InputBuffer 内存中的实际物理字节数。它不能大于实际存储的值。 InputBufferIsEmpty() 只是返回是否 InputBuffer.Size > 0 。

begin
  if Client.IOHandler.InputBufferIsEmpty then
  begin
    Client.IOHandler.CheckForDataOnSource(1000);
    Client.IOHandler.CheckForDisconnect;
    if Client.IOHandler.InputBufferIsEmpty then Exit;
  end;
  Client.IOHandler.ReadBytes(rxBuf, Client.IOHandler.InputBuffer.Size);
end;

或者，无条件地使用 InputBuffer.ExtractToBytes() 提取 InputBuffer 中当前的内容，即使它碰巧是空的:

begin
  if Client.IOHandler.InputBufferIsEmpty then
  begin
    Client.IOHandler.CheckForDataOnSource(1000);
    Client.IOHandler.CheckForDisconnect;
    if Client.IOHandler.InputBufferIsEmpty then Exit;
  end;
  Client.IOHandler.InputBuffer.ExtractToBytes(rxBuf);
end;

或者，您可以将 -1 传递给 ReadBytes()，它告诉它返回 InputBuffer 中当前的任何内容(它将首先调用 IOHandler.ReadFromSource() 填充 InputBuffer，然后从中提取):

begin
  Client.IOHandler.ReadBytes(rxBuf, -1, False);
end;

更新:无论是否读取任何内容，您的循环都会调用break。那是你真正想要的吗？如果没有，那么您需要将最后一个 break 移动到 begin/end block 中，以便仅在调用 ExtractToBytes() 时才对其进行求值:

while GetTickDiff(start, Ticks) < MainForm.Timeout do
begin
  if Client.IOHandler.InputBufferIsEmpty then
  begin
    Client.IOHandler.CheckForDataOnSource(1000);
    if Not Client.IOHandler.InputBufferIsEmpty then
    begin
      Client.IOHandler.InputBuffer.ExtractToBytes(rxBuf);
      break;
    end;
  end
  else
  begin
    Client.IOHandler.InputBuffer.ExtractToBytes(rxBuf);
    break;
  end;
end;

在这种情况下，您可以稍微简化循环:

start := Ticks;
while Client.IOHandler.InputBufferIsEmpty do
begin
  if GetTickDiff(start, Ticks) >= MainForm.Timeout then Break;
  Client.IOHandler.CheckForDataOnSource(1000);
end;
Client.IOHandler.InputBuffer.ExtractToBytes(rxBuf);

在这种情况下，您可以完全摆脱循环并使用 Indy 自己的超时:

Client.IOHandler.CheckForDataOnSource(MainForm.Timeout);
Client.IOHandler.InputBuffer.ExtractToBytes(rxBuf);

或者:

Client.IOHandler.ReadTimeout := MainForm.Timeout;
Client.IOHandler.ReadBytes(rxBuf, -1, False);