Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Does the UT web service work?
Message
From
04/08/2005 13:30:39
Mike Sue-Ping
Cambridge, Ontario, Canada
 
 
To
04/08/2005 13:04:28
General information
Forum:
Visual FoxPro
Category:
Web Services
Environment versions
Visual FoxPro:
VFP 9
Miscellaneous
Thread ID:
01038567
Message ID:
01038630
Views:
16
>>It sure is!
>
>Then, it is not related. If that method works, then, all the rest should work as well.
>
>This code should return 259 records as of now:
>
>
>loUniversalThread=Createobject("mssoap.soapclient30")
>loUniversalThread.mssoapinit("http://www.levelextreme.com/WebService/universalthread.asmx?WSDL")
>loUniversalThread.Login(lcUsername,lcPassword)
>lcXML=loUniversalThread.GetMessage(DATE(),5)
>XMLTOCURSOR(lcXML,'temp')
>
I can't get your code to work. It fails at the GetMessage(). Does the following work for you? It also fails at the GetMessage()
* Create the SOAP object
loUniversalThread=Createobject("mssoap.soapclient30")
loUniversalThread.mssoapinit("http://www.levelextreme.com/WebService/universalthread.asmx?WSDL")

lcUsername=INPUTBOX("Username:","Enter a Username")

IF !EMPTY(lcUsername)
    lcPassword=INPUTBOX("Password:","Enter a Password")
ENDIF

IF !EMPTY(lcUsername) AND !EMPTY(lcPassword)
    IF loUniversalThread.Login(lcUsername,lcPassword)
        lcXML=loUniversalThread.GetMessage(DATE(),5)
        XMLTOCURSOR(lcXML, "csrMsg")
        SELECT csrMsg
        BROWSE NORMAL
    ENDIF
ENDIF
Previous
Reply
Map
View

Click here to load this message in the networking platform