VB.NET to Corona

kakula · September 24, 2018, 3:11pm

hi guys,

i have a function written in VB.NET … this function calls a payment gateway … it is working perfectly

i want to run the same code using corona … but i’m not sure how to do it exactly

this is the VB.NET code … all you need is a windows form and a button inside the form … it will run smoothly

Imports System.Net Imports System.Text Imports System.IO Imports System.Web Public Class Form1 &nbsp; &nbsp; Private Sub Button1\_Click(sender As Object, e As EventArgs) Handles Button1.Click &nbsp; &nbsp; &nbsp; &nbsp; Dim responseData &nbsp; &nbsp; &nbsp; &nbsp; responseData = Request()("result")("description") &nbsp; &nbsp; &nbsp; &nbsp; MsgBox(responseData) &nbsp; &nbsp; End Sub &nbsp; &nbsp; Public Function Request() As Dictionary(Of String, Object) &nbsp; &nbsp; &nbsp; &nbsp; Dim url As String = "https://test.oppwa.com/v1/checkouts" &nbsp; &nbsp; &nbsp; &nbsp; Dim data As String = "" + &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; "authentication.userId=8a8294174d0595bb014d05d829e701d1" + &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; "&authentication.password=9TnJPc2n9h" + &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; "&authentication.entityId=8a8294174d0595bb014d05d82e5b01d2" + &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; "&amount=92.00" + &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; "&currency=EUR" + &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; "&paymentType=DB" &nbsp; &nbsp; &nbsp; &nbsp; Dim req As WebRequest = WebRequest.Create(url) &nbsp; &nbsp; &nbsp; &nbsp; req.Method = "POST" &nbsp; &nbsp; &nbsp; &nbsp; req.ContentType = "application/x-www-form-urlencoded" &nbsp; &nbsp; &nbsp; &nbsp; Dim byteArray As Byte() = Encoding.UTF8.GetBytes(data) &nbsp; &nbsp; &nbsp; &nbsp; req.ContentLength = byteArray.Length &nbsp; &nbsp; &nbsp; &nbsp; Dim dataStream As Stream = req.GetRequestStream() &nbsp; &nbsp; &nbsp; &nbsp; dataStream.Write(byteArray, 0, byteArray.Length) &nbsp; &nbsp; &nbsp; &nbsp; dataStream.Close() &nbsp; &nbsp; &nbsp; &nbsp; Dim res As WebResponse = req.GetResponse() &nbsp; &nbsp; &nbsp; &nbsp; Dim resStream = res.GetResponseStream() &nbsp; &nbsp; &nbsp; &nbsp; Dim reader As New StreamReader(resStream) &nbsp; &nbsp; &nbsp; &nbsp; Dim response As String = reader.ReadToEnd() &nbsp; &nbsp; &nbsp; &nbsp; reader.Close() &nbsp; &nbsp; &nbsp; &nbsp; resStream.Close() &nbsp; &nbsp; &nbsp; &nbsp; res.Close() &nbsp; &nbsp; &nbsp; &nbsp; Dim jss As New System.Web.Script.Serialization.JavaScriptSerializer() &nbsp; &nbsp; &nbsp; &nbsp; Dim dict As Dictionary(Of String, Object) = jss.Deserialize(Of Dictionary(Of String, Object))(response) &nbsp; &nbsp; &nbsp; &nbsp; Return dict &nbsp; &nbsp; End Function End Class

this is the code in lua but still not complete and not working … i’m not sure what is the equivalent to bytes array and where to put data variable in body or where …etc.

local headers = {} headers["accept"] = "application/json"; headers["Content-Type"] = "application/x-www-form-urlencoded"; headers["Accept-Language"] = "en-US"; local data1="\n".."authentication.userId=8a8294174d0595bb014d05d829e701d1".."\n".."&authentication.password=9TnJPc2n9h".."\n".."&authentication.entityId=8a8294174d0595bb014d05d82e5b01d2".."\n".."&amount=92.00".."\n".."&currency=EUR".."\n".."&paymentType=DB" local function networkListener( event ) -- local function that connects to webservice and get next available prize, for this game, for current Prize\_Val\_ID Reached which is between 1 and X... &nbsp; &nbsp; if ( event.isError ) or event.response==nil then &nbsp; &nbsp; &nbsp;&nbsp; &nbsp; &nbsp; else &nbsp; &nbsp; &nbsp; print(event.response) &nbsp; end&nbsp; end local body = "" &nbsp; &nbsp;&nbsp; local params = {} params.headers = headers params.body = body network.request( "https://test.oppwa.com/v1/checkouts", "POST", networkListener, params )

rob · September 24, 2018, 6:39pm

I don’t know much about vb.net, but when I see:

 Dim data As String = "" + "authentication.userId=8a8294174d0595bb014d05d829e701d1" + "&authentication.password=9TnJPc2n9h" + "&authentication.entityId=8a8294174d0595bb014d05d82e5b01d2" + "&amount=92.00" + "&currency=EUR" + "&paymentType=DB"

I see one long line of HTML key-value pairs. You’re inserting a bunch of newlines that I don’t believe your need. Try changing:

local data1="\n".."authentication.userId=8a8294174d0595bb014d05d829e701d1".."\n".."&authentication.password=9TnJPc2n9h".."\n".."&authentication.entityId=8a8294174d0595bb014d05d82e5b01d2".."\n".."&amount=92.00".."\n".."&currency=EUR".."\n".."&paymentType=DB"

into

local data1="authentication.userId=8a8294174d0595bb014d05d829e701d1&authentication.password=9TnJPc2n9h&authentication.entityId=8a8294174d0595bb014d05d82e5b01d2&amount=92.00&currency=EUR&paymentType=DB"

Then you need to get data1 into the body of the HTTP request:

params.body = data1

And then see if network.request() does what you want.

Rob

kakula · September 24, 2018, 7:34pm

Thanks Rob you are absolutely correct on the string issue

i also need to find the equivalent of the below functions

&nbsp; &nbsp; &nbsp; &nbsp;&nbsp;Dim byteArray As Byte() = Encoding.UTF8.GetBytes(data)

which seems to get a byte array of the string

Thanks

rob · September 24, 2018, 7:45pm

I believe that code is making the POST data UTF8 safe. I don’t know that it will cause you problems with Corona since Lua is UTF8 friendly. But this seems to be useful in making sure UTF8 strings get URL encoded properly:

https://www.rosettacode.org/wiki/URL_encoding#Lua

Rob

rob · September 24, 2018, 6:39pm