Domino 9 und frühere Versionen > ND7: Entwicklung

Domino WebServices kleines Beispiel

<< < (2/3) > >>

eknori (retired):
Vielen Dank Christoph; die Zusammenstellung kommt genau zum richtigen Zeitpunkt ...

Christoph Arras:
Da ich mich mit WebServices (bereitstellen und konsumieren) unter 6.x befasse, hatte ich mich erst einmal im Internet umgesehen und eine Linksammlung angelegt. Daran wollte ich euch teilhaben lassen...  ;D

topsys:
Beschäftige mich auch gerade mit Webservices.
Die Links sind echt interessant.

Ich habe mal versucht einen einfach Webservice zu erstellen und ihn in mit dem Client aufzurufen (über MS Soap).
Funktioniert auch. Nun würde ich den ws-Aufruf gerne vom server über einen agent erledigen lassen.
scheint aber nicht zu klappen.
Beim debuggen habe ich festgestellt, das der agent keine verbindung zu soap bekommt.
ist das überhaupt möglich?!
Gibt es da evntl. noch andere Möglichkeiten mit dem Domino Server WS zu konsumieren?

flaite:
Es kann sein, dass das SOAP Objekt nicht auf dem Server installiert ist.
Kannst du bitte den Source Code posten und die Stelle, an der der Fehler auftritt.
Es gibt sehr viele weitere Möglichkeiten. Am einfachsten ist vermutlich die jrust Library, von denen dieser Mann spricht (http://www.nsftools.com/blog/blog-11-2005.htm#11-08-05). Das ist allerdings Java.

topsys:
- MS Soap ist auf dem Server installiert
- rufe ich auf dem Server mit dem Notes Client den Agent auf funktionierts.
- Stelle ich den agent auf periodisch alle 5 Minuten klappt es nicht
 Fehler tritt auf bei:
  Set Client =CreateObject("MSSOAP.SoapClient30")
 Fehlermeldung: "No Resume"

kann der Server überhaupt auf ms soap zugreifen?
habe ich irgenwas vergessen?


 hier das script des agents:

        Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim view As NotesView
   Dim entry As NotesViewEntry
   Dim unpDoc As NotesDocument
   Dim vc As NotesViewEntryCollection
   Dim wsUrl As String
   Dim Aufruf As String
   Dim ergebnis As String
   Dim status As String
   Set db = session.CurrentDatabase
   Set view = db.GetView("(UnprocessedDocs)")
   Set vc = view.AllEntries
   Set entry = vc.GetFirstEntry()

   Do While Not entry Is Nothing
      Set unpDoc = entry.Document
      Aufruf = unpDoc.Aufruf(0)
      wsUrl = unpDoc.wsURL(0)
      'Create a new MSSOAP client object      
      Dim client As Variant
      Set Client =CreateObject("MSSOAP.SoapClient30")
      Print "Soap"
      If Not Client Is Nothing Then
         Call Client.mssoapinit (wsUrl)
      Else
         Print "Fehler mit Soap"
      End If
      ' calling the SOAP function
      ergebnis = Client.GETHAUPTSTADT (Aufruf)
      
      If ergebnis <> "" Then
         Call unpDoc.ReplaceItemValue("ergebnis",ergebnis)
         status = "2"
      Else
         status = "3" ' 3 = Fehler
      End If
      Call unpDoc.ReplaceItemValue("status", status)
      
      Set entry = vc.GetNextEntry(entry)
        Loop

ich bin ratlos  :'(

tobi

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete