论坛 › Delphi交流 › Delphi7做了一个简易的超级终端

~大象无相~ 发表于 2020-1-18 14:49:41

Delphi7做了一个简易的超级终端

利用TIDTelnet组件做了一个简易的超级终端。indy9 只能用 sendch。目前有个问题一直不知如何解决：利用SendCh发送用户名后，不能等到返回Password：再输入密码。

AmosAlbert 发表于 2020-1-18 17:41:40

github地址？？？

~大象无相~ 发表于 2020-1-18 21:43:42

AmosAlbert 发表于 2020-1-18 17:41
github地址？？？

没看明白你说的是什么，这个小程序主要目的是测试idtelnet组件的用法

~大象无相~ 发表于 2020-1-18 21:45:22

AmosAlbert 发表于 2020-1-18 17:41
github地址？？？

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdTelnet;

type
TForm1 = class(TForm)
    mmo1: TMemo;
    btn1: TButton;
    idtlnt1: TIdTelnet;
    edt1: TEdit;
    lbl1: TLabel;
    edtIP: TEdit;
    lbl2: TLabel;
    lbl3: TLabel;
    edtport: TEdit;
    btn2: TButton;
    procedure btn1Click(Sender: TObject);
    procedure idtlnt1DataAvailable(Sender: TIdTelnet;
      const Buffer: String);
    procedure btn2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
    { Private declarations }
public
    { Public declarations }
end;

var
Form1: TForm1;
i,b:Integer ;
s:string ;
implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
begin
s:=Trim(edt1.Text );
for i:=1 to Length(s)   do
begin
    idtlnt1.SendCh(s)   ;
end;
idtlnt1.SendCh(#13)   ;
edt1.Text := '' ;

end;

procedure TForm1.idtlnt1DataAvailable(Sender: TIdTelnet;
const Buffer: String);
begin
mmo1.Lines.Add(Buffer)      ;
end;

procedure TForm1.btn2Click(Sender: TObject);
begin

idtlnt1.Host :=Trim(edtIP.Text ) ;
idtlnt1.Port := StrToInt( trim( edtport.Text ) );
if not idtlnt1.Connectedthen
idtlnt1.Connect(2000) ;
// idtlnt1.Connect(const atimeout:Integer = 2000) ;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if idtlnt1.Connected then
idtlnt1.Disconnect ;
end;

end.
又改了下

AmosAlbert 发表于 2020-1-19 16:40:46

可以开源到github上面

AmosAlbert 发表于 2020-1-19 20:09:12

{:10_256:}{:10_256:}{:10_256:}

查看完整版本: Delphi7做了一个简易的超级终端