例: NotesDOMXMLDeclNode class

次のエージェントは、XML 宣言ノードについて報告します。

Sub Initialize
  Dim db As NotesDatabase
  Dim session As NotesSession
  Dim inputStream As NotesStream
  Dim domParser As NotesDOMParser
  Dim xNode As NotesDOMXMLDeclNode
  
  On Error Goto errh
  Set session = New NotesSession
  Set db = session.CurrentDatabase
  Set inputStream = session.CreateStream
  inputStream.Open ( "c:¥dxl¥hello.xml")
  Set domParser=session.CreateDOMParser(inputStream)
  domParser.AddXMLDeclNode = True
  domParser.Process
  
  'display information about the XML declaration node
  Set xNode = domParser.Document.FirstChild
  Messagebox xNode.Encoding, ,"encoding"
  Messagebox xNode.Standalone, , "standalone"
  Messagebox xNode.Version, , "version"
results:
  Exit Sub
errh:
  Messagebox Cstr(Err)+":  "+Error+Chr(13), , "Error"
  Resume results
End Sub