自己编制支持终端打印TELNET程序(1)

　　前言：在行业用户中，大多数基层计算机应用系统采用UNIX作OS，用支持RS232连接的终端做业务处理，打印也通过终端实现。

　　随着PC机拥有量的不断增加，通过网卡、HUB，就可把服务器与PC 机连接起来，然后在PC机上用TELNET登录上服务器，就可把PC机作终端用了。美中不足的是无法在PC机上实现终端打印，某些TELNET类软件，也只支持透明打印方式的一种指令，无法满足终端打印的要求。为了减少硬件的投入，提高现有设备的利用率，我们自己动手做了一个这样的软件，能使PC机完全代替终端使用，暂且称该软件为TELVT100，下面来一步一步实现它。

　　首先，考虑一下TELVT100要实现哪些功能：一、PC机与服务器的连接；二、能虚拟终端显示，目前，绝大部分UNIX上的应用系统支持VT100终端类型，因此，主要实现VT100终端类型的虚拟；三、把打印内容进行转换并送到与PC机相连的打印机上。

　　现在，分步骤对以上三部分说明，我们采用VB5.0作为开工具，由于程序条数较多，所以只列出与主要文字叙述相关的部分程序段。

　　‘变量的定义及初始化

　　Public Ztdi As Integer

　　Public IPAddR As String

　　Public RmtPtr as Integer

　　Public DaBulen as Long

　　......

　　Private Sub Form_Load() ‘初始化处理

　　Ztdi = Printer.Font.Size ‘打印字体大小

　　IPAddR = "32.145.24.1" ‘设置服务器的IP地址

　　RmtPtr = 0 ‘指令指针

　　DaBuLen = 0 ‘打印缓存大小

　　Winsock.Protocol = 0 ‘设定协议为TCP/IP

　　......

　　End Sub

　　一、 PC机与服务器的TELNET连接

　　要实现PC机与服务器的TELNET协议连接，必须先以TCP/IP协议连接PC机与服务器。给服务器端加网卡，并对网卡和TCP/IP协议进行设置，开放TELNET连接，设置端口地址为23。给PC机装上网卡，并配置网卡和TCP/IP协议。我们在PC机上编制相应的客户端程序，来实现TCP/IP连接。在这里主要用到VB中Winsock控件，下面了解一下它的有关性能。它提供了访问TCP/IP网络服务的方便途径,用它编写客户端应用程序，不必了解TCP/IP的细节，通过设置控件的属性并调用其方法就可连接到服务器上去，即把控件的RemoteHost属性设置为服务器的IP 地址，把RemotePort属性设置为服务器“侦听”的端口地址（上文提到的端口地址23），然后调用Connect方法实现与指定的IP地址服务器连接。建立连接后，服务器与PC机就可以互相收发数据。为了发送数据，要调用SendData方法。当客户端接收到数据时会发生 DataArrival 事件，在DataArrival事件内调用GetData方法就可获取数据。