Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Need assistance Getting Started with WS
Message
General information
Forum:
Visual FoxPro
Category:
Web Services
Miscellaneous
Thread ID:
00798695
Message ID:
00799059
Views:
35
This message has been marked as the solution to the initial question of the thread.
Steve,

Read the section 1.14 of this article.

http://msdn.microsoft.com/library/en-us/dnsoap/html/soap_faq.asp?frame=true#soap_faq_topic0113


hope this help.


Wan


>Wan,
>
>I am able to browse the WSDL file in IE, but it just shows a bunch of XML source code.
>
>Also - I am able to create the COM object from the command line via the following code:
>
> ******************************************************
> LOCAL x as showem2 web service
>
> LOCAL loWS
> loWS = NEWOBJECT("Wsclient",HOME()+"ffc\_webservices.vcx")
> loWs.cWSName = "showem2 web service"
> x = loWS.SetupClient ;
> ("http://STEVE-2778TFJXM/WebServices2VD/showem2.WSDL", ;
> "showem2", "showem2SoapPort")
>
> ? x.justshow()
> *******************************************************
>It is when the program encounters the last line that I get the error:
>
> "OLE error code 0x800a13be:Unknown COM status code."
>
>Justshow() is a method in the OLEPublic COM class as show below.
>
>*****************************************************
>*-- returns curdir() and number of JPEG files
>
>Define Class showem2 As Session OlePublic
>
> Name = "showem2"
>
> Procedure justshow
>
> howmany=Adir(afilArry,"*.jpg")
> If howmany <1
> fileNm="no"
> Else
> fileNm=Alltrim(Str(howmany))
> Endif
>
> X = "about " + Curdir() + " ... "
> Y = "There are " + fileNm + " JPEG files here."
> Return X + Y
>Endproc
>Enddefine
>*****************************************************
>
>Any suggestions?
>
>Thanks,
>
>-Steve
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform