Esempio in 4D
Ecco le istruzioni per usare un metodo WebService nel vostro programma 4d:
- Vai in ambiente Design, e scegli "Web Service Wizard" dal menu "Tools"
- Incolla nel campo URL questo indirizzo = http://www.nexusonline.it:8088/4DWSDL
- Fai clic sul pulsate Discover
- Scegli il metodo da usare (ad esempio Get_MyIpAddress)
- 4d crea un metodo con il prefisso "proxy_" (nell'esempio, proxy_Get_MyIpAddress)
- Aggiungi prima della chiamata CALL WEB SERVICE la seguente riga, con il vostro indirizzo email come nome utente:
AUTHENTICATE WEB SERVICE("mio_indirizzo_email";"")
- Ora puoi chiamare la procedura com un qualsiasi altro metodo.
Ecco lo scheletro di un codice generico:
C_TEXT($metodo_t)
C_TEXT($urlServer_t)
C_TEXT($soapAction_t)
C_TEXT($namespace_t)
C_TEXT($risultato)
$metodo_t:="Get_MyIpAddress" ´nome del metodo che mi serve
´le successive sono costanti...
$urlServer_t:="http://www.nexusonline.it:8088/4DSOAP/"
$soapAction_t:="Nexus_WebService#"
$namespace_t:="http://www.nexusonline.it/namespace/default"
AUTHENTICATE WEB SERVICE("nome@dominio.it";"")
CALL WEB SERVICE(urlServer_t;$soapAction_t+$metodo_t;$metodo_t;$namespace;Web Service Dynamic)
If (OK=1)
GET WEB SERVICE RESULT($risultato;"ip_address";*)
End if
