Der Code ist eigentlich janz kleen ;) :
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Set session = New NotesSession
Set db = session.CurrentDatabase
Set doc = db.GetDocumentByURL("http://testserver/cgi-bin/test.cgi?bla=1&blub=2")
Print "Body : "+doc.GetItemValue("Body")(0)
Der Agent wird aus einer Datenbank gestartet. Das alles soll bzw. läuft auf dem Server ab so das User nichts wirklich mitbekommt ;).
was mich eben wundert ist das ich nur ganz ganz ganz wenig angezeigt bekomme :(
Na da würde ich doch mal den HTTP-Status abfragen, ob der Server überhaupt alles zurückliefert:
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim session As New NotesSession
Dim webDB As NotesDatabase
Dim html As NotesDocument
Set webDB = session.getDatabase("","perweb.nsf")
Set html = webDB.GetDocumentByURL("http://www.leyrer.priv.at/martin/")
If( html.HTTPStatus(0) <> "200" ) Then
' Fehler vom Server zureuckbekommen
Else
' Alles OK! Weitermachen!
End If
Der Code ist eigentlich janz kleen ;) :
Wieso. Das sind 5 Zeilen!!!!
Wie manchmal ein bischen Randbemerkung:
Bei meiner derzeitigen J2ee/Spring-Framework-Forschungsprojekt-Programmierung hab ich jetzt die Regel eingeführt, dass ich mir bei >8 Zeilen pro Methode Gedanken mache, es zu kürzen bzw. auf mehrere Methoden zu verteilen.
Bin ein Anhänger von kurzen Code-Einheiten.
Second Martin: Teile uns bitte mit, welcher http-code vom Server zurückgeliefert wird. Das ist wirklich interessant und evtl. sind da issues versteckt.
aber besser mit #
print "httpStatus sent back by server=" & html.httpStatus(0)