需要使用 TIdTelnet 与 telnet 服务器交互的示例/演示

Question

我尝试使用 Indy 10.5.5（随 Delphi 2010 一起提供）用于：

• 连接到 telnet 服务器
• 执行用户名/密码身份验证（获取对命令 shell 的访问权限）
• 执行命令并将结果数据返回到应用程序

，但没有成功，另外我我完全迷失在 Indy 内部的意大利面条逻辑中，现在不知道为什么它不起作用，也不知道我应该如何将字符串发送到服务器并获取结果。需要一些示例代码来研究。

---

问题的正式形式：我在哪里可以获得涵盖 TIdTelnet 组件的第 3 方贡献的演示？ （indyproject.org 演示网页没有）

Answer 1

Telnet 的主要问题是它不像大多数其他 Internet 协议那样利用命令/响应模型。任何一方都可以随时发送数据，并且每个方向的数据相互独立。这反映在 TIdTelnet 中，它运行一个内部读取线程来接收数据。因此，您不能像使用其他 Indy 组件那样在单个代码块中简单地连接、发送命令并等待响应。您必须编写命令，然后等待 OnDataAvailable 事件触发，然后解析数据以确定它实际上是什么（并准备好处理可能接收到部分数据的情况，因为这就是 TCP/IP 的工作原理）。

如果您要连接到实际实现命令/响应模型的服务器，那么您最好直接使用 TIdTCPClient 而不是 TIdTelnet （然后手动实现任何 Telnet 序列解码）如果服务器确实使用 Telnet，现在这种情况很少见，但并非不可能）。对于 Indy 11，我们可能会重构 TIdTelnet 的逻辑以支持非线程版本，但这尚未确定。

Answer 2

完成印地。
没有评论..只是一些旧代码:-)
telnet 不喜欢发送字符串命令。使用 sendch。

telnetdude.Host := 1.1.1.1;
try
telnetdude.connect;
except
on E: Exception do begin
E.CleanupInstance;
end; {except}
if telnetdude.Connected then begin
for i := 1 to length(StringToSend) do telnetdude.sendch(StringToSend[i]);
telnetdude.sendch(#13);
end;
end; {while}
end; {if}
if telnetdude.Connected then telnetdude.Disconnect;
end;

Answer 3

我希望这可以帮助任何寻找类似问题答案的人。

首先，这似乎是典型的命令/响应模型（如上所述，确实不适用）。

所以我只是让它适用于一些非常简单的应用程序（重新启动我的路由器）。

Johnny Lanewood 对上述代码的具体补充（也许还有一些澄清）
a) 你必须发送#13来确认命令
b) 我发送的每个命令/请求的响应都“挂起”，直到启用 ThreadedEvent。 （这是我的大问题）

c）OnDataAvailable 事件告诉您何时可以从 Telnet 服务器获得新数据 - 但是不能保证这些数据是什么 - 即它与您在命令行中获得的内容/什么都一样附加到之前的回复中。但这不是对您的命令的特定响应行 - 它是 telnet 服务器返回的任何内容（可能是欢迎信息、ASCII 绘图等）。

鉴于上面的 (c)，人们宁愿检查 OnDataAvailable 事件并解析数据（知道什么）你会期望的）。当输出停止时（即您需要为此构建一个机制），您可以解析数据并确定服务器是否准备好接受来自客户端的新内容。为了下面的代码的目的，我设置了一个读取超时，并且只使用了 Sleep(2000) - 无知地期望没有错误，并且服务器将在睡眠后准备好执行下一个命令。
我最大的绊脚石是 ThreadedEvent := True （参见上面的 b）

因此，我的工作解决方案（对于特定应用程序，对某些人来说可能很可怕）。

   lIDTelnet := TIdTelnet.Create(nil);
    try
      lIdTelnet.ReadTimeout := 30000;
      lIDTelnet.OnDataAvailable := TDummy.Response;
      lIDTelnet.OnStatus := TDummy.Status;
      lIdTelnet.ThreadedEvent := True;

      try
        lIDTelnet.Connect('192.168.0.1', 23);
        if not lIDTelnet.Connected then
          Raise Exception.Create('192.168.0.1 TELNET Connection Failed');

        Sleep(2000);

        lIdtelnet.SendString(cst_user + #13);
        Sleep(2000);

        lIdtelnet.SendString(cst_pass + #13);
        Sleep(2000);

        lIdtelnet.SendString(cst_reboot + #13);
        Sleep(2000);

        if lIDTelnet.Connected then
           lIDTelnet.Disconnect;
      except
        //Do some handling
      end;
  finally 
    FreeAndNil(lIdTelnet);
  end;

进而

class procedure TDummy.Response(Sender: TIdTelnet; const Buffer: TIdBytes);
begin
  Write(TDummy.ByteToString(Buffer));
end;

class function TDummy.ByteToString(
  const aBytes: TIdBytes): String;
var
  i : integer;
begin
  result := '';
  for i := 0 to Length(aBytes) -1 do
  begin
    result := result + Char(aBytes[i]);
  end;
end;