文件名称：TELNET协议客户端实现-lte系统级模拟仿真器说明书
文件大小：2.67MB
文件格式：PDF
更新时间：2024-06-23 12:02:45
Delphi 网络 高级编程
6.5 TELNET协议客户端实现 6.5.1 TELNET协议简介 TELNET 协议是一种通用的、8bit 定向通信手段，其基本功能是通过网络提供远程登录 或虚拟终端能力。 一般情况下，TELNET协议使用 23号端口提供服务。 在 TELNET协议中，客户端程序和服务端程序必须进行协商沟通之后才可以开始正常的 信息交流。在客户端程序和服务程序之间成功连接之后，服务程序将首先发出信息，进入 TELNET 协议的协商过程。客户程序与服务程序之间通过协议规定的结构化数据流进行相互 沟通协商。结构化数据流中的命令符都是 8bit的 ASCII字符，而且命令之间没有任何间隔。 协商过程完毕之后，服务程序和客户端程序进入信息交互流程。如果是 telnet到 Unix主机， 一般服务程序会发送服务器本身的版本信息和登录信息。 6.5.2 一个简单的 TELNET客户端程序 真正的 TELNET协议是非常复杂的，除了一开始的信息协商之外，还定义了大批的转意 符。这里的程序仅仅是实现了对简单的信息通信功能。而且不支持非打印字符的传递。使用 的是 ClientSocket组件的支持。程序的工程文件参见光盘目录 Ch6\TELNEt。 程序的窗口类和 uses字段的内容如下，由于程序中使用了一些Winsock的常量，因此包 含了Winsock单元，具体代码如下： uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ScktComp, ComCtrls,Winsock; type TForm1 = class(TForm) ClientSocket1: TClientSocket; StatusBar1: TStatusBar; Memo1: TMemo; Edit5: TEdit; //发送给 telnet服务器的信息 btnSend: TButton; GroupBox1: TGroupBox; Label1: TLabel; Label2: TLabel; Edit1: TEdit; //telnet服务器地址 Edit2: TEdit; //telnet端口 btnConnect: TButton; btnDisconnect: TButton; procedure FormCreate(Sender: TObject); procedure btnConnectClick(Sender: TObject); procedure ClientSocket1Connect(Sender: TObject; Socket: TCustomWinSocket); procedure btnDisconnectClick(Sender: TObject);