Indy Tidcmdtcpserver阅读垃圾

Question

我正在实施一个非常简单的tidcmdtcpserver，用于从我们也写过的手机应用程序中接收数据。单元应用程序以简单的 Hello 命令开始，但是OnBeForeCommandHandler带有垃圾。

adata等于'SomerandomChars Hello'

随机字符是非ASCII。

我正在使用Delphi 2007与捆绑的Indy 10.1.5组件。我已经尝试过：

• 也许我的程序正在造成一些腐败，所以我做了一个非常简单的 一个只有一个表单和tidcmdtcpserver。相同的结果。
• Delphi 2007 Indy组件是否有货物？我切换到Delphi 10.3。同样的问题。
• 我的计算机是否以某种方式破坏了通信？我在其他Windows 10中运行了简单的程序，无论是物理和虚拟的。有同样的问题。
• 也许该单元格应用程序发送了错误的数据。尝试使用腻子直接发送命令。没有运气。
• 不同的端口？同样，

我搜索了这个问题，但没有找到一个页面。实际上，它们都声明运行tidcmdtcpserver顺利进行。

最奇怪的一点是，在五个或六个命令之后，数据读取不错。在每个事件中，随机字符与前一个炭都是不同的。踏入Indy代码后，我发现它即将读取第一个时间时，它已经在输入缓冲区中具有随机字符。不同的“命令”需要不同数量的周期才能开始阅读而无需垃圾。对于“ Hello”，八到九次（并非总是相同）。

是什么原因造成的？我刚刚开始使用：

IdCmdTCPServer1.Active := True;

它需要单独的线程吗？ Indy的帮助并不对此一言不发。从默认情况下没有更改属性。

这是简单应用程序的代码：

unit test;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdBaseComponent, IdComponent, IdCustomTCPServer, IdTCPServer,
  IdCmdTCPServer, IdCommandHandlers, IdContext, IdServerIOHandler,
  IdServerIOHandlerSocket, IdServerIOHandlerStack;

type
  TForm1 = class(TForm)
    cmdsMain: TIdCmdTCPServer;
    ioshMain: TIdServerIOHandlerStack;
    procedure FormShow(Sender: TObject);
    procedure cmdsMainCommandHandlers0Command(ASender: TIdCommand);
    procedure cmdsMainBeforeCommandHandler(ASender: TIdCmdTCPServer;
      var AData: string; AContext: TIdContext);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.cmdsMainBeforeCommandHandler(ASender: TIdCmdTCPServer;
  var AData: string; AContext: TIdContext);
begin
// here comes the garbagge
end;

procedure TForm1.cmdsMainCommandHandlers0Command(ASender: TIdCommand);
begin
//
end;

procedure TForm1.FormShow(Sender: TObject);
begin
cmdsMain.Active := True
end;

end.

object Form1: TForm1
  Left = 0
  Top = 0
  Caption = 'Form1'
  ClientHeight = 299
  ClientWidth = 635
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object cmdsMain: TIdCmdTCPServer
    Bindings = <
      item
        IP = '0.0.0.0'
        Port = 55
      end>
    DefaultPort = 55
    IOHandler = ioshMain
    CommandHandlers = <
      item
        CmdDelimiter = ' '
        Command = 'hello'
        Disconnect = False
        Name = 'TIdCommandHandler0'
        NormalReply.Code = '200'
        ParamDelimiter = ' '
        ParseParams = True
        Tag = 0
        OnCommand = cmdsMainCommandHandlers0Command
      end>
    ExceptionReply.Code = '500'
    ExceptionReply.Text.Strings = (
      'Unknown Internal Error')
    Greeting.Code = '200'
    Greeting.Text.Strings = (
      'Welcome')
    HelpReply.Code = '100'
    HelpReply.Text.Strings = (
      'Help follows')
    MaxConnectionReply.Code = '300'
    MaxConnectionReply.Text.Strings = (
      'Too many connections. Try again later.')
    ReplyTexts = <>
    ReplyUnknownCommand.Code = '400'
    ReplyUnknownCommand.Text.Strings = (
      'Unknown Command')
    OnBeforeCommandHandler = cmdsMainBeforeCommandHandler
    Left = 312
    Top = 152
  end
  object ioshMain: TIdServerIOHandlerStack
    Left = 376
    Top = 168
  end
end

Update ：我们修改了单元应用程序以将命令发送到Echo服务器：TCPBIN.com。回声被罚款。我们使用Putty将单元格绘制到同一家服务器上，以确保它正在生成任何垃圾。在这两种情况下，它都很好。

Answer 1

您可以通过多个Indy版本和多个服务器计算机重现问题的事实告诉我，问题根本不是服务器，而是客户端。例如，如果您在telnet模式下使用腻子而不是原始模式。