Asynchronous HttpWebRequest

[Michael]

Hi all..

I need to submit an asynchronous request for a credit card authorization. I
have an aspx page where the user confirms the transaction and clicks a
button to send the transaction to the authorization provider. When the
submit button is clicked, I hide the panel displaying the details and start
a client-side progress bar using a literal control. This has to be an async
call because if I start the request in the button click synchronously,
prerender doesn't get called until the request completes, so the progress
bar is never displayed. When the request completes, I need to redirect to a
page used to display the authorization code, etc.

I found an example of making an async request on MSDN and numerous other
similar examples on the web. However, none are web apps, which I found
curious. I was easy enough to incorporate the code into my web app - the
async request works fine and I get a proper response.

The problem is the redirect. It simply will not happen. Here is some
pertinent code.

Private Sub cmSubmit_Click( )
lbStatus.Text = "Processing Transaction. Please Wait..."
pnConfirm.Visib le = False
pnSubmit.Visibl e = True
startProcess.Te xt = "<script language='jscri pt'>startProces s();</script>"
'asp:literal
SendRequest()
End Sub

Private Sub SendRequest(ByV al PostData As String)
b = oEnc.ASCII.GetB ytes(PostData)
oReq = CType(WebReques t.Create(URL), HttpWebRequest)
oReq.Method = "POST"
oReq.ContentTyp e = "applicatio n/x-www-form-urlencoded"
oReq.ContentLen gth = PostData.Length
oState.Request = oReq
oStr = oReq.GetRequest Stream()
oStr.Write(b, 0, b.Length)
Dim r As IAsyncResult = CType(oReq.Begi nGetResponse(Ne w
AsyncCallback(A ddressOf RespCallback), oState), IAsyncResult)
End Sub

Public Sub RespCallback(By Val ar As IAsyncResult)
oState = CType(ar.AsyncS tate, RequestState)
oReq = oState.Request
oRes = CType(oReq.EndG etResponse(ar), HttpWebResponse )
oStr = oRes.GetRespons eStream
oState.Response Stream = oStr
Dim iarRead As IAsyncResult = oStr.BeginRead( oState.ReadBuff er, 0,
oState.BUFFER_S IZE, New AsyncCallback(A ddressOf ReadCallback), oState)
End Sub

Public Sub ReadCallback(By Val asyncResult As IAsyncResult)
oState = CType(asyncResu lt.AsyncState, RequestState)
oStr = oState.Response Stream
oRes = oState.Response
Dim read As Integer = oStr.EndRead(as yncResult)
If read > 0 Then
Dim c(oState.BUFFER _SIZE) As Char
Dim len As Integer = oState.StreamDe code.GetChars(o State.ReadBuffe r, 0,
read, c, 0)
Dim str As String = New String(c, 0, len)
oState.RequestD ata.Append(str)
Dim ar As IAsyncResult = oStr.BeginRead( oState.ReadBuff er, 0,
oState.BUFFER_S IZE, New AsyncCallback(A ddressOf ReadCallback), oState)
Else
oStr.Close()
oRes.Close()
If oState.RequestD ata.Length > 1 Then Response.Redire ct("status.aspx ")
'I've also tried server.transfer with the same results
End If
End Sub

I know this is possible; I see it every time I pay for anything online.

Thanks for any insight..

--
Michael White
Programmer/Analyst
Marion County, OR

[bruce barker]

your approach will not work with a web app. you are starting a async request
then returning the page contents to the browser. later on the request
completes, and makes the callback, but because the page request is
completed, the call can no longer send data to the broswer (its not
listening). you have too options:

1) put a delay on the page until the async calls finishes (or switch to a
sync call).

2) or do what those other web sites do, start the call and return. but the
page uses a refresh (meta or javascript) to poll for the call to finish.
when finaly finished - redirect/transfer to a page that displays the results
of the call.
-- bruce (sqlwork.com)

