HRESULT Start([in] ISOAPNode * node, [in] BSTR ElementName, [in] ISoapDeSerializerAttributes * Attributes, [in] ISOAPNamespaces * ns);
The de-serializer engine calls this to start de-serializing the current element into a COM value.
Throw an error to stop the de-serialization process, the error will be returned to the client.
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.