kochol
شنبه 17 اردیبهشت 1384, 01:22 صبح
با سلام
من یک وب سرویس ساختم برای امتحان ولی وقی یکی از متدهاشو از برنامه ای صدا می زنم error میده در فایلی که مربوط به کنترل متدهای وب سرویس است و در قسمتی که می خواهد نتیجه را برگرداند.
کد وب سرویس:
<WebMethod(Description:="Check UserName And Password")> _
Public Function getUsername(ByVal username As String, ByVal pass As String) As Boolean
con1.ConnectionString = System.Configuration.ConfigurationSettings.AppSett ings.GetValues(0).GetValue(0)
cmdCheckUid.Parameters(0).Value = username
Dim re As SqlClient.SqlDataReader
con1.Open()
re = cmdCheckUid.ExecuteReader
If re.Read Then
If pass = re(0) Then
Return True
Else
Return False
End If
Else
Return False
End If
re.Close()
con1.Close()
End Function
کد برنامه
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim serv1 As New KSChat.localhost1.Service1
Dim bl As Boolean = serv1.getUsername(txtUserName.ToString, txtPass.ToString)
End Sub
error
An unhandled exception of type 'System.Net.WebException' occurred in system.web.services.dll
Additional information: The request failed with HTTP status 401: Access Denied.
کدی که error دارد.
<System.Web.Services.Protocols.SoapDocumentMethodA ttribute("http://tempuri.org/keChat/Service1/getUsername", RequestNamespace:="http://tempuri.org/keChat/Service1", ResponseNamespace:="http://tempuri.org/keChat/Service1", Use:=System.Web.Services.Description.SoapBindingUs e.Literal, ParameterStyle:=System.Web.Services.Protocols.Soap ParameterStyle.Wrapped)> _
Public Function getUsername(ByVal username As String, ByVal pass As String) As Boolean
Dim results() As Object = Me.Invoke("getUsername", New Object() {username, pass})
Return CType(results(0),Boolean)
End Function
من یک وب سرویس ساختم برای امتحان ولی وقی یکی از متدهاشو از برنامه ای صدا می زنم error میده در فایلی که مربوط به کنترل متدهای وب سرویس است و در قسمتی که می خواهد نتیجه را برگرداند.
کد وب سرویس:
<WebMethod(Description:="Check UserName And Password")> _
Public Function getUsername(ByVal username As String, ByVal pass As String) As Boolean
con1.ConnectionString = System.Configuration.ConfigurationSettings.AppSett ings.GetValues(0).GetValue(0)
cmdCheckUid.Parameters(0).Value = username
Dim re As SqlClient.SqlDataReader
con1.Open()
re = cmdCheckUid.ExecuteReader
If re.Read Then
If pass = re(0) Then
Return True
Else
Return False
End If
Else
Return False
End If
re.Close()
con1.Close()
End Function
کد برنامه
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim serv1 As New KSChat.localhost1.Service1
Dim bl As Boolean = serv1.getUsername(txtUserName.ToString, txtPass.ToString)
End Sub
error
An unhandled exception of type 'System.Net.WebException' occurred in system.web.services.dll
Additional information: The request failed with HTTP status 401: Access Denied.
کدی که error دارد.
<System.Web.Services.Protocols.SoapDocumentMethodA ttribute("http://tempuri.org/keChat/Service1/getUsername", RequestNamespace:="http://tempuri.org/keChat/Service1", ResponseNamespace:="http://tempuri.org/keChat/Service1", Use:=System.Web.Services.Description.SoapBindingUs e.Literal, ParameterStyle:=System.Web.Services.Protocols.Soap ParameterStyle.Wrapped)> _
Public Function getUsername(ByVal username As String, ByVal pass As String) As Boolean
Dim results() As Object = Me.Invoke("getUsername", New Object() {username, pass})
Return CType(results(0),Boolean)
End Function