Delphi DLL

MYOB: Get List of Company Files

See more MYOB Examples

Gets a list of company files. Delphi DLL

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

...

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

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

http := CkHttp_Create();

CkHttp_putAuthToken(http,'ACCESS_TOKEN');

CkHttp_putAccept(http,'application/json');

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

strResp := CkHttp__quickGetStr(http,'https://ar1.api.myob.com/accountright');
if (CkHttp_getLastMethodSuccess(http) <> True) then
  begin
    Memo1.Lines.Add(CkHttp__lastErrorText(http));
    Exit;
  end;

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

jsonResponse := CkJsonObject_Create();
CkJsonObject_Load(jsonResponse,strResp);
CkJsonObject_putEmitCompact(jsonResponse,False);
Memo1.Lines.Add(CkJsonObject__emit(jsonResponse));

if (CkHttp_getLastStatus(http) <> 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 := CkJsonObject__stringOf(jsonResponse,'Id');
Name := CkJsonObject__stringOf(jsonResponse,'Name');
LibraryPath := CkJsonObject__stringOf(jsonResponse,'LibraryPath');
ProductVersion := CkJsonObject__stringOf(jsonResponse,'ProductVersion');
ProductLevelCode := CkJsonObject_IntOf(jsonResponse,'ProductLevel.Code');
ProductLevelName := CkJsonObject__stringOf(jsonResponse,'ProductLevel.Name');
CheckedOutDate := CkJsonObject__stringOf(jsonResponse,'CheckedOutDate');
CheckedOutBy := CkJsonObject__stringOf(jsonResponse,'CheckedOutBy');
Uri := CkJsonObject__stringOf(jsonResponse,'Uri');
Country := CkJsonObject__stringOf(jsonResponse,'Country');

CkHttp_Dispose(http);
CkJsonObject_Dispose(jsonResponse);

end;