No funciona llamada asíncrona
Publicado por Carlos (2 intervenciones) el 21/10/2003 00:23:11
Hola, tengo la siguiente llamada asíncrona que no logro que me de resultado, ¿alguien podría hecharle un ojo pera que me indique en que estoy mal?, gracias de antemano
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim ServicioX As New localhost.Service1
Dim ProcAs As New AsyncCallback(AddressOf ProcedimientoAs)
Try
ServicioX.BeginObtenerDatos(TextBox1.Text, ProcAs, ServicioX)
DataGrid1.DataBind()
Catch ex As Exception
MsgBox("Se ha producido un error durante el consumo del web service")
End Try
End Sub
Public Sub ProcedimientoAs(ByVal RefServ As IAsyncResult)
Dim ServicioX As localhost.Service1
ServicioX = RefServ.AsyncState
DataGrid1.DataSource = CType(ServicioX.EndObtenerDatos(RefServ), DataSet)
End Sub
Cabe mencionar que la llamada síncona, funciona perfectamente.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim ServicioX As New localhost.Service1
Dim ProcAs As New AsyncCallback(AddressOf ProcedimientoAs)
Try
ServicioX.BeginObtenerDatos(TextBox1.Text, ProcAs, ServicioX)
DataGrid1.DataBind()
Catch ex As Exception
MsgBox("Se ha producido un error durante el consumo del web service")
End Try
End Sub
Public Sub ProcedimientoAs(ByVal RefServ As IAsyncResult)
Dim ServicioX As localhost.Service1
ServicioX = RefServ.AsyncState
DataGrid1.DataSource = CType(ServicioX.EndObtenerDatos(RefServ), DataSet)
End Sub
Cabe mencionar que la llamada síncona, funciona perfectamente.
Valora esta pregunta
0