HRESULT Value([in] BSTR Name, [in] BSTR Namespace, [out, retval] BSTR * val);
This returns the value of a particular attribute [as identified by its name and namespace URI]
The attribute value [as a string], or if the attribute does not exist on this element the error E_INVALIDARG is returned.
Option Explicit const SOAP_ENC = "http://schemas.xmlsoap.org/soap/encoding/" Implements ISoapDeSerializer Private Sub ISoapDeSerializer_Start(ByVal node As PocketSOAP.ISOAPNode, ByVal ElementName As String, ByVal Attributes As PocketSOAP.ISoapDeSerializerAttributes, ByVal ns As PocketSOAP.ISOAPNamespaces) If Not Attributes.Exists("arrayType", SOAP_ENC ) Then Err.Raise vbObjectError + 9876, , "Array is missing arrayType attribute!" End If dim arrType as string arrType = Attributes.Value("arrayType", SOAP_ENC ) CrackSoapArrayType arrType ... End Sub
Copyright © Simon Fell, 2000-2004. All rights reserved.