vfp和webservice接口的报文数据交互

PUBLIC oSOAP  as Object
PUBLIC WebserviceUrl as String
oSOAP=Createobject("MSSOAP.soapclient30")  &&建立对象
WebserviceUrl="http://ws./WebServices/WS.asmx?wsdl"   &&改成自己要的URL

DIMENSION  Rs(1) as String
TRY  
oSOAP.MSSoapInit(WebserviceUrl,"WherWS","WherWSSoap",)
* MSSoapInit( )方法的语法格式如下：
*!*    oSoapClient.MSSoapInit(WSDLFile,ServiceName,Port,WSMLFile)
*!*    参数说明如下：
*!*    WSDLFile
*!*    字符型。该参数是WSDL文件的URL，用于描述由服务器提供的服务，或者是包含在WSDL文件中的一个字符串。如果该参数的第一个字符是“<”，表示该参数值是一个WSDL字符串；否则，表示该参数值是一个WSDL文件。
*!*    ServiceName
*!*    字符型。可选的。该参数是在WDSL文件中的服务。如果忽略该参数、或为NULL、或为空字符串（""），在初始化SoapClient30对象时，则使用在WSDL文件中指定的第一个服务。
*!*    Port
*!*    字符型。可选的。该参数是在WSDL文件的端口名称，用来包含在SOAP请求信息中的指定操作。如果忽略该参数、或为NULL、或为空字符串（""），在初始化SoapClient30对象时，则使用在WSDL文件中指定的第一个端口。
*!*    WSMLFile
*!*    字符型。可选的。该参数是WSML文件的URL，在使用自定义类型映射程序时，该参数是必须的。
*如何获得这些参数名称？使用浏览器或其他文本编辑器中打开所生成的WSDL文件，其中的service元素便是服务的名称，port元素是端口名称。

 recode=SPACE(500)

 Rs = oSoap.getRegion()

CATCH TO errExp
    IF errexp.errorno=1429 THEN
        MESSAGEBOX('错误号：'+LTRIM(STR(errexp.errorno)) + '  出错模块：' + ;
        errexp.PROCEDURE + '  出错行号：'+LTRIM(STR(errexp.lineno)) + ;
        '  错误的进一步描述：' + CHR(13) + ;
        '=====================================================================' + cHR(13) + ;
        +errexp.message , ;
        16,'提示：未成功连接互联网！')
    ENDIF
FINALLY
IF NOT EMPTY(rs) THEN
    thisform.grid1.RecordSource=''
    LOCAL ir as Integer
    CREATE CURSOR tmpP1( Col1  c(16) ,col2 c(10))
    FOR ir=1 TO ALEN(rs)
        INSERT INTO tmpP1( cc1,cc2 )  ;
            VALUES ( ... )
    ENDFOR
    SELECT tmpP1
    GO TOP
    thisform.grid1.RecordSourceType= 1
    thisform.grid1.RecordSource='tmpP1'
ENDIF
    RELEASE oSOAP
ENDTRY