' Responses to UPnPReq other types using parser. Parse the XML string passed in
Sub UPnPReqParser_EndElement(Uri As String, Name As String, Text As StringBuilder)
Dim sNewValue As String = Text.ToString
Try
Select Case Name
(Cases)
....
Case "CurrentTransportState"
(Some Code)
CallSubDelayed2(Me, "MP_StopAsync_Complete", sNewValue = "STOPPED")
Case "Actions"
(Some Code)
CallSubDelayed2(Me, "MP_GetUPnPCommands_Complete", sNewValue.Contains("Stop"))
(More Cases)
End Select
Catch
sErrorMsg = "TBCI App Error: " & CRLF & LastException
TMM.LogError ($"${sCodeName}:${sErrorMsg}"$)
End Try
End Sub