"Michael" <xxx.xxx.xxx> wrote in message
news:%2******** ********@TK2MSF TNGP14.phx.gbl. ..
| Hi all..
|
| I need to submit an asynchronous request for a credit card authorization.
I
| have an aspx page where the user confirms the transaction and clicks a
| button to send the transaction to the authorization provider. When the
| submit button is clicked, I hide the panel displaying the details and
start
| a client-side progress bar using a literal control. This has to be an
async
| call because if I start the request in the button click synchronously,
| prerender doesn't get called until the request completes, so the progress
| bar is never displayed. When the request completes, I need to redirect to
a
| page used to display the authorization code, etc.
|
| I found an example of making an async request on MSDN and numerous other
| similar examples on the web. However, none are web apps, which I found
| curious. I was easy enough to incorporate the code into my web app - the
| async request works fine and I get a proper response.
|
| The problem is the redirect. It simply will not happen. Here is some
| pertinent code.
|
| Private Sub cmSubmit_Click( )
| lbStatus.Text = "Processing Transaction. Please Wait..."
| pnConfirm.Visib le = False
| pnSubmit.Visibl e = True
| startProcess.Te xt = "<script
language='jscri pt'>startProces s();</script>"
| 'asp:literal
| SendRequest()
| End Sub
|
| Private Sub SendRequest(ByV al PostData As String)
| b = oEnc.ASCII.GetB ytes(PostData)
| oReq = CType(WebReques t.Create(URL), HttpWebRequest)
| oReq.Method = "POST"
| oReq.ContentTyp e = "applicatio n/x-www-form-urlencoded"
| oReq.ContentLen gth = PostData.Length
| oState.Request = oReq
| oStr = oReq.GetRequest Stream()
| oStr.Write(b, 0, b.Length)
| Dim r As IAsyncResult = CType(oReq.Begi nGetResponse(Ne w
| AsyncCallback(A ddressOf RespCallback), oState), IAsyncResult)
| End Sub
|
| Public Sub RespCallback(By Val ar As IAsyncResult)
| oState = CType(ar.AsyncS tate, RequestState)
| oReq = oState.Request
| oRes = CType(oReq.EndG etResponse(ar), HttpWebResponse )
| oStr = oRes.GetRespons eStream
| oState.Response Stream = oStr
| Dim iarRead As IAsyncResult = oStr.BeginRead( oState.ReadBuff er, 0,
| oState.BUFFER_S IZE, New AsyncCallback(A ddressOf ReadCallback), oState)
| End Sub
|
| Public Sub ReadCallback(By Val asyncResult As IAsyncResult)
| oState = CType(asyncResu lt.AsyncState, RequestState)
| oStr = oState.Response Stream
| oRes = oState.Response
| Dim read As Integer = oStr.EndRead(as yncResult)
| If read > 0 Then
| Dim c(oState.BUFFER _SIZE) As Char
| Dim len As Integer = oState.StreamDe code.GetChars(o State.ReadBuffe r,
0,
| read, c, 0)
| Dim str As String = New String(c, 0, len)
| oState.RequestD ata.Append(str)
| Dim ar As IAsyncResult = oStr.BeginRead( oState.ReadBuff er, 0,
| oState.BUFFER_S IZE, New AsyncCallback(A ddressOf ReadCallback), oState)
| Else
| oStr.Close()
| oRes.Close()
| If oState.RequestD ata.Length > 1 Then Response.Redire ct("status.aspx ")
| 'I've also tried server.transfer with the same results
| End If
| End Sub
|
| I know this is possible; I see it every time I pay for anything online.
|
| Thanks for any insight..
|
| --
| Michael White
| Programmer/Analyst
| Marion County, OR
|
|

[Michael]

Thanks for the reply bruce..

That's kinda what I expected after much thought into the event sequence, but
was just wondering if any more experienced that I with .NET knew any 'deep
dark secrets'.

Thanks again..
Michael

"bruce barker" <no***********@ safeco.com> wrote in message
news:e1******** ******@TK2MSFTN GP12.phx.gbl...

your approach will not work with a web app. you are starting a async request then returning the page contents to the browser. later on the request
completes, and makes the callback, but because the page request is
completed, the call can no longer send data to the broswer (its not
listening). you have too options:

