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.