The following sections describe how to use the various operations that the API provides. Any code snippets provided are in Visual Basic. To be able to use the predefined constants and receive tool tips, a reference to the ActiveX control must be added to the Visual Basic project. See sampleVBNonXML for a sample demonstrating the use of the non-XML ActiveX control.
The methods in the non-XML API that have the same name as those in the XML API operate in the same way as their XML counterparts. The only methods documented here are the initialization and data manipulation methods.
Before using the API, the ActiveX control must be created and
initialized. This is done by using the Initialize
method and setting the Tamino XML Server URL.
... Dim TamNonXml As TaminoNonXml ... Set TamNonXml = CreateObject("TaminoNonXml.TaminoNonXmlCtrl1") If TamNonXml.Initialize = 0 Then Call MsgBox("TaminoNonXml initialize failed!", vbExclamation) ' exit app End If TamNonXml.csDatabaseURL = "http://localhost/tamino/mydb" ...
Use SetNonXmlWithFilename
to insert non-XML
documents and GetNonXml
to retrieve non-XML documents.
The relative URLs used in the methods are combined with the base URL to
generate the absolute URL used to specify the document being
inserted/retrieved.
The following example inserts a non-XML document:
... relURL = "BIN/BIN/xyz.doc" ' relative URL of insert document filename = "C:\TEMP\xyz.doc" ' file to read for insert contentType = "application/msword" ' MIME content type of document to insert Set doc = TamNonXml.SetNonXmlWithFilename(relUrl, filename, contentType) If TamNonXml.GetErrorStatus(errtxt) <> 0 Then MsgBox("ERROR: " & errtxt) Else MsgBox("OK: " & doc.xml) End If ...
The following example retrieves a non-XML document:
... relURL = "BIN/BIN/xyz.doc" ' relative URL of retrieve document filename = "C:\TEMP\xyz.doc" ' file to write for retrieve Set doc = TamNonXml.GetNonXml(relUrl, filename) If TamNonXml.GetErrorStatus(errtxt) <> 0 Then MsgBox("ERROR: " & errtxt) Else MsgBox("OK: " & doc.xml) End If ...