POST JSON Data to a web page and get its Response via Delphi XE6 and the CEF4Delphi Chromium component (TChromium)

Description of the project

We have an existing mini Windows x64 project in Delphi XE6 that uses the TChromium component of CEF4Delphi (CEF4Delphi is an open source project to embed Chromium-based browsers in applications made with Delphi. See more here: [login to view URL]) in order to access the web page of "[login to view URL]".

We have also a paper (demo) account in "[login to view URL]".

What we want to do is to be able:

1) to POST some JSON data to a web page of "[login to view URL]" (see POST syntax here:

[login to view URL]~1iserver~1account~1{accountId}~1orders/post

and here:

[login to view URL])

2) Get back the response of this POST request

We have written the necessary code to POST the JSON data (see 1 above) to the page but our code does not work. We are also missing the code to get back the response (see 2 above).

Our Source Code shows below:

-----------------------------------------------------------------------------------------------------

procedure [login to view URL](Sender: TObject);

var

TempChromium : TChromium;

Header: ICefStringMultimap;

Data: ICefPostData;

Request: ICefRequest;

begin

if SearchChromium(2, TempChromium) then begin

Header := [login to view URL];

[login to view URL]('Content-Type', 'Content-Type: application/json');

Data := [login to view URL];

[login to view URL](CreateField('acctId=' + ACCOUNT_ID));

[login to view URL](CreateField('referrer=QuickTrade'));

[login to view URL](CreateField('listingExchange=SMART'));

[login to view URL](CreateField('conid=0'));

[login to view URL](CreateField('conidex=10557'));

[login to view URL](CreateField('secType=265598:STK'));

[login to view URL](CreateField('side=BUY'));

[login to view URL](CreateField('ticker=APPL'));

[login to view URL](CreateField('quantity=1'));

[login to view URL](CreateField('orderType=STOP_LIMIT')); // Other options are: STP MKT LMT MIDPRICE etc

[login to view URL](CreateField('price=1.1'));

[login to view URL](CreateField('LmtPrice=1.1'));

[login to view URL](CreateField('auxPrice=1.1'));

[login to view URL](CreateField('ticker=NUE'));

[login to view URL](CreateField('tif=DAY'));

[login to view URL](CreateField('useAdaptive=false'));

[login to view URL](CreateField('outsideRTH=false'));

[login to view URL](CreateField('isClose=false'));

[login to view URL](CreateField('Transmit=false'));

Request := [login to view URL];

[login to view URL] := UR_FLAG_NONE;

[login to view URL]('[login to view URL]' + ACCOUNT_ID +'/orders', 'POST', Data, Header);

[login to view URL](Request);

end; //if

end;

-----------------------------------------------------------------------------------------------------

Terms & Conditions

Please place your bid ONLY if you have experience in the TChromium component of CEF4Delphi.

We will pay for a working result ONLY.

On this project you are going to work remotely (via TeamViewer) on our Development computer.

At the end of this project we will need an invoice from you, which you will issue from www.freelancer.com (freelancer.com has this capability on their web site).

Please place your bid ONLY if your agree with all the above Terms & Conditions.

Delphi Chromium JSON

Project ID: #32167876

About the project