User944339287 posted
Hi all, I wanna rewrite code for posting data to an online payment provider's url.
The old code is working fine but the new code returned the following error.
An existing connection was forcibly closed by the remote host
Old Code (RemotePost.vb)
Imports System.Web
Imports System.Collections.Specialized
Imports System.Net
Partial Public Class RemotePost
Private inputValues As NameValueCollection
Public Sub Add(ByVal name As String, ByVal value As String)
inputValues.Add(name, value)
End Sub
Public Sub Post()
Dim context = HttpContext.Current
context.Response.Clear()
context.Response.Write("<html><head>")
context.Response.Write(String.Format("</head><body onload=""document.{0}.submit()"">", "ePayment"))
context.Response.Write(String.Format("<form name=""{0}"" method=""{1}"" action=""{2}"" >", "ePayment", "post", "URL given by Online Payment Provider"))
For i As Integer = 0 To inputValues.Keys.Count - 1
context.Response.Write(String.Format("<input name=""{0}"" type=""hidden"" value=""{1}"">", HttpUtility.HtmlEncode(inputValues.Keys(i)), HttpUtility.HtmlEncode(inputValues(inputValues.Keys(i)))))
Next
context.Response.Write("</form>")
context.Response.Write("</body></html>")
context.Response.[End]()
End Sub
End Class
New Code (WebRequestPost.vb)
Imports System
Imports System.IO
Imports System.Net
Imports System.Text
Imports System.Web
Imports System.Collections.Specialized
Partial Public Class WebRequestPost
Private inputValues As NameValueCollection
Dim payment As New DBpayment
Dim DT As New DataTable
Public Sub Add(ByVal name As String, ByVal value As String)
inputValues.Add(name, value)
End Sub
Public Sub Post()
' Create a request using a URL that can receive a post.
Dim request As WebRequest = WebRequest.Create("URL given by Payment Gateway Provider")
' Set the Method property of the request to POST.
request.Method = "POST"
' Create POST data and convert it to a byte array.
Dim postData As String = ""
For i As Integer = 0 To inputValues.Keys.Count - 1
postData += String.Format("""{0}"" value=""{1}""", HttpUtility.HtmlEncode(inputValues.Keys(i)), HttpUtility.HtmlEncode(inputValues(inputValues.Keys(i))))
Next
Dim byteArray As Byte() = Encoding.UTF8.GetBytes(postData)
' Set the ContentType property of the WebRequest.
request.ContentType = "application/x-www-form-urlencoded"
' Set the ContentLength property of the WebRequest.
request.ContentLength = byteArray.Length
' Get the request stream.
Dim dataStream As Stream = request.GetRequestStream()
' Write the data to the request stream.
dataStream.Write(byteArray, 0, byteArray.Length)
' Close the Stream object.
dataStream.Close()
' Get the response.
Dim response As WebResponse = request.GetResponse()
' Display the status.
Console.WriteLine(CType(response, HttpWebResponse).StatusDescription)
' Get the stream containing content returned by the server.
dataStream = response.GetResponseStream()
' Open the stream using a StreamReader for easy access.
Dim reader As New StreamReader(dataStream)
' Read the content.
Dim responseFromServer As String = reader.ReadToEnd()
' Display the content.
Console.WriteLine(responseFromServer)
reader.Close()
dataStream.Close()
response.Close()
End Sub
End Class
This is my payment function
Private Sub payment_submit
Dim TransactionType As String = "SALE"
Dim PymtMethod As String = "ANY"
Dim myPost As New WebRequestPost
myPost.Add("TransactionType", TransactionType)
myPost.Add("PymtMethod", PymtMethod)
myPost.Post()
End Sub
