من یه وب سرویس دارم که روی پست من تست شده و هیچ مشکلی نداره. اما وقتی در بیسیک بهش اطلاعات میفرستم بهم این پیام رو میده:
No HTTP resource was found that matches the request URI
این هم کد ارسال به وب سرویس:
Sub submit_Click
If Name.Text = "" Or Mobile.Text = "" Or username.Text = "" Or password.Text = "" Then
Msgbox("اطلاعات خواسته شده را وارد نمایید","خطای ورود اطلاعات")
Else
GetData("registerservice","http://webservice.negarnameh.com/api/account/registeruser","&name="&Name.Text&"&mobile="&Mobile.Text&"&username="&username.Text&"&password="&password.Text,True,"در حال اتصال و دریافت اطلاعات از سرور")
End If
End Sub
Sub GetData(JobName As String,Link As String,Query As String,Progress As Boolean,ProgressText As String)
Dim job1 As HttpJob
job1.Initialize(JobName,Me)
job1.PostString(Link,Query)
If Progress = True Then
ProgressDialogShow2(ProgressText,False)
End If
End Sub
سوال
alirezafc 0
سلام دوستان
من یه وب سرویس دارم که روی پست من تست شده و هیچ مشکلی نداره. اما وقتی در بیسیک بهش اطلاعات میفرستم بهم این پیام رو میده:
No HTTP resource was found that matches the request URI
این هم کد ارسال به وب سرویس:
Sub submit_Click If Name.Text = "" Or Mobile.Text = "" Or username.Text = "" Or password.Text = "" Then Msgbox("اطلاعات خواسته شده را وارد نمایید","خطای ورود اطلاعات") Else GetData("registerservice","http://webservice.negarnameh.com/api/account/registeruser","&name="&Name.Text&"&mobile="&Mobile.Text&"&username="&username.Text&"&password="&password.Text,True,"در حال اتصال و دریافت اطلاعات از سرور") End If End Sub Sub GetData(JobName As String,Link As String,Query As String,Progress As Boolean,ProgressText As String) Dim job1 As HttpJob job1.Initialize(JobName,Me) job1.PostString(Link,Query) If Progress = True Then ProgressDialogShow2(ProgressText,False) End If End Sub
لینک ارسال
به اشتراک گذاری در سایت های دیگر
3 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.