By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
440,057 Members | 1,407 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 440,057 IT Pros & Developers. It's quick & easy.

Problem in WebServices

P: 75
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
Nov 18 '06 #1
Share this question for a faster answer!
Share on Google+

Post your reply

Sign in to post your reply or Sign up for a free account.