Delphi ActiveX

MYOB: Get List of Company Files

See more MYOB Examples

Gets a list of company files. Delphi ActiveX

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Chilkat_TLB;

...

procedure TForm1.Button1Click(Sender: TObject);
var
http: TChilkatHttp;
strResp: WideString;
jsonResponse: TChilkatJsonObject;
Id: WideString;
Name: WideString;
LibraryPath: WideString;
ProductVersion: WideString;
ProductLevelCode: Integer;
ProductLevelName: WideString;
CheckedOutDate: WideString;
CheckedOutBy: WideString;
Uri: WideString;
Country: WideString;

begin
// This example requires the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.

http := TChilkatHttp.Create(Self);

http.AuthToken := 'ACCESS_TOKEN';

http.Accept := 'application/json';

http.SetRequestHeader('x-myobapi-key','MYOB_API_KEY');
http.SetRequestHeader('x-myobapi-version','v2');

strResp := http.QuickGetStr('https://ar1.api.myob.com/accountright');
if (http.LastMethodSuccess <> 1) then
  begin
    Memo1.Lines.Add(http.LastErrorText);
    Exit;
  end;

Memo1.Lines.Add('Response Status Code: ' + IntToStr(http.LastStatus));

jsonResponse := TChilkatJsonObject.Create(Self);
jsonResponse.Load(strResp);
jsonResponse.EmitCompact := 0;
Memo1.Lines.Add(jsonResponse.Emit());

if (http.LastStatus <> 200) then
  begin
    Memo1.Lines.Add('Failed.');
    Exit;
  end;

// Sample output...
// (See the parsing code below..)
// 
// Use the this online tool to generate parsing code from sample JSON: 
// Generate Parsing Code from JSON

// {
//   "Id": "d2014f64-ffdf-487b-8d12-67a20976aca6",
//   "Name": "Internal Sandbox API",
//   "LibraryPath": "Internal Sandbox API",
//   "ProductVersion": "2013.0",
//   "ProductLevel": {
//     "Code": 20,
//     "Name": "Standard"
//   },
//   "CheckedOutDate": "2013-06-11T01:47:47.0065514",
//   "CheckedOutBy": "developers@myob.com",
//   "Uri": "{cf_uri}",
//   "Country": "AU"
// }
// 

Id := jsonResponse.StringOf('Id');
Name := jsonResponse.StringOf('Name');
LibraryPath := jsonResponse.StringOf('LibraryPath');
ProductVersion := jsonResponse.StringOf('ProductVersion');
ProductLevelCode := jsonResponse.IntOf('ProductLevel.Code');
ProductLevelName := jsonResponse.StringOf('ProductLevel.Name');
CheckedOutDate := jsonResponse.StringOf('CheckedOutDate');
CheckedOutBy := jsonResponse.StringOf('CheckedOutBy');
Uri := jsonResponse.StringOf('Uri');
Country := jsonResponse.StringOf('Country');
end;