如何在Delphi TIdTCPServer中预览消息且不移出读取缓冲区？

刚好之前处理过类似的需求，在TIdTCPServer里要预览消息又不把它从读取缓冲区移除，其实Indy组件库已经提供了专门的方法来实现这个需求，不用自己手动操作缓冲区。下面给你详细讲两种常用场景的实现方式：

基于字节数的二进制/任意数据预览 #

如果你需要预览缓冲区中指定长度的内容（比如前N个字节），可以使用IOHandler.Peek()方法。这个方法会从输入缓冲区读取指定数量的字节，但不会移除这些字节，它们仍然会留在缓冲区中供后续的ReadXXX方法读取。

举个实际的代码示例，放在TIdTCPServer的OnExecute事件里：

procedure TForm1.IdTCPServer1Execute(AContext: TIdContext);
var
  PreviewBytes: TBytes;
  PreviewContent: string;
  ReadSize: Integer;
begin
  // 先检查缓冲区中是否有数据，避免空读
  if AContext.Connection.IOHandler.InputBuffer.Size = 0 then Exit;

  // 我们要预览最多50字节的内容（可以根据你的需求调整这个数值）
  ReadSize := Min(50, AContext.Connection.IOHandler.InputBuffer.Size);
  SetLength(PreviewBytes, ReadSize);

  // 执行Peek操作，读取数据但不移除
  AContext.Connection.IOHandler.Peek(PreviewBytes, 0, ReadSize);

  // 如果是文本数据，转成字符串（这里假设是UTF-8编码，根据实际协议调整）
  PreviewContent := TEncoding.UTF8.GetString(PreviewBytes);
  // 这里可以把预览内容输出到日志、界面等
  Memo1.Lines.Add('预览内容：' + PreviewContent);

  // 此时缓冲区里的数据完全没动，后续你可以正常调用ReadBytes、ReadString等方法读取
end;

基于分隔符的文本消息预览 #

如果你的协议是基于分隔符的（比如每行一条消息，用换行符分隔），那用IOHandler.PeekLn()会更方便。这个方法会读取到指定分隔符的完整内容，但同样不会把数据从缓冲区中移除。

示例代码如下：

procedure TForm1.IdTCPServer1Execute(AContext: TIdContext);
var
  PreviewLine: string;
begin
  // 先检查缓冲区中是否存在完整的一行（根据设置的LineBreak判断）
  if AContext.Connection.IOHandler.InputBuffer.IndexOf(AContext.Connection.IOHandler.LineBreak) = -1 then Exit;

  // 预览整行内容，不移除缓冲区数据
  PreviewLine := AContext.Connection.IOHandler.PeekLn;
  Memo1.Lines.Add('预览行消息：' + PreviewLine);

  // 之后如果你需要处理这条消息，直接调用ReadLn()即可，它会从缓冲区移除这行数据
  // var ActualLine := AContext.Connection.IOHandler.ReadLn;
end;

注意事项 #

• 不管用哪种Peek方法，都建议先检查缓冲区的状态（比如是否有足够的数据、是否存在完整的分隔符），避免出现异常。
• 文本数据的编码要和你的实际传输协议一致，比如ASCII、GBK等，不要硬编码成UTF-8。
• Peek系列方法是Indy原生支持的，完全安全可靠，不会破坏缓冲区的原有结构。

内容的提问来源于stack exchange，提问作者al nickels