Web Service en 8.5

[AntiSal]

Bonjour à tous,

Je suis en train d'essayer de faire fonctionner un Web service sous la version 8.5 et j'ai quelques difficultés ><.

Pour l'instant j'ai visiblement un problème dans l'appel de mon WS. J'ai essayé avec agent + consommateur + fournisseur en LS puis en Java et j'ai toujours la même erreur à l'appel du service désiré :

Code : Tout sélectionner

Error 4746 on line 11 in function INITIALIZE: Service Web Wps1Class méthode GETSTRING erreur org.xml.sax.SAXException: Bad envelope tag:  script


Wps1Class est ma classe fournissant le web service
GETSTRING retourne simplement le string passé en paramètre

J'utilise les mécanisques du designer pour créer mes fournisseurs/consomateurs. Pour l'instant je fais des tests pour mettre en place un vrai WS, donc si vous avez une idée je suis preneur

Merci d'avance

[mike76]

Salut,

En LS c'était quoi ton message d'erreur car je n'ai jamais utilisé les webservices en JAVA

[AntiSal]

Salut,

C'est le message d'erreur du LS que j'ai mis ^^

En java c'est le même : "org.xml.sax.SAXException: Bad envelope tag: script" sauf que la syntaxe est différente.

[YoGi]

Je te déconseille vivement le LS pour les web services, il y a bien moins de types qui sont gérés.

Sinon tu peux poster tout ton code ?

[AntiSal]

Voilà mon code :

Fournisseur

Code : Tout sélectionner

%INCLUDE "lsxsd.lss"
Class Wps1Class
   
   Sub NEW
   End Sub
   
   Function GETSTRING(PARAM As String) As String
      GETSTRING = PARAM
   End Function
   
End Class


Utilisateur

Code : Tout sélectionner

%INCLUDE "lsxsd.lss"
Class Wps1Class As PortTypeBase
   
   Sub NEW
      Call Service.Initialize ("UrnDefaultNamespacewps1ClassService", _
      "wps1ClassService.Domino", "http://XXXXXXXXX/Arbfic.nsf/wsp1?OpenWebservice", _
      "Wps1Class")
      
   End Sub
   
   Function GETSTRING(PARAM As String) As String
      Let GETSTRING = Service.Invoke("GETSTRING", PARAM)
   End Function
   
End Class


Agent

Code : Tout sélectionner

Sub Initialize
   
   On Error Goto ErrorHandle
   
   Dim temp As String
   Dim ws As Wps1Class
   
   Call logEvent("DEBUT", SEVERITY_LOW, Nothing)
   
   Set ws = New Wps1Class
   temp = ws.getString("toto")
   Msgbox(temp)
   
   Call logEvent("FIN", SEVERITY_LOW, Nothing)
   
   Exit Sub
ErrorHandle:
   Call LogError()
   Exit Sub
End Sub

Voilà, rien de bien compliqué tout ca

Pour ce qui est de LS ou Java, Je suis plus à l'aise en LS et par contre assez novice en WS
J'ai créé ce code en suivant divers tutos que j'ai trouvé ici ou là :p