【转】 delphi －－－ 用Indy组件开发Socket应用程序

======================================================
注：本文源代码点此下载
======================================================

delphi 7中带有两套tcp socket组件:indy socket组件(idtcpclient和idtcpserver)和delphi原生的tcp socket组件(clientsocket和serversocket)。

但是,borland已宣称clientsocket和serversocket组件即将被废弃,建议用相应的indy组件来代替。因此,笔者使用了 indy。本文在对indy进行简要介绍的基础上,创建了一组简单的tcp socket数据传输应用来演示了indy的使用方法。

开放源代码的internet组件集——internet direct(indy)internetdirect(indy)是一组开放源代码的internet组件,涵盖了几乎所有流行的internet协议。indy用delphi编写,被包含在 delphi 6,kylix 1和c++ builder6及以上各个版本的borland开发环境中。indy曾经叫做winshoes(双关于winsock——windows的socket库),是由 chad z.hower领导的一群开发者构建的,可以从indy的站点www.nevrona.com/indy上找到更多的信息并下载其新版本。到笔者撰写本文时为 止,indy的最新稳定版是9.0.14,indy 10也进入了beta测试阶段。

delphi 7中所带的是indy 9。在其的组件面板上,一共安装有100多个indy组件。使用这些组件你可以开发基于各种协议的tcp客户和服务器应用程序,并处理相关的编码和安全问题。你可以通过前缀id来识别indy组件。

indy是阻塞式(blocking)的

当你使用winsock开发网络应用程序时,从socket中读取数据或者向socket写入数据都是异步发生的,这样就不会阻断程序中其它代码的执 行。在收到数据时,winsock会向应用程序发送相应的消息。这种访问方式被称作非阻塞式连接,它要求你对事件作出响应,设置状态机,并通常还需要一个 等待循环。

与通常的winsock编程方法不同的是,indy使用了阻塞式socket调用方式。阻塞式访问更像是文件存取。当你读取数据,或是写入数据时,读 取和写入函数将一直等到相应的操作完成后才返回。比如说,发起网络连接只需调用connect方法并等待它返回,如果该方法执行成功,在结束时就直接返 回,如果未能成功执行,则会抛出相应的异常。同文件访问不同的是,socket调用可能会需要更长的时间,因为要读写的数据可能不会立即就能准备好(在很 大程度上依赖于网络带宽)。

阻塞式socket并非恶魔(evil)

长期以来,阻塞式socket都遭到了毫无理由的攻击。其实阻塞式socket并非如通常所说的那样可怕。这还要从winsock的发展说起。

当socket被从unix移植到windows时,一个严重的问题立即就出现了。unix支持fork,客户程序和服务器都能够fork新的进程, 并启动这些进程,从而能够很方便地使用阻塞式socket。而windows3.x既不支持fork也不支持多线程,当使用阻塞式socket时,用户界面就会被“锁住”而无法响应用户输入。

为克服windows 3.x的这一缺陷,微软在winsock中加入了异步扩展,以使winsock不会“锁住”应用程序的主线程(也是唯一的线程)。然而,这需要了一种完全不同的编程方式。于是有些人为了掩饰这一弱点,就开始强烈地诽谤阻塞式socket。

当win32出现的时候,它能够很好地支持线程。但是既成的观念已经很难更改,并且说出去的话也无法收回,因此对阻塞式socket的诽谤继续存在着。

事实上,阻塞式socket仍然是unix实现socket的唯一方式,并且它工作得很好。

阻塞式socket的优点

归结起来,在windows上使用阻塞式socket开发应用程序具有如下优点:

编程简单——阻塞式socket应用程序很容易编写。所有的用户代码都写在同一个地方,并且顺序执行。

容易向unix移植——由于unix也使用阻塞式socket,编写可移植的代码就变得比较容易。indy就是利用这一点来实现其多平台支持而又单一源代码的设计。

很好地利用了线程技术——阻塞式socket是顺序执行的,其固有的封装特性使得它能够很容易地使用到线程中。

阻塞式socket的缺点

