基于Delphi的WebService编写

Service端的写法

1.新建other,选择webservice,SOAP Server Application

2.在Intf里面写接口函数 XXX；


3.在Impl里面写实现但是要同样需要在public中定义 XXX，ctrl+shift+c可以快速生成实现 XXX；
3.1 XXX的Result:=_XXX


4.和数据库有交互的函数需要添加一个DataModule；
4.1DataModule中定义函数_XXX全局函数
4.2让DataModule在函数中动态生成，create(Application)修改为create(nil)


5.如上，Query放在DataModule中，实现写在 _XXX中


6.写好之后在Project选项里选择 Bulid All project


7.取出其中的 .dll文件，放在IIS网站指定目录中即可

Client端的写法

1.新建other,选择webservice,WSDL Importer

2.URL填写IIS访问Service函数的地址

3.在Unit1中引用IXXX1,然后调用GetIXXX1().[service中定义的函数]()