Delphi DLL

MyInvois Malaysia Get Document Types

See more Malaysia MyInvois Examples

There are multiple types of documents supported by MyInvois, and this API retrieves their definitions through API call. Delphi DLL

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

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Boolean;
http: HCkHttp;
sb: HCkStringBuilder;
statusCode: Integer;
json: HCkJsonObject;
id: Integer;
invoiceTypeCode: Integer;
description: PWideChar;
activeFrom: PWideChar;
activeTo: PWideChar;
j: Integer;
count_j: Integer;
name: PWideChar;
versionNumber: PWideChar;
status: PWideChar;
i: Integer;
count_i: Integer;

begin
success := False;

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

http := CkHttp_Create();

// Adds the "Authorization: Bearer <access_token>" header.
CkHttp_putAuthToken(http,'<access_token>');

// Note: The access token is valid for a short amount of time.  Perhaps 1 hour.
// The access token is used in the "Authorization: Bearer <access_token>" header in subsequent requests until it expires.
// Your application would then need to get a new access token, and so on..
// To get an access token, see How to Get a MyInvois Access Token

sb := CkStringBuilder_Create();
success := CkHttp_QuickGetSb(http,'https://preprod-api.myinvois.hasil.gov.my/api/v1.0/documenttypes',sb);
if (success = False) then
  begin
    Memo1.Lines.Add(CkHttp__lastErrorText(http));
    Exit;
  end;

statusCode := CkHttp_getLastStatus(http);
Memo1.Lines.Add('response status code = ' + IntToStr(statusCode));

if (statusCode <> 200) then
  begin
    // Failed.
    Memo1.Lines.Add(CkStringBuilder__getAsString(sb));
    Exit;
  end;

// Sample response:

// {"result":
//       [
//          {"id":45,
//             "invoiceTypeCode":4,
//             "description":"Invoice",
//             "activeFrom":"2015-02-13T13:15:00Z",
//             "activeTo":"2027-03-01T00:00:00Z",
//             "documentTypeVersions":
//             [
//                {"id":454,
//                 "name":"1.0",
//                 "description":"Invoice version 1.1",
//                 "activeFrom":"2015-02-13T13:15:00Z",
//                 "activeTo":"2027-03-01T00:00:00Z",
//                 "versionNumber":1.1,
//                 "status":"published"
//                }
//             ]
//           }
//       ]
// }

// Use this online tool to generate parsing code from sample JSON: 
// Generate Parsing Code from JSON

json := CkJsonObject_Create();
CkJsonObject_LoadSb(json,sb);

i := 0;
count_i := CkJsonObject_SizeOfArray(json,'result');
while i < count_i do
  begin
    CkJsonObject_putI(json,i);
    id := CkJsonObject_IntOf(json,'result[i].id');
    invoiceTypeCode := CkJsonObject_IntOf(json,'result[i].invoiceTypeCode');
    description := CkJsonObject__stringOf(json,'result[i].description');
    activeFrom := CkJsonObject__stringOf(json,'result[i].activeFrom');
    activeTo := CkJsonObject__stringOf(json,'result[i].activeTo');
    j := 0;
    count_j := CkJsonObject_SizeOfArray(json,'result[i].documentTypeVersions');
    while j < count_j do
      begin
        CkJsonObject_putJ(json,j);
        id := CkJsonObject_IntOf(json,'result[i].documentTypeVersions[j].id');
        name := CkJsonObject__stringOf(json,'result[i].documentTypeVersions[j].name');
        description := CkJsonObject__stringOf(json,'result[i].documentTypeVersions[j].description');
        activeFrom := CkJsonObject__stringOf(json,'result[i].documentTypeVersions[j].activeFrom');
        activeTo := CkJsonObject__stringOf(json,'result[i].documentTypeVersions[j].activeTo');
        versionNumber := CkJsonObject__stringOf(json,'result[i].documentTypeVersions[j].versionNumber');
        status := CkJsonObject__stringOf(json,'result[i].documentTypeVersions[j].status');
        j := j + 1;
      end;

    i := i + 1;
  end;

CkHttp_Dispose(http);
CkStringBuilder_Dispose(sb);
CkJsonObject_Dispose(json);

end;