Sub Process_Globals
Private fx As JFX
Private MainForm As Form
Private XMLParser As SaxParser
End Sub
Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
XMLParser.Initialize
ParseSoapResult
MainForm.Close
End Sub
Sub ParseSoapResult
Dim soapresult As String = File.ReadString(File.DirApp, "soapresult.xml")
XMLParser.parse(StringToInputStream (soapresult), "Parser")
End Sub
Sub Parser_EndElement (Uri As String, Name As String, Text As StringBuilder)
Select Name
Case "string"
Log(Text.ToString)
End Select
End Sub
Sub StringToInputStream (s As String) As InputStream
Dim In As InputStream
Dim data() As Byte = s.GetBytes("UTF8")
In.InitializeFromBytesArray(data, 0, data.Length)
Return In
End Sub