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:
00799032
Views:
38
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