468,301 Members | 1,468 Online
Bytes | Developer Community
New Post

Home Posts Topics Members FAQ

Post your question to a community of 468,301 developers. It's quick & easy.

Problem in WebServices

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
0 802

Post your reply

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

Similar topics

5 posts views Thread by David++ | last post: by
3 posts views Thread by Prozon | last post: by
4 posts views Thread by pepcag | last post: by
1 post views Thread by Mike | last post: by
5 posts views Thread by Dany C. | last post: by
reply views Thread by Wijnand Kroes | last post: by
reply views Thread by NPC403 | last post: by
By using this site, you agree to our Privacy Policy and Terms of Use.