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

Delphi中编制散布式多层应用系统服务资源阅读器 Delphi中编制散布式多层应用系统服务资源阅读器 PAGE / NUMPAGESPAGE / NUMPAGES 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． 界面制作 在 Delphi7 中，制作以下列图所示的界面。 说明： SocketConnection 控件与服务器连结主要需要三个参数： Address(IP 地点 )或 Host（主 机名），端口号（默认是 211，在服务器端可经过 Borland Socket Server(scktsrvr.exe) 程序设置 监听的端口号） ， LoginPrompt （登录能否提示输入用户名和密码属性） 。经过让用户输入的方式，可提升程序的灵巧性。 2．程序实现中所用的公共函数和方法 //查验 IP 地点能否合法的函数 function IsLegalIp(Str: string): Boolean; var I, K, DotCnt : Integer; Num: string; Arr: Array [1..4] of string; begin Result := False; DotCnt := 0; // 由 0..9, .构成 For I := 1 to Length(Str) do begin if Not (Str[I] in [0..9, .]) then Exit else if Str[I] = . then inc(DotCnt); end; 点分开符号数目应当 =3 if DotCnt 3 then Exit; For K := 1 to 3 do begin I := Pos(., Str); Num := Copy(Str, 1, I - 1); Delete(Str, 1, I); Arr[K] := Num; end; Arr[4] := Str; try DotCnt := 0; For I := 1 to 4 do begin K := StrToInt(Arr[I]); //每字节的值应介于 0~255 之间 if ((K = 0) and (K = 255)) then Inc(DotCnt); end; //四个