.net 2.0 asynchronous call did not work.

[kkao77]

Someone help me please.

I've tried to write an asynchronous method, but it didn't call my web
service, do I need to do something in my webservice project to make it
work?

or if there is something wrong with the code that I have below.
Thanks..

The following are my two methods where one is calling web service and
second one is the delegate for callback method when asynchronous call
completed.

what I found is that it never went to the second sub that I created
when asynchornous finishes. weird... :(

sub CallWS()
Dim service As New CLWebService.se rvice
service.Url = "http://localhost:2751/ws/Service.asmx"

'Add our callback function to the event handler
AddHandler service.GetCons ultantsComplete d, AddressOf
GetConsultantsC allBack

'Call the Web service asynchronously
service.GetCons ultantsAsync(#1/1/2005#, #1/5/2005#)

End Sub

Private Sub GetConsultantsC allBack(ByVal sender As Object, ByVal args
As CLWebService.Ge tConsultantsCom pletedEventArgs )
Dim consultants() As CLWebService.Co nsultant = args.Result

Dim i As Integer = 1
For Each con As CLWebService.Co nsultant In consultants
Console.WriteLi ne(i.ToString & ". " & con.Name.Trim & " "
& con.Email.Trim)
i = i + 1
Next

End sub

[olrt]

kkao77 a écrit :

Someone help me please.

I've tried to write an asynchronous method, but it didn't call my web
service, do I need to do something in my webservice project to make it
work?

or if there is something wrong with the code that I have below.
Thanks..

The following are my two methods where one is calling web service and
second one is the delegate for callback method when asynchronous call
completed.

what I found is that it never went to the second sub that I created
when asynchornous finishes. weird... :(

sub CallWS()
Dim service As New CLWebService.se rvice
service.Url = "http://localhost:2751/ws/Service.asmx"

'Add our callback function to the event handler
AddHandler service.GetCons ultantsComplete d, AddressOf
GetConsultantsC allBack

'Call the Web service asynchronously
service.GetCons ultantsAsync(#1/1/2005#, #1/5/2005#)

End Sub

Private Sub GetConsultantsC allBack(ByVal sender As Object, ByVal args
As CLWebService.Ge tConsultantsCom pletedEventArgs )
Dim consultants() As CLWebService.Co nsultant = args.Result

Dim i As Integer = 1
For Each con As CLWebService.Co nsultant In consultants
Console.WriteLi ne(i.ToString & ". " & con.Name.Trim & " "
& con.Email.Trim)
i = i + 1
Next

End sub

Hello,
At first I would check that calling synchronously the WebService works.
Did you check the the service.Url is correct ?