Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Can anyone help with this?
Message
From
22/09/2005 17:06:04
Mike Sue-Ping
Cambridge, Ontario, Canada
 
 
To
22/09/2005 16:38:55
General information
Forum:
Visual FoxPro
Category:
Web Services
Environment versions
Visual FoxPro:
VFP 9
OS:
Windows XP SP2
Miscellaneous
Thread ID:
01049412
Message ID:
01052196
Views:
15
Thanks for the suggestions Tracy. I'll give them a try tomorrow...it's 5:00pm :)

Mike

>Not sure but you can try something like the below 2 examples (replace the appropriate values of course):
>
>lcuser = ""          && replace with your username
>lcpassword = ""      && replace with your password
>lcsite = ""          && replacw with the url
>
>*-------------- Test Example 1
>loWScript = CreateObject("WScript.Shell")
>ln=loWScript.RegRead('HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable')
>loservice = CREATEOBJECT('mssoap.soapclient30')
>loservice.mssoapinit("http://www.levelextreme.com/WebService/universalthread.asmx?WSDL") && change to lcsite
>IF ln = 1
>   loService.ConnectorProperty.UseProxy = .t.
>ENDIF
>loservice.ConnectorProperty("AuthUser") = lcuser
>loservice.ConnectorProperty("AuthPassword") = lcpassword
>loservice.ConnectorProperty("WinHTTPAuthScheme") = 1
>lcXML=loservice.GetMessage(DATE(),5)
>RELEASE loservice
>
>*--------------Test Example 2
>loUniversalThread=Createobject("mssoap.soapclient30")
>loUniversalThread.mssoapinit("http://www.levelextreme.com/WebService/universalthread.asmx?WSDL") && change to lcsite
>loUniversalThread.Login(lcuser,lcPassword)
>lcXML=loUniversalThread.GetMessage(DATE(),5)
>RELEASE loUnivesalThread
>RETURN
>
Previous
Reply
Map
View

Click here to load this message in the networking platform