I try to get the response from a request to a web service in Sonic,
I can send the request and the webservice receive that request,
but I cant receive the response, I receive Response = nothing
I'm using vb.net 9, visual studio 2008. Please help me.
I think something missed....
Imports System.Web
Imports System.Web.Services
Imports GetSITMobileWS = MyApp.WebReference1
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
Dim Login As GetSITMobileWS.SOAIFPSITMobileService = New GetSITMobileWS.SOAIFPSITMobileService
Dim LoginRecID As New GetSITMobileWS.RECORD_IDType
Dim LoginFile As New GetSITMobileWS.FILEType
Dim LoginData As New GetSITMobileWS.DataType
Dim LoginSit As New GetSITMobileWS.SITMobileType
Dim LoginReqType As New GetSITMobileWS.LoginRequestType
Dim LoginReq As New GetSITMobileWS.LoginRequest
Dim LoginResp As New GetSITMobileWS.LoginResponse
'Initialization Structure
LoginReq.RECORD_ID = LoginRecID
LoginReq.RECORD_ID.FILE = LoginFile
LoginReq.RECORD_ID.Data = LoginData
LoginReq.RECORD_ID.Data.SITMobile = LoginSit
LoginReq.RECORD_ID.Data.SITMobile.LoginRequest = LoginReqType
LoginReq.RECORD_ID.Data.SITMobile.LoginRequest.User = "12345"
LoginReq.RECORD_ID.Data.SITMobile.LoginRequest.Password = "abcdf"
LoginReq.RECORD_ID.Data.SITMobile.LoginRequest.Tries = "1"
LoginResp = Login.SOAIFPSITMobileLogin(LoginReq)
strAssociate = LoginResp.RECORD_ID.Data.SITMobile.LoginResponse.Associate
strEmployeeNo = LoginResp.RECORD_ID.Data.SITMobile.LoginResponse.EmployeeNo
Catch ex As Exception
MsgBox("Error = " & ex.Message)
End Try
End Sub
End Class