HRESULT ValueAs([in] BSTR Name, [in] BSTR Namespace, [in] BSTR XmlType, [in] BSTR TypeNamespace, [out, retval] VARIANT * value);
Extract the typed attribute value, getting it de-serialized to a COM value along the way.
the resulting de-serialized attrbiute value
Private Sub ISoapDeSerializer_Start( ByVal node As PocketSOAP.ISOAPNode, _
ByVal ElementName As String, _
ByVal Attributes As PocketSOAP.ISoapDeSerializerAttributes, _
ByVal ns As PocketSOAP.ISOAPNamespaces)
Set m_obj = CreateObject(m_comtype)
node.Value = m_obj
Dim a As ISoapDeSerializerAttributes2
Set a = Attributes
m_obj.name = a.ValueAs("Name", "", "string", "http://www.w3.org/2001/XMLSchema")
m_obj.Male = a.ValueAs("Male", "", "boolean", "http://www.w3.org/2001/XMLSchema")
End Sub
Copyright © Simon Fell, 2000-2004. All rights reserved.