Delphi编写soap服务器与客户端程序

1、1 / 6 Delphi编写soap 服务器与客户端程序使用三层结构开发客户机、服务器软件已成为c/s系统中的主流；下面是自己在开发系统中的一些体会；本文已delphi7（windows）或kylix3(linux9为环境描述：1、编写服务器程序首先，看看soap 服务器的建立，在delphi7中的新建栏目中，选择“ WebServices”如下图，选择“Soap Server Application”点击“ok”,开始选择创建服务程序的类型：ISAPI/NSAPI Dynamic Link Library 将生成一个.dll文件,可以用IIS 来进行发布；CGI Stand-alone ex

2、ecutable 将生成一个CGI 程序；注意：CGI程序一般比较2 / 6 占用内存Apache 1.x;Apache 2.x 可以用Apache 来发布；可以实现在不同平台上用行； Web App Debugger executable 用webappdbg.exe 运行的一个方便调试的程序；我们这里选取Web App Debugger executable ;主要是方便进行调试，但作为项目运行最好选取IIS（把编译好的程序dll 放在发布目录下；在iis 主目录配置选项下选取“脚本和可执行程序”，在浏览器输入相应的地址即可）或Apache 来作为soap 服务器的载体。接下来会提示是否创

3、建soap module ；我在这里选取了“是”；服务端程序的编写需注意对客户端并发访问的处理。将会生成：myTestIntf.pas 接口定义文件内容：3 / 6unit myTestIntf;interfaceuses InvokeRegistry, Types, XSBuiltIns;typeImyTest = interface(IInvokable'FA05E275-DF6F-4C8D-BBF6-3F946B187BB3'function Login(name:string;pwd:string:boolean;stdcall; /需要发布的方法end;impleme

4、ntationinitializationInvRegistry.RegisterInterface(TypeInfo(ImyTest;end.myTestImpl.pas 接口实现文件内容：unit myTestImpl;interfaceuses InvokeRegistry, Types, XSBuiltIns, myTestIntf;typeTmyTest = class(TInvokableClass, ImyTestpublicfunction Login(name:string;pwd:string:boolean;stdcall; end;implementation TmyT

5、est function TmyTest.Login(name, pwd: string: boolean; /自己定义的方法的实现代码begin4 / 6if (name='1' and (pwd='abc' thenresult:=trueelseresult:=false;end;initializationInvRegistry.RegisterInvokableClass(TmyTest;end.用delphi7带的webappdbg 或iis 启动发（1） 用webappdbg 做发布，点击delfault url 即可看到发布的接口；（2） 用ii

6、s 做发布，在浏览器中输入“http:/localhost/a/Project1.dll ”发布的地址；2、导出soap 接口的xml 文档点击浏览器中的“ImyTest”,把文件另存“ImyTest.xml ”即可。3、客户端程序的编写首先，在下图中把上面导出的xml 文件导入到你所用的客户端程序；5 / 6 （1）如果服务端的接口是一个方法：在客户端放入THTTPRIO 控件，选取其中wsdl的文件地址或URL 即可；在代码中调用接口的列子如下：if (HTTPRIO1 as ImyTest.Login('1','abc' then showmessage('true' else showmessage('false' （2）如果服务端的接口是一个数据模块：在客户端放入 TSoapConnection 控件；设置它的 URL 即