Here's the code i'm using: Sub GenerateDocuments() Dim PWWS As New localhost.ProjectWizardWS() Dim cb As AsyncCallback cb = New AsyncCallback(AddressOf Me.DocumentsCallback) Dim ar As IAsyncResult = PWWS.BeginGenerarDocumentos(Proyecto, Tamano, Tipo, cb, PWWS)
End Sub Sub DocumentsCallback(ByVal ar As IAsyncResult) Dim PWWS As localhost.ProjectWizardWS = ar.AsyncState Result = PWWS.EndGenerarDocumentos(ar) Try If ar.IsCompleted = True Then txtResult.Text = Result End If Catch ex As Exception txtResult.Text = ex.Message
End Try End Sub txtResult is not updated when the Web service returns the value.
noelgarcia
Member
10 Points
2 Posts
Async Web Service
Aug 26, 2003 04:08 PM|LINK
noelgarcia
Member
10 Points
2 Posts
Re: Async Web Service
Aug 26, 2003 08:12 PM|LINK