Hi Everyone

I need some help on the following

I am sending the following JSON to a web API that i use in Windows


and in Windows this works fine but in Gambas none of the extra " are sent so I receive back from the API "Invalid JSON Received"

could someone show me how I can send the JSON to the API correctly

this is the code I am using to send to the API


as yes as you can all see i am still struggling to work out how to send the extra 2 Headers to the API as well (i need to send them so the API would work at 100% service)

escape the quotation mark with \

string = " <COLOR color="#FF0000">"</COLOR>this should work <COLOR color="#FF0000">"</COLOR>"

PJBlack said

escape the quotation mark with \

string = " <COLOR color="#FF0000">"</COLOR>this should work <COLOR color="#FF0000">"</COLOR>"

    Dim jsonString As String = "{" "transactionType" ":" "SALE" ",""amount" ":" "" & transAmount & "" "," "currency" ":" "GBP" "}"

Something like that?

don't know your json but if you like to have a quotation mark inside a string you have to escape it with a backslash …

OR

something like so:

will result in: firstpart"second part

 Thanks PJBlack

I shall try that and let you know what the status message is from the cloud server

Hi Everyone

I have tired the corrections as you all said and I am still getting a Error from the API

I have even tried this bit of code


as you can see I replaced every " with a ¬ with in the string formation and then did a replace function at the end to get the format correct

This is what I am getting on the message box


But I am still getting a Error from the card Server API I get in my list box

{"messages":{"error":["Invalid JSON received."]}}

so I am completely stumped as to what to try now I have even asked the Card Service providers as to what they are getting their end but I have not had a replay back yet.

Does anyone know what I have done wrong?

 I know nothing about what your are doing  

Do you want the 153 to be double quoted ? and there are spaces between each element except the 153 and the comma following it has no space.

If it does require double quotes …. does it need spaces between the quotes ?

try this one :

 hi PJBlack

I am getting Unexpected "" and it is flashing next to the & \ just after the amount

so it is showing   transAmount & \ "", it is the \ i am getting the error on

Sorry if I am not any help I am still figuring this out as I go along.

Try this :  

It produces this:
{"transactionType":"SALE","amount":"2345.45","currency":"GBP"}

hi Grayghost4

Thank you for your example It worked

Thank-you

Now i just need to get status again

hi Everyone

so I have this working now (the JSON is being sent to the server with no errors) but when I get the data back from the Server it is in the following format


Ivbe tried to use this


but I get a error on Message(vNew["notifications"]) saying "Type Mismatch: wanted string got Variant[] instead"

do i have to process the output differently when it has more then one feed? Im trying to get the TRANSACTION_STARTED bit

 Message requires a string and vNew is a variant … try this :    


           Message(Str(vNew["notifications"]))

That now show but I can not seem to get the second set of data in the JSON feed

I need to read from the notifications Section

I have the following


How do I get the "TRANSACTION_STARTED" from the notifications area?

The format is a JSON string so use Decode to process it as a collection.
the notifications is an array so use [0] to get the first item.

BruceSteers said

The format is a JSON string so use Decode to process it as a collection.
the notifications is an array so use [0] to get the first item.

Code (gambas)

1. ' this is your string...
2.  
3. Dim s As String = "\{\"location\":\"https://test.connect.paymentsense.cloud/pac/terminals/12345678/transactions/661c943f\",\"notifications\":[\"TRANSACTION_STARTED\"]}"
4.  
5.  ' turn the JSON string into a collection
6. Dim jc As Collection = JSON.Decode(s)
7.  
8. ' print the data..
9. Print jc["location"]
10. Print jc["notifications"][0]
11.  
12.  

THANK-YOU THANK-YOU THANK-YOU

AndyGable said

BruceSteers said

The format is a JSON string so use Decode to process it as a collection.
the notifications is an array so use [0] to get the first item.

THANK-YOU THANK-YOU THANK-YOU

You're welcome.
It would probably be good to make a class to handle your messages and fire events relevant to the message type.

attached is a simple example I just made of a class that you can send your device text to and it will fire events based on the message type. I called it DeviceMessage.class
It just handles 'notifications' or it reports an unhandled message for anything else…

Now in your application you would create the instance of the DeviceMessage class like so…

then send the global.sBuffer strings like

a notifications message will fire the Notify event

possibly not what you want but I was bored and thought this might help you with understanding collections, how to process various unknown variant types and setting up events.
Perhaps you could expand it do suit your needs.

Happy coding
BruceS

Would that class help send status messages to my point of sale software?

AndyGable said

Would that class help send status messages to my point of sale software?

It's a bare bones example.
I don't know your device , you would have to add what you want to it and make it work how you need it to.

If there is a status specific message string then process it like the notifications message.

The above post has a test source app attached showing how to use it.

It will print messages about anything sent that is not notifications showing the datatype of the message so you can figure it out from there I should think <EMOJI seq="1f60a" tseq="1f60a">😊</EMOJI>

 Pretty sure you could reverse the process, so make a collection then use JSON.Encode() to create a message string to send to the device. (Only a guess though, you'd have to experiment)

You could then add a DeviceMessage.Send() command to the class easily enough.

basically the app is a go between my EPoS Software and a Card Processing machine

Once a sale starts it output status in the same message

how would I pole the url? do I just have to call the same Function or can it be made to do that?


As you can see the system uses the same feed to send the full status of the transaction (from Insert Card to Complete sale)

 Pole?

When a message is processed the DeviceMessage.Location property is filled.

 opps sorry that was a typo it should have said poll

with your class do I still call ShowSaleResults? to get the newest status message?

also could someone tell me why while running the transaction nothing is being added to the listbox even though I am adding messages to the list

AndyGable said

opps sorry that was a typo it should have said poll

with your class do I still call ShowSaleResults? to get the newest status message?

also could someone tell me why while running the transaction nothing is being added to the listbox even though I am adding messages to the list

How are you adding messages to the listbox?

Note.
ListBox1.List.Add(sText) will not work.

ListBox1.Add(sText) is how to do it.


A ListBox.List read returns a copy of the list only not a pointer to it.


And.
The class has one function _call() did you even read the source code i posted?
Or download the source i uploaded to see?
Or read the last message about it being bare bones and doesn't do anything much?

Good luck with your problem.

BruceSteers said

AndyGable said

opps sorry that was a typo it should have said poll

with your class do I still call ShowSaleResults? to get the newest status message?

also could someone tell me why while running the transaction nothing is being added to the listbox even though I am adding messages to the list

How are you adding messages to the listbox?

Note.
ListBox1.List.Add(sText) will not work.

ListBox1.Add(sText) is how to do it.


A ListBox.List read returns a copy of the list only not a pointer to it.


And.
The class has one function _call() did you even read the source code i posted?
Or download the source i uploaded to see?
Or read the last message about it being bare bones and doesn't do anything much?

Good luck with your problem.

Hi This is the code I am using to add to my listbox


if i am not doing anything with the Status of the transaction I get Messages Showing up (Example when I click Check Status i get the Message "Terminal Ready for Transaction" but the moment a sale starts nothing seems to be added to the list (even though I have the code to do it see example)


as you can see I am adding the message "Starting transaction One moment…" but it does not get added

once the transaction is cancelled on the PinPad the list box refresh and everything is showing up

could this be a update issues between the thread running on the update command?

any help would be most appreachated