1) put a delay on the page until the async calls finishes (or switch to a
sync call).

2) or do what those other web sites do, start the call and return. but the
page uses a refresh (meta or javascript) to poll for the call to finish.
when finaly finished - redirect/transfer to a page that displays the results of the call.
-- bruce (sqlwork.com)

"Michael" <xxx.xxx.xxx> wrote in message
news:%2******** ********@TK2MSF TNGP14.phx.gbl. ..
| Hi all..
|
| I need to submit an asynchronous request for a credit card authorization. I
| have an aspx page where the user confirms the transaction and clicks a
| button to send the transaction to the authorization provider. When the
| submit button is clicked, I hide the panel displaying the details and
start
| a client-side progress bar using a literal control. This has to be an
async
| call because if I start the request in the button click synchronously,
| prerender doesn't get called until the request completes, so the progress | bar is never displayed. When the request completes, I need to redirect to a
| page used to display the authorization code, etc.
|
| I found an example of making an async request on MSDN and numerous other
| similar examples on the web. However, none are web apps, which I found
| curious. I was easy enough to incorporate the code into my web app - the
| async request works fine and I get a proper response.
|
| The problem is the redirect. It simply will not happen. Here is some
| pertinent code.
|
| Private Sub cmSubmit_Click( )
| lbStatus.Text = "Processing Transaction. Please Wait..."
| pnConfirm.Visib le = False
| pnSubmit.Visibl e = True
| startProcess.Te xt = "<script
language='jscri pt'>startProces s();</script>"
| 'asp:literal
| SendRequest()
| End Sub
|
| Private Sub SendRequest(ByV al PostData As String)
| b = oEnc.ASCII.GetB ytes(PostData)
| oReq = CType(WebReques t.Create(URL), HttpWebRequest)
| oReq.Method = "POST"
| oReq.ContentTyp e = "applicatio n/x-www-form-urlencoded"
| oReq.ContentLen gth = PostData.Length
| oState.Request = oReq
| oStr = oReq.GetRequest Stream()
| oStr.Write(b, 0, b.Length)
| Dim r As IAsyncResult = CType(oReq.Begi nGetResponse(Ne w
| AsyncCallback(A ddressOf RespCallback), oState), IAsyncResult)
| End Sub
|
| Public Sub RespCallback(By Val ar As IAsyncResult)
| oState = CType(ar.AsyncS tate, RequestState)
| oReq = oState.Request
| oRes = CType(oReq.EndG etResponse(ar), HttpWebResponse )
| oStr = oRes.GetRespons eStream
| oState.Response Stream = oStr
| Dim iarRead As IAsyncResult = oStr.BeginRead( oState.ReadBuff er, 0,
| oState.BUFFER_S IZE, New AsyncCallback(A ddressOf ReadCallback), oState)
| End Sub
|
| Public Sub ReadCallback(By Val asyncResult As IAsyncResult)
| oState = CType(asyncResu lt.AsyncState, RequestState)
| oStr = oState.Response Stream
| oRes = oState.Response
| Dim read As Integer = oStr.EndRead(as yncResult)
| If read > 0 Then
| Dim c(oState.BUFFER _SIZE) As Char
| Dim len As Integer = oState.StreamDe code.GetChars(o State.ReadBuffe r,
0,
| read, c, 0)
| Dim str As String = New String(c, 0, len)
| oState.RequestD ata.Append(str)
| Dim ar As IAsyncResult = oStr.BeginRead( oState.ReadBuff er, 0,
| oState.BUFFER_S IZE, New AsyncCallback(A ddressOf ReadCallback), oState)
| Else
| oStr.Close()
| oRes.Close()
| If oState.RequestD ata.Length > 1 Then Response.Redire ct("status.aspx ")
| 'I've also tried server.transfer with the same results
| End If
| End Sub
|
| I know this is possible; I see it every time I pay for anything online.
|
| Thanks for any insight..
|
| --
| Michael White
| Programmer/Analyst
| Marion County, OR
|
|