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.