Delphi中编制分布式多层应用系统服务资源浏览器.pdfVIP

Delphi中编制散布式多层应用系统服务资源阅读器.

Delphi中编制散布式多层应用系统服务资源阅读器

作者：陈立平本文选自：赛迪网2002年12月25日

本文详尽介绍了在Delphi7中怎样利用TSocketConnection控件设计开发一个通用的散布式

多层应用系统客户端协助开发工具——散布式多层应用系统服务资源阅读器。

在用Delphi开发散布式多层应用系统过程中，对于开发客户端程序的人员来说，认识散布

式多层架构应用服务器所供给的资源（如：服务名称、供给者名称等）是一项常常碰到的工

作。利用这些参数，客户端才能够正确地与服务器端程序连结并工作。

但是，在实质工作过程中，这些资源名称多数是以口头或E-Mail的方式，见告客户端开发

人员；而一旦这些资源名称被改或许此类名称在一个开发服务器上许多时，就会发生程序不

能与服务器正确连结的状况，或许造成服务名资源管理上的杂乱。

此外，客户端开发人员只有在开发出客户端程序以后，才能够与服务器端程序进行连结并进

行测试，没有先期通用的协助工具与服务器进行交互，无形中增添了通讯的开支，降低了开

发工作的效率。

那么，有没有好的实现方法能够做到自动列出指定服务器上的开发资源名称，并能够与之进

行动向地连结和交互呢？这就是笔者开发多层应用系统服务资源阅读器的原始初衷。

重点技术

对于散布式多层应用系统来说，客户端程序可经过DCOMConnection和SocketConnection

控件与服务器端程序进行连结，这里我们使用SocketConnection进行连结工作。由于，

SocketConnection控件不只能够经过IP地点来连结COM服务器，并且也能够主机名方式来连结

COM服务器。

对于散布式多层应用系统服务资源阅读器实现的重点技术以下：

1．怎样获得指定IP地点或主机名称上的服务资源名称列表

利用SocketConnection控件的GetServerList方法可获得服务器上的服务名称列表。详尽信息

见程序。

2．怎样获得指定IP地点计算机，指定服务资源名称的供给者名称列表

利用SocketConnection的GetServer.AS_GetProviderNames来获得供给者名称列表。详尽信息见

程序。

经过以上方法，我们能够获得指定IP地点计算机上的服务名称列表和供给者名称列表，客户端

就能够利用这些信息与服务器动向进行连结了。

程序详细实现

1．界面制作

1/8

Delphi中编制散布式多层应用系统服务资源阅读器.

在Delphi7中，制作以下列图所示的界面。

说明：SocketConnection控件与服务器连结主要需要三个参数：Address(IP地点)或Host（主

机名），端口号（默认是211，在服务器端可经过BorlandSocketServer(scktsrvr.exe)程序设置

监听的端口号），LoginPrompt（登录能否提示输入用户名和密码属性）。经过让用户输入的方式

，可提升程序的灵巧性。

2．程序实现中所用的公共函数和方法

//查验IP地点能否合法的函数

functionIsLegalIp(Str:string):Boolean;

var

I,K,DotCnt:Integer;

Num:string;

Arr:Array[1..4]ofstring;

begin

Result:=False;

DotCnt:=0;

//由0..9,.构成

ForI:=1toLength(Str)do

begin

ifNot(Str[I]in[0..9,.])t