鱼C论坛

 找回密码
 立即注册
查看: 1839|回复: 5

[技术交流] Delphi7做了一个简易的超级终端

[复制链接]
发表于 2020-1-18 14:49:41 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能^_^

您需要 登录 才可以下载或查看,没有账号?立即注册

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

超级终端.rar

186.67 KB, 下载次数: 9

想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复

使用道具 举报

发表于 2020-1-18 17:41:40 | 显示全部楼层
github地址???
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复 支持 反对

使用道具 举报

 楼主| 发表于 2020-1-18 21:43:42 | 显示全部楼层

没看明白你说的是什么,这个小程序主要目的是测试idtelnet组件的用法
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复 支持 反对

使用道具 举报

 楼主| 发表于 2020-1-18 21:45:22 | 显示全部楼层

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[i])   ;
  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.Connected  then
  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.
又改了下
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复 支持 反对

使用道具 举报

发表于 2020-1-19 16:40:46 | 显示全部楼层
可以开源到github上面
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复 支持 反对

使用道具 举报

发表于 2020-1-19 20:09:12 | 显示全部楼层
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Archiver|鱼C工作室 ( 粤ICP备18085999号-1 | 粤公网安备 44051102000585号)

GMT+8, 2024-11-22 02:21

Powered by Discuz! X3.4

© 2001-2023 Discuz! Team.

快速回复 返回顶部 返回列表