Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Can anyone help with this?
Message
De
22/09/2005 17:06:04
Mike Sue-Ping
Cambridge, Ontario, Canada
 
 
À
22/09/2005 16:38:55
Information générale
Forum:
Visual FoxPro
Catégorie:
Web Services
Versions des environnements
Visual FoxPro:
VFP 9
OS:
Windows XP SP2
Divers
Thread ID:
01049412
Message ID:
01052196
Vues:
16
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
>
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform