十分钟学会中间层之webservice

准备工作

安装MSSOAPToolkit3.0工具

VFP sp2 7423

1 新建VFP项目添下vfpwbs.prg

内容如下(我建议文件名同类名)

接收参数跟VFP过程一样的用LPARAMETERS 参数1,参数2

Define Class vfpwbs As Session OlePublic
      Procedure helloworld
           Return "helloworld"
      Endproc
Enddefine

2 编译成多线程dll

不要编译成EXE就好

3 打开MSSOAP工具 WSDL Generator

4 选择你编译好的COM

5 选择要发布的类

6 选择要发布的域名或IP. 如有端口与要填端口号. 后期要也是可以的

7 不用改动

8 发布文件在什么目录

9 IIS建站,如图示我的网站目录在E:\web\testwebservice文件

10 将8步生成的文件放于E:\web\testwebservice

可以将刚刚项目编译的 vfpwbs.dll 放到C盘,然后用regsvr32命令注册vfpwbs.dll

11 配置WSDL解析

处理程序映射->添加模块映射

12 测试是否架设成功

打开IE输入网址 http://192.168.0.99:6633/vfpwbs.WSDL,如图所示,架设成功

64位系统IIS 要设置充许运行32位程序

13 因为我们的端口不是80,是6633 ,打开生成的WSDL文件找到如下文字

将原来的location改为location='http://192.168.0.99:6633/vfpwbs.WSDL' 即可.

如更改域名\IP\端口都是改动这里

记住两个参数 service name与 port name

portname 有两个vfpwbsSoapPort,cowwbsSoapPort

14 VFP调用

oSOAP=Createobject("MSSOAP.soapclient30")

lcurl="http://192.168.0.99:6633/vfpwbs.wsdl"

&&第2参数是service name,第三参数是port name ,如果有两个port name 不可省略

oSOAP.MSSoapInit(lcURL,"vfpwbs","cowwbsSoapPort")

osoap.ConnectorProperty("EndPointURL")=lcurl

?osoap.helloworld()

至此发布完成