Hi all,

This is very interesting to work with VB6.0. But the same thing it is very tedious work to implement the latest technology in VB6. I got very good experience in implementing the SOAP web service in VB6.0. Here I have given my sample application which is very useful to implement the webservice in your VB application.

Follow the steps to create the SOAP webservice VB application

• Create a sample VB Project which has a form. In that place one text box (text1) and one command button(cmdCallSoap).
• Go to Project References (by ->Project menu -> References)
• Select Microsoft Soap Type Library
• And also select Microsoft XML,v3.0 library

You need to install MS Soap Toolkit.
I have installed MS SOAP Toolkit 2.0

In the command click event, add the following code

Private Sub cmdCallSoap()
Dim pstrPhpURL As String 'This is your web URL name
Dim pStrFunction As String 'This is your web service name
Dim xmlstr As String 'Parse you parameter with XML string
On Error GoTo ErrH

Dim Serializer As SoapSerializer
Dim Reader As SoapReader
Dim Connector As SoapConnector
Dim dRtnStr As String
Dim i&

Set Connector = New HttpConnector
Connector.Property("EndPointURL") = pstrPhpURL
Connector.Connect

Connector.Property("SoapAction") = pStrFunction
Connector.BeginMessage

Set Serializer = New SoapSerializer
Serializer.Init Connector.InputStream

Serializer.startEnvelope , , "UTF-8"
Serializer.startBody
Serializer.startElement pStrFunction, "", "", ""
Serializer.writeString xmlstr
Serializer.endElement
Serializer.endBody
Serializer.endEnvelope

Connector.EndMessage

Set Reader = New SoapReader
Reader.Load Connector.OutputStream

If Not Reader.RPCResult Is Nothing Then
dRtnStr = Reader.RPCResult.Text
Else
dRtnStr = "Error"
End If
'The web service result will be stored in this variable
xmlstr = dRtnStr

text.text= xmlstr
End Sub


thanks

__________________
Karpagarajan. R
Necessity is the mother of invention