telnet相关操作与问题

最新推荐文章于 2020-11-22 19:49:12 发布

原创最新推荐文章于 2020-11-22 19:49:12 发布 · 533 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#delphi #telnet

delphi 专栏收录该内容

41 篇文章

订阅专栏

本文介绍了一个使用Delphi实现的Telnet客户端代码片段，主要包括连接状态更新、接收数据大小协商及发送键盘控制指令的方法。通过这些代码，可以了解如何处理Telnet连接过程中的各种事件。

procedure TDMSetWake.tl1Connected(Sender: TObject; StatusCode: Integer;
const Description: string);
begin
if 0 <> StatusCode then
begin
    FormMain.lblTelnetLinkStatus.Caption :=
      ('Telnet连接失败: ' + Description);
    FormMain.lblTelnetLinkStatus.Font.Color := clRed;
end
else
begin
    FormMain.lblTelnetLinkStatus.Caption := ('Telnet连接成功！' + Description);
    FormMain.lblTelnetLinkStatus.Font.Color := clGreen;
end;
end;

procedure TDMSetWake.tl1DataIn(Sender: TObject; Text: string);

var

echos:Tstringlist;
begin
echos.Add(Text);

FormMain.term1.WriteStr(Text);
end;

procedure TDMSetWake.tl1Disconnected(Sender: TObject; StatusCode: Integer;
const Description: string);
begin
    FormMain.lblTelnetLinkStatus.Caption :=
      ('Telnet断开连接！' + Description);
    FormMain.lblTelnetLinkStatus.Font.Color := clRed;
end;

==========================================================

关于telnet传输双方协商一次接收数据的多少代码

procedure TDMSetWake.tl1Do(Sender: TObject; OptionCode: Integer);
begin
tl1.WontOption := OptionCode;
end;

procedure TDMSetWake.tl1SubOption(Sender: TObject; SubOption: string);
begin
// tl1.DoSubOption := char(24) + char(0) + 'vt100';
tl1.DoSubOptionB := char(31) + char(0) + #80 + Char(0) + #40;
end;

=================================================================

**telnet发送键盘控制指令时，不是发送VK_UP等，而是需要用抓包工具看看键盘发送是的真是码值，将真实码值发送过去