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等，而是需要用抓包工具看看键盘发送是的真是码值，将真实码值发送过去