Hi all,
I have a code that calls an webservices i have written the code on a button click
Private Sub Command1_Click()
Dim objSOAPClient As New MSSOAPLib30.SoapClient30
objSOAPClient.MSSoapInit "http://localhost/EmpImages/EmpImages.asmx?wsdl", "EmpImages"
Dim backSlashPos As Integer
Dim fileNameNoPath As String
backSlashPos = InStrRev(txtFileName.Text, "\")
If backSlashPos > 0 Then
fileNameNoPath = Mid(txtFileName.Text, backSlashPos + 1)
Else
fileNameNoPath = txtFileName.Text
End If
Dim btArr() As Byte
Open txtFileName.Text For Binary Access Read As #1
ReDim btArr(LOF(1))
Get #1, , btArr()
Close #1
MsgBox objSOAPClient.SaveImage(fileNameNoPath, btArr)
End Sub
even adding the ms soap type toolkit i am getting an compiler error as user defined type not defined on the references which i have highlighted
Dim objSOAPClient As New MSSOAPLib30.SoapClient30
pls help me out on this