Sub Class_Globals
Private parser As SaxParser
Type XmlElement (Name As String, Children As List, Text As String, Attributes As Map)
Private elements As List
Private InputSource As JavaObject
End Sub
Public Sub Initialize
parser.Initialize
Dim StringReader As JavaObject
StringReader.InitializeNewInstance("java.io.StringReader",Array(""))
InputSource.InitializeNewInstance("org.xml.sax.InputSource",Array(StringReader))
Dim R As Reflector
R.Target = parser
Dim ParserJO As JavaObject = R.GetField("sp")
Dim ER As Object = ParserJO.CreateEvent("org.xml.sax.EntityResolver","ResolveEntity",Null)
ParserJO.RunMethodJO("getXMLReader",Null).RunMethod("setEntityResolver",Array(ER))
End Sub
Public Sub ResolveEntity_Event (MethodName As String, Args() As Object) As Object
Return InputSource
End Sub