indy使用一个特殊的组件tidantifreeze来透明地解决客户程序用户界面“冻结”的问题。tidantifreeze在indy内部定时中断 对栈的调用,并在中断期间调用application.processmessages方法处理消息,而外部的indy调用继续保存阻塞状态,就好像 tidantifreeze对象不存在一样。你只要在程序中的任意地方添加一个tidantifreeze对象,就能在客户程序中利用到阻塞式 socket的所有优点而避开它的一些显著缺点。

indy使用了线程技术

阻塞式socekt通常都采用线程技术,indy也是如此。从最底层开始,indy的设计都是线程化的。因此用indy创建服务器和客户程序跟在unix下十分相似,并且delphi的快速开发环境和indy对winsock的良好封装使得应用程序创建更加容易。

indy服务器模型

一个典型的unix服务器有一个或多个监听进程,它们不停地监听进入的客户连接请求。对于每一个需要服务的客户,都fork一个新进程来处理该客户的所有事务。这样一个进程只处理一个客户连接,编程就变得十分容易。

indy服务器工作原理同unix服务器十分类似,只是windows不像unix那样支持fork,而是支持线程,因此indy服务器为每一个客户连接分配一个线程。

图1显示了indy服务器的工作原理。indy服务器组件创建一个同应用程序主线程分离的监听线程来监听客户连接请求,对于接受的每一个客户,都创建一个新的线程来为该客户提供服务,所有与这一客户相关的事务都由该线程来处理。

图1 indy服务器工作原理

使用组件tidthreadmgrpool,indy还支持线程池。 更多内容请看wlan组网----家庭专题专题,或 线程与indy客户程序

indy客户端组件并未使用线程。但是在一些高级的客户程序中,程序员可以在自定义的线程中使用indy客户端组件,以使用户界面更加友好。

简单的indy应用示例

下面将创建一个简单的tcp客户程序和一个简单的tcp服务器来演示indy的基本使用方法。客户程序使用tcp协议同服务器连接,并向服务器发送用 户所输入数据。服务器支持两条命令:data和quit。在data命令后跟随要发送的数据,并用空格将命令字data和数据分隔开。

表单布局

建立一个项目组,添加一个客户程序项目和一个服务器项目。客户程序和服务器程序的表单布局如同2和图3所示。客户程序表单上放置了 tidtcpclient组件,服务器程序表单上放置了tidtcpserver组件。为防止客户程序“冻结”,还在其表单上放置 tidantifreeze组件。

图2 简单的tcp客户程序表单

图3 简单的tcp服务器程序表单

客户程序和服务器程序的表单上都放置有tlistbox组件,用来显示通信记录。

客户程序代码

客户程序片断如代码列表1所示。

代码列表1

procedure tformmain.btnconnectclick(sender: tobject);

begin

idtcpclient.host := edthost.text;

idtcpclient.port := strtoint(edtport.text);

lblog.items.add('正在连接 ' + edthost.text + '...');

with idtcpclient do

begin

try

connect(5000);

try

lblog.items.add(readln());

btnconnect.enabled := false;

btnsend.enabled := true;

btndisconnect.enabled := true;

except

lblog.items.add('远程主机无响应!');

idtcpclient.disconnect();

end;//end try

except

lblog.items.add('无法建立到' + edthost.text + '的连接!');

end;//end try

end;//end with

end;

procedure tformmain.btnsendclick(sender: tobject);

begin

lblog.items.add('data ' + edtdata.text);

with idtcpclient do

begin

try

writeln('data ' + edtdata.text);

lblog.items.add(readln())

except

lblog.items.add('发送数据失败!');

idtcpclient.disconnect();

lblog.items.add('同主机 ' + edthost.text + ' 的连接已断开!');

btnconnect.enabled := true;

btnsend.enabled := false;

btndisconnect.enabled := false;

end;//end try

end;//end with

end;

procedure tformmain.btndisconnectclick(sender: tobject);

var

received: string;

begin

lblog.items.add('quit');

try

idtcpclient.writeln('quit');

finally

idtcpclient.disconnect();

lblog.items.add('同主机 ' + edthost.text + ' 的连接已断开!');

btnconnect.enabled := true;

btnsend.enabled := false;

btndisconnect.enabled := false;

end;//end try

end;

在“连接”按钮事件响应过程中,首先根据用户输入设置idtcpclient的主机和端口,并调用idtcpclient的connect方法向服务器发出连接请求。然后调用readln方法读取服务器应答数据。

