Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Need Help !
Message
General information
Forum:
Visual FoxPro
Category:
Web Services
Title:
Miscellaneous
Thread ID:
00651704
Message ID:
00651714
Views:
21
Try this...

oSoapClient=Createobject("mssoap.soapclient")
oSoapClient.mssoapinit("http://PROCK/Foxws/FoxTools.WSDL")




>Hi Guys,
>
>I try to call a webservice to my machine with Vfp7 and MsSoap toolkit 2.0 and i always get a ole error code 0x800a13be Unknown COM status code.
>
>
>this is the code i used to call the service
>
>LOCAL x as FoxTools_Ws
>LOCAL loWS
>loWS = NEWOBJECT("Wsclient",HOME()+"ffc\_webservices.vcx")
>loWS.cWSName = "FoxTools_Ws"
>x = loWS.SetupClient("http://PROCK/Foxws/FoxTools.WSDL", "FoxTools", "FoxToolsSoapPort")
>? x.HelloWorld()
>
>
>The Web service is build with vfp7 and it look like generate well and the Wsdl file look's good i think. the security for the directory of the Dll : Everyone Full Control.
>
>This is the Web Service code
>
>
>DEFINE CLASS FoxTools AS Session OLEPUBLIC
>
>PROCEDURE Init
>
>ENDPROC
>
>PROCEDURE Destroy
>
>ENDPROC
>
>PROCEDURE Error(nError, cMethod, nLine)
>
>ENDPROC
>
>PROCEDURE HelloWorld() as String
> 	RETURN "HelloWorld"
>ENDPROC
>
>ENDDEFINE
>
>
>This is the Wsdl File Generated
>
><?xml version='1.0' encoding='UTF-8' ?>
> <!-- Generated 05/01/02 by Microsoft SOAP Toolkit WSDL File Generator, Version 1.01.707.0 -->
><definitions  name ='FoxTools'   targetNamespace = 'http://tempuri.org/wsdl/'
>	 xmlns:wsdlns='http://tempuri.org/wsdl/'
>	 xmlns:typens='http://tempuri.org/type'
>	 xmlns:soap='http://schemas.xmlsoap.org/wsdl/soap/'
>	 xmlns:xsd='http://www.w3.org/2001/XMLSchema'
>	 xmlns:stk='http://schemas.microsoft.com/soap-toolkit/wsdl-extension'
>	 xmlns='http://schemas.xmlsoap.org/wsdl/'>
>  <types>
>    <schema targetNamespace='http://tempuri.org/type'
>      xmlns='http://www.w3.org/2001/XMLSchema'
>      xmlns:SOAP-ENC='http://schemas.xmlsoap.org/soap/encoding/'
>      xmlns:wsdl='http://schemas.xmlsoap.org/wsdl/'
>      elementFormDefault='qualified'>
>    </schema>
>  </types>
>  <message name='FoxTools.HelloWorld'>
>  </message>
>  <message name='FoxTools.HelloWorldResponse'>
>    <part name='Result' type='xsd:string'/>
>  </message>
>  <portType name='FoxToolsSoapPort'>
>    <operation name='HelloWorld' parameterOrder=''>
>      <input message='wsdlns:FoxTools.HelloWorld' />
>      <output message='wsdlns:FoxTools.HelloWorldResponse' />
>    </operation>
>  </portType>
>  <binding name='FoxToolsSoapBinding' type='wsdlns:FoxToolsSoapPort' >
>    <stk:binding preferredEncoding='UTF-8'/>
>    <soap:binding style='rpc' transport='http://schemas.xmlsoap.org/soap/http' />
>    <operation name='HelloWorld' >
>      <soap:operation soapAction='http://tempuri.org/action/FoxTools.HelloWorld' />
>      <input>
>        <soap:body use='encoded' namespace='http://tempuri.org/message/'
>		  encodingStyle='http://schemas.xmlsoap.org/soap/encoding/' />
>      </input>
>      <output>
>        <soap:body use='encoded' namespace='http://tempuri.org/message/'
>		  encodingStyle='http://schemas.xmlsoap.org/soap/encoding/' />
>      </output>
>    </operation>
>  </binding>
>  <service name='FoxTools' >
>    <port name='FoxToolsSoapPort' binding='wsdlns:FoxToolsSoapBinding' >
>      <soap:address location='http://PROCK/Foxws/FoxTools.WSDL' />
>    </port>
>  </service>
></definitions>
>
>
>
>I will very apreciate any idea
>Thank's in advance...
>Rock
If we exchange an apple, we both get an apple.
But if we exchange an idea, we both get 2 ideas, cool...


Gérald Santerre
Independant programmer - internet or intranet stuff - always looking for contracts big or small :)
http://www.siteintranet.qc.ca
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform