Esempio Visual Basic 6 & Access
Ecco le istruzioni per usare un metodo WebService nel vostro programma Visual Basic 6.0 o Access:
- Installare Soap Toolkit 3.0, che può essere scaricato gratuitamente dal sito di Microsoft http://msdn.microsoft.com/
(andare alla pagina indicata e ricercare Soap Toolkit 3.0, scaricare l'installer del toolkit e seguire le instruzioni di installazione).
- Collegare la libreria Microsoft Soap Type Library 3.0 in Visual Basic o in Access.
Ecco lo scheletro di un codice generico:
´Istanziare un oggetto ClientSoap
Dim ClientSoap As MSSOAPLib30.SoapClient30
Set ClientSoap = New SoapClient30
´Inizializzare l'oggetto ClientSoap
Call ClientSoap.mssoapinit(par_WSDLFile, par_ServiceName, par_Port)
´Dove:
´par_WSDLFile = "http://www.nexusonline.it:8088/4DWSDL"
´par_ServiceName = "Nexus_WebService"
´par_Port = "Nexus_WebServicePort"
´Assegnare lo schema di autenticazione base della connessione Soap
ClientSoap.ConnectorProperty("WinHTTPAuthScheme") = 1
´Inizializzare la connessione Soap con il nome utente e la password
ClientSoap.ConnectorProperty("AuthUser") = par_UserName
ClientSoap.ConnectorProperty("AuthPassword") = par_UserPassword
´Chiamare il metodo che si desidera utilizzare
vBuffer = ClientSoap.MetodoSoap(par_Param1, par_Param2, ...)
Esempio di utilizzo del metodo Get_MyIpAddress
Dim ClientSoap As MSSOAPLib30.SoapClient30
Dim vBuffer As Variant
Call ClientSoap.mssoapinit("http://www.nexusonline.it:8088/4DWSDL", par_ServiceName:="Nexus_WebService", par_Port:="Nexus_WebServicePort")
ClientSoap.ConnectorProperty("WinHTTPAuthScheme") = 1
´Assegnare come nome utente la propria email
ClientSoap.ConnectorProperty("AuthUser") = "nome@dominio.it"
ClientSoap.ConnectorProperty("AuthPassword") = ""
vBuffer = ClientSoap.Get_MyIpAddress()
