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.