VB.NET Webservice Client - NOT to use SOAP Toolkit 3

[jimmyfishbean]

Hi,

I have a successful VB6 web service client that uses the SOAP Toolkit 3
to make calls to a web service written in ASP.Net (VB.Net). However,
due to Microsoft not recommending the use of SOAP Toolkit 3 on a
Windows 2003 server, I must scrap the use of the toolkit and look to
develop the client in VB.Net instead.

I have upgraded the VB6 application to VB.Net using the built-in
upgrade tool that comes with Visual Studio .Net 2003. The majority of
the code has been translated to .Net, but I am having trouble as the
SOAP Toolkit 3 code has also been translated to VB.Net.

I have successfully called the web service to return very simple
values, where I do not actually need to use objects such as:
WSDLReader30, SoapSerializer3 0, SoapReader30, SoapConnector30 that are
required in the VB6 application. Am I correct to assume this??

I would appreciate if someone could advise me on how I should tackle
translating the following VB6 function that uses SOAP Toolkit 3.

The VB6 function is as follows:

Private Function ExecuteSOAP(aOp eration() As String, xmlparams As
IXMLDOMNode, bErrorOnNoSOAP As Boolean) As SoapReader30

Dim WSDLReader As New WSDLReader30
Dim serializer As SoapSerializer3 0
Dim Reader As New SoapReader30
Dim Connector As New SoapConnector30
Dim ServiceEnumerat or As IEnumWSDLServic e, Service As IWSDLService
Dim Fetched As Long
Dim PortEnumerator As IEnumWSDLPorts, Port As IWSDLPort
Dim OperationEnumer ator As IEnumWSDLOperat ions, Operation As
IWSDLOperation
Dim MapperEnumerato r As IEnumSoapMapper s, Mapper As ISoapMapper
Dim bFoundOperation As Boolean
Dim XMLElement As IXMLDOMNode

'read WSDL file
On Error GoTo ErrorHandler

WSDLReader.Load gWSDL, ""

' Loop round the services
WSDLReader.GetS oapServices ServiceEnumerat or
ServiceEnumerat or.Next 1, Service, Fetched
Do While Fetched = 1 And bFoundOperation = False

' Loop round the ports
Service.GetSoap Ports PortEnumerator
PortEnumerator. Next 1, Port, Fetched
Do While Fetched = 1 And bFoundOperation = False

' find the operation
Port.GetSoapOpe rations OperationEnumer ator

' The Find method returns an error if it fails so trap it
and continue
Set Operation = Nothing
On Error Resume Next
OperationEnumer ator.Find aOperation(1), Operation
On Error GoTo ErrorHandler

If Not Operation Is Nothing Then
' prepare request
bFoundOperation = True
Set MapperEnumerato r =
Operation.Input Message.Message Parts

MapperEnumerato r.Next 1, Mapper, Fetched
Do While Fetched = 1
'See if this is a complex type. The SchemaNode
property is nothing if simple type
If Mapper.SchemaNo de Is Nothing Then
' simple type, just get the parameter from the
input xml file
If Not xmlparams.selec tSingleNode("//" &
Mapper.ElementN ame) Is Nothing Then
Mapper.ComValue =
xmlparams.selec tSingleNode("//" & Mapper.ElementN ame).Text
Else
Mapper.ComValue = ""
End If
Else
'complex type, use the whole node from the
input xml file
Mapper.ComValue = ""
If Not xmlparams.selec tSingleNode("//" &
Mapper.ElementN ame) Is Nothing Then
'Mapper.ComValu e =
xmlparams.selec tSingleNode("//" & Mapper.ElementN ame).xml
For Each XMLElement In
xmlparams.selec tSingleNode("//" & Mapper.ElementN ame).childNodes
Mapper.ComValue = Mapper.ComValue &
XMLElement.xml
Next
End If
End If
MapperEnumerato r.Next 1, Mapper, Fetched
Loop

End If

If bFoundOperation = False Then PortEnumerator. Next 1,
Port, Fetched
Loop

If bFoundOperation = False Then ServiceEnumerat or.Next 1,
Service, Fetched
Loop

If bFoundOperation = False Then
Set ExecuteSOAP = Nothing
Else
Set Connector = New HttpConnector30

strDebugPoint = "Connecting to port '" & Port.Address & "'"
Connector.Conne ctWSDL Port

Connector.Begin MessageWSDL Operation

Set serializer = New SoapSerializer3 0
serializer.Init Connector.Input Stream

serializer.Star tEnvelope
serializer.Star tBody

Operation.Save serializer, True

serializer.EndB ody

' Force the message to appear on the screen
DoEvents

serializer.EndE nvelope

Connector.EndMe ssage

Reader.Load Connector.Outpu tStream

Set ExecuteSOAP = Reader
End If
Exit Function
Many thanks.

Jimmy