Nexus 4D Web Services Server EsempioVB6_Access



Esempio Visual Basic 6 & Access

Ecco le istruzioni per usare un metodo WebService nel vostro programma Visual Basic 6.0 o Access:

  1. 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).
  2. 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()


Sito on line realizzato da Nexus srl - Milano - Per problemi o info scrivi a Amministratore - Pagine Servite 4583390