Das Notes Forum

Domino 9 und frühere Versionen => ND8: Entwicklung => Thema gestartet von: MLoy am 05.10.10 - 17:01:06

Titel: Encoding WebService
Beitrag von: MLoy am 05.10.10 - 17:01:06

Hi Leute,

weiß jemand wo ich die CodePage umstellen kann mit der ein WebService Consumer einen WebService konsumiert?

Ich verwende in einem String-Tag ein <![CDATA[Inhalt]]>
Leider kommt nur ein

&lt;![CDATA[Inhalt]]&gt;

an. Ich vermute zumindest das, das mit der Codepage helfen könnte.

Hatte das Problem schon mal wer?

Gruß
Marcus

Titel: Re: Encoding WebService
Beitrag von: m3 am 05.10.10 - 17:20:17

Zeig mal den entsprechenden Code her. Da hats was.

Titel: Re: Encoding WebService
Beitrag von: MLoy am 05.10.10 - 19:55:19

eigentlich was ganz einfaches.

%INCLUDE "lsxsd.lss"
Class CLSEMAIL As XSD_ANYTYPE
   
   Public FROM As String
   Public SUBJECT As String
   Public WHEN As String
   Public DIRECTION As String
   Public TO As String
   Public ID As String
   
   Sub NEW
   End Sub
   
End Class

Class CLSADDRESSHOLDER As XSD_ANYTYPE
   
   Public HOLDER() As CLSADDRESS
   
   Sub NEW
   End Sub
   
End Class

Class CLSEMAILBODY As XSD_ANYTYPE
   
   Public EMAILBODY As String
   
   Sub NEW
   End Sub
   
End Class

Class CLSADDRESS As XSD_ANYTYPE
   
   Public COMPANY As String
   Public STREET As String
   Public ZIP As String
   Public CITY As String
   Public COUNTRY As String
   Public PHONE As String
   Public CELLPHONE As String
   Public FAX As String
   Public EMAIL As String
   Public FIRSTNAME As String
   Public LASTNAME As String
   Public TITLE As String
   Public FULLNAME As String
   Public DIVISION As String
   Public JOBTITLE As String
   Public CUSTNO As String
   Public UNID As String
   Public FORM As String
   
   Sub NEW
   End Sub
   
End Class

Class CLSDETAILS As XSD_ANYTYPE
   
   Public EMAILHOLDER As CLSEMAILHOLDER
   
   Sub NEW
   End Sub
   
End Class

Class CLSEMAILHOLDER As XSD_ANYTYPE
   
   Public EMAIL() As CLSEMAIL
   
   Sub NEW
   End Sub
   
End Class

Class DHWebService As PortTypeBase
   
   Sub NEW
      Call Service.Initialize ("UrnDefaultNamespaceDHWebService", _
      "DHWebService.DHWebService", "http://mlotest:81/dhdemo/dhwebservices.nsf/wsDH?OpenWebService", _
      "DHWebService")
      
   End Sub
   
   Function SEARCH(SEARCHSTRING As String, PIN As String) As CLSADDRESSHOLDER
      Set SEARCH = Service.Invoke("SEARCH", SEARCHSTRING, PIN)
   End Function
   
   Function GETDETAILS(ADRID As String, PIN As String) As CLSDETAILS
      Set GETDETAILS = Service.Invoke("GETDETAILS", ADRID, PIN)
   End Function
   
   Function GETEMAILBODY(EMAILID As String, PIN As String) As CLSEMAILBODY
      Set GETEMAILBODY = Service.Invoke("GETEMAILBODY", EMAILID, PIN)
   End Function
   
End Class

Titel: Re: Encoding WebService
Beitrag von: m3 am 06.10.10 - 08:39:26

Ich würde eher mal drauf tippen, dass Dir das Webservice den String schon so schickt, das schaut sehr nach "ich verhindere so XSS Attacken" aus.

Mach mal den Call "händisch" mit SoapUI (http://sourceforge.net/projects/soapui/), da ist Notes nicht beteiligt und es wird sich vermutlich genauso verhalten.

Titel: Re: Encoding WebService
Beitrag von: MLoy am 06.10.10 - 09:47:52

Wenn ich den WebService direkt mit SOAPUI aufrufe ist alles bestens.

Das Problem ist, das es an der Stelle an der der eigentliche WebService aufgerufen wird, die Zeichen "<" und ">" schon ersetzt wurden
Ich hab mal ein TraceTool dazwischengeschaltet.