how do I continue code while waiting for a response

[Adrian]

hi
I make the following call
xmlResponse = xws.SubmitXml(T ext, xmlRequest.Docu mentElement,
xmlFilter.Docum entElement)

It returns what I want but I would like to do a "do while loop" while I wait
for the response 2- 10 secs so I can place some graphic or some thing to
show its not locked up...

How would I change the call to do this?

thanks

[David Browne]

"Adrian" <Ad****@nospamh otmail.com.uk> wrote in message
news:db******** **@nwrdmz03.dmz .ncs.ea.ibs-infra.bt.com...

hi
I make the following call
xmlResponse = xws.SubmitXml(T ext, xmlRequest.Docu mentElement,
xmlFilter.Docum entElement)

It returns what I want but I would like to do a "do while loop" while I
wait for the response 2- 10 secs so I can place some graphic or some thing
to show its not locked up...

Ok. You need a Delegate.

A Delegate is an object that wraps a function call. Among the many uses of
Delegates, is that they can be invoked either Sync or Async.

Often when invoking a Delegate you use a callback function, but you don't
have to. You can just wait for it to complete while doing other work.

Here's how:

Create a Delegate Type matching the method signature of xws.SubmitXML.
Then create a new delegate instance, refering to xws.SubmitXML.
Then call BeginInvoke, Get an IAsyncResult, do whatever, use the WaitHandle
to "listen" for completion, then call EndInvoke.

Ok, that sounds hard, but it's really not. Here's a complete working
example:

Class XYZ
Public Function SumbitXml(ByVal Text As String, _
ByVal doc As Xml.XmlElement, _
ByVal filter As Xml.XmlElement) As String
'simulate long-running method
System.Threadin g.Thread.Sleep( TimeSpan.FromSe conds(10))
Return "<hello/>"
End Function
End Class
Module Module1
Private Delegate Function SubmitXmlDelega te(ByVal Text As String, _
ByVal doc As Xml.XmlElement,
_
ByVal filter As
Xml.XmlElement) As String

Sub Main()
Try
Dim xyz As New XYZ
Dim fp As New SubmitXmlDelega te(AddressOf xyz.SumbitXml)
Console.WriteLi ne("About to BeginInvoke")
Dim doc As Xml.XmlElement = Nothing
Dim filter As Xml.XmlElement = Nothing

'Start running funtion on a background thread. No need for a
callback function or state object.
Dim waitObject As IAsyncResult = fp.BeginInvoke( "", doc, filter,
Nothing, Nothing)

'Wait for it to complete
Do
Console.WriteLi ne("Waiting..." )
Loop While Not
waitObject.Asyn cWaitHandle.Wai tOne(TimeSpan.F romSeconds(1), False)

'Now we know execution is complete since WaitHandle.Wait One
returned True
Dim rv As String = fp.EndInvoke(wa itObject)

Console.WriteLi ne("Completed: " & rv)

Catch ex As Exception
Console.WriteLi ne(ex)

End Try

End Sub
End Module

[Adrian]

Absolutely incredible!!!!!

And working great.

WOW and thanks

"David Browne" <davidbaxterbro wne no potted me**@hotmail.co m> wrote in
message news:%2******** ********@tk2msf tngp13.phx.gbl. ..

"Adrian" <Ad****@nospamh otmail.com.uk> wrote in message
news:db******** **@nwrdmz03.dmz .ncs.ea.ibs-infra.bt.com...

hi
I make the following call
xmlResponse = xws.SubmitXml(T ext, xmlRequest.Docu mentElement,
xmlFilter.Docum entElement)

It returns what I want but I would like to do a "do while loop" while I
wait for the response 2- 10 secs so I can place some graphic or some
thing to show its not locked up...

Ok. You need a Delegate.

A Delegate is an object that wraps a function call. Among the many uses
of Delegates, is that they can be invoked either Sync or Async.

Often when invoking a Delegate you use a callback function, but you don't
have to. You can just wait for it to complete while doing other work.

Here's how:

Create a Delegate Type matching the method signature of xws.SubmitXML.
Then create a new delegate instance, refering to xws.SubmitXML.
Then call BeginInvoke, Get an IAsyncResult, do whatever, use the
WaitHandle to "listen" for completion, then call EndInvoke.

Ok, that sounds hard, but it's really not. Here's a complete working
example:

Class XYZ
Public Function SumbitXml(ByVal Text As String, _
ByVal doc As Xml.XmlElement, _
ByVal filter As Xml.XmlElement) As String
'simulate long-running method
System.Threadin g.Thread.Sleep( TimeSpan.FromSe conds(10))
Return "<hello/>"
End Function
End Class
Module Module1
Private Delegate Function SubmitXmlDelega te(ByVal Text As String, _
ByVal doc As
Xml.XmlElement, _
ByVal filter As
Xml.XmlElement) As String

Sub Main()
Try
Dim xyz As New XYZ
Dim fp As New SubmitXmlDelega te(AddressOf xyz.SumbitXml)
Console.WriteLi ne("About to BeginInvoke")
Dim doc As Xml.XmlElement = Nothing
Dim filter As Xml.XmlElement = Nothing

'Start running funtion on a background thread. No need for a
callback function or state object.
Dim waitObject As IAsyncResult = fp.BeginInvoke( "", doc,
filter, Nothing, Nothing)

'Wait for it to complete
Do
Console.WriteLi ne("Waiting..." )
Loop While Not
waitObject.Asyn cWaitHandle.Wai tOne(TimeSpan.F romSeconds(1), False)

'Now we know execution is complete since WaitHandle.Wait One
returned True
Dim rv As String = fp.EndInvoke(wa itObject)

Console.WriteLi ne("Completed: " & rv)

Catch ex As Exception
Console.WriteLi ne(ex)

End Try

End Sub
End Module