在“发送”按钮事件响应过程中,调用writeln方法写data命令,向服务器发送数据。

在“断开”按钮事件响应过程中,向服务器发送quit命令,并调用disconnect方法断开连接。

服务器程序代码

服务器程序片断如代码列表2所示。

代码列表2

procedure tformmain.btnstartclick(sender: tobject);

begin

idtcpserver.defaultport := strtoint(edtport.text);

idtcpserver.active := true;

btnstart.enabled := false;

btnstop.enabled := true;

lblog.items.add('服务器已成功启动!');

end;

procedure tformmain.btnstopclick(sender: tobject);

begin

idtcpserver.active := false;

btnstart.enabled := true;

btnstop.enabled := false;

lblog.items.add('服务器已成功停止!');

end;

procedure tformmain.idtcpserverconnect(athread: tidpeerthread);

begin

lblog.items.add('来自主机 '

+ athread.connection.socket.binding.peerip

+ ' 的连接请求已被接纳!');

athread.connection.writeln('100: 欢迎连接到简单tcp服务器!');

end;

procedure tformmain.idtcpserverexecute(athread: tidpeerthread);

var

scommand: string;

begin

with athread.connection do

begin

scommand := readln();

flogentry := scommand + ' 来自于主机 '

+ athread.connection.socket.binding.peerip;

athread.synchronize(addlogentry);

if ansistartstext('data ', scommand) then

begin

freceived := rightstr(scommand, length(scommand)-5);

writeln('200: 数据接收成功!');

athread.synchronize(displaydata);

end

else if sametext(scommand, 'quit') then begin

flogentry := '断开同主机 '

+ athread.connection.socket.binding.peerip

+ ' 的连接!';

athread.synchronize(addlogentry);

disconnect;

end

else begin

writeln('500: 无法识别的命令!');

flogentry := '无法识别命令:' + scommand;

athread.synchronize(addlogentry);

end;//endif

end;

end;

procedure tformmain.displaydata();

begin

edtdata.text := freceived;

end;

procedure tformmain.addlogentry();

begin

lblog.items.add(flogentry);

end;

“启动”按钮设置idtcpserver 的active属性为true来启动服务器,“停止”按钮设置active属性为false来关闭服务器。

idtcpserverconnect方法作为idtcpserver 的oncorrect事件响应过程,向客户端发送欢迎信息。

oncorrect事件在一个客户连接请求被接受时发生,为该连接创建的线程athread被作为参数传递给idtcpserverconnect方法。

idtcpserverexecute方法是idtcpserver的onexecute事件响应过程。onexecute事件在tidpeerthread对象试图执行其run方法时发生。onexecute事件与通常 的事件有所不同,其响应过程是在某个线程上下文中执行的,参数athread就是调用它的线程。这一点很重要,它意味着可能有多个onexecute事件 响应过程被同时执行。在连接被断开或中断前,onexecute事件响应过程会被反复执行。

在idtcpserverexecute方法中,首先读入一条指令,然后对指令进行判别。如果是data指令,就解出数据并显示它。如果收到的是 quit指令,则断开连接。需要特别指出的是,由于idtcpserverexecute方法在某一线程上下文中执行,因此显示数据和添加事件记录都是将 相应的方法传递给synchronize调用来完成的。

运行程序

运行客户端和服务器程序,按如下流程进行操作:

1. 按服务器程序的“启动”按钮启动服务器;

2. 按客户程序的“连接”按钮,建立同服务器的连接;

3. 在客户程序的待发送数据编辑框中输入“hello, indy!”,并按“发送”按钮发送数据;

4. 按客户程序的“断开”按钮,断开同服务器的连接;

5. 按服务器程序的“停止”按钮停止服务器。

程序运行的结果如图4和图5所示。

图4 简单的tcp客户

图5 简单的tcp服务器

======================================================
在最后，我邀请大家参加新浪APP，就是新浪免费送大家的一个空间，支持PHP+MySql，免费二级域名，免费域名绑定 这个是我邀请的地址，您通过这个链接注册即为我的好友，并获赠云豆500个，价值5元哦！短网址是http://t.cn/SXOiLh我创建的小站每天访客已经达到2000+了，每天挂广告赚50+元哦，呵呵，饭钱不愁了，\(^o^)/