Prepares a search results using given criteria in xml format.
| Visual Basic (declaration) |
|---|
Public Function Search( _ |
| C# (declaration) |
|---|
public XmlNode Search( |
Example| Visual Basic Example |
|---|
Sub Search_sample()
Const IRAuthenticationTicket as string="sid-xxxxxxxxxxxxxxx"
Const Keywords as string="apple and pears"
Dim IR_OBJ As InfoRouter.srv
Dim xmlsearchcriteriadoc As System.Xml.XmlDocument
Dim xmlcriteria As System.Xml.XmlElement
Dim xmlResponse As System.Xml.XmlElement
Try
xmlsearchcriteriadoc = New System.Xml.XmlDocument
xmlsearchcriteriadoc.LoadXml("<search/>")
xmlcriteria = xmlsearchcriteriadoc.CreateElement("ITEM")
xmlcriteria.SetAttribute("NAME", "SEARCHSCOPE")
xmlcriteria.SetAttribute("VALUE", "ONLINE")
xmlsearchcriteriadoc.DocumentElement.AppendChild(xmlcriteria)
xmlcriteria = xmlsearchcriteriadoc.CreateElement("ITEM")
xmlcriteria.SetAttribute("NAME", "KEYWORDS")
xmlcriteria.SetAttribute("VALUE", Keywords)
xmlsearchcriteriadoc.DocumentElement.AppendChild(xmlcriteria)
ClearOutputWindow()
Application.DoEvents()
Me.ActiveForm.Cursor = Cursors.WaitCursor
IR_OBJ = New InfoRouter.srv
IR_OBJ.Url = (txtSrvUrl.Text & "/srv.asmx")
xmlResponse = IR_OBJ.Search(IRAuthenticationTicket , _
xmlsearchcriteriadoc.OuterXml, _
1, True)
If xmlResponse.GetAttribute("success") = "true" Then
WriteOutputLine("The search prepared successfully.")
Else
WriteOutputLine("The search cannot be prepared.")
WriteOutputLine("server response:" & xmlResponse.GetAttribute("error"))
End If
xmlResponse = Nothing
Catch ex As Exception
WriteOutputLine("error:" & ex.Message)
Finally
IR_OBJ = Nothing
Me.ActiveForm.Cursor = Cursors.Default
End Try
End Sub
|