Pascal (Lazarus/Delphi)

Google Sheets - Read a Single Range

See more Google Sheets Examples

Reads the values stored in the range Sheet1!A1:B5 and returns them in the response. Pascal (Lazarus/Delphi)

program ChilkatDemo;

// Demonstrates using the Chilkat Pascal wrapper via the C bridge DLL.
// Builds as a console application under Lazarus (FPC) or Delphi.

{$IFDEF FPC}
  {$MODE DELPHI}
{$ENDIF}
{$APPTYPE CONSOLE}

uses
  {$IFDEF UNIX}
  cthreads,
  {$ENDIF}
  SysUtils,
  CkDllLoader,
  Chilkat.JsonObject,
  Chilkat.Http;

// ---------------------------------------------------------------------------

procedure RunDemo;
var
  success: Boolean;
  jsonToken: TJsonObject;
  http: THttp;
  jsonResponse: string;
  json: TJsonObject;
  i: Integer;
  count_i: Integer;
  j: Integer;
  count_j: Integer;
  range: string;
  majorDimension: string;
  strVal: string;

begin
  success := False;

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

  //  This example uses a previously obtained access token having permission for the 
  //  Google Sheets scope.

  //  In this example, Get Google Sheets OAuth2 Access Token, the access
  //  token was saved to a JSON file.  This example fetches the access token from the file..
  jsonToken := TJsonObject.Create;
  success := jsonToken.LoadFile('qa_data/tokens/googleSheets.json');
  if (jsonToken.HasMember('access_token') = False) then
    begin
      WriteLn('No access token found.');
      Exit;
    end;
  http := THttp.Create;
  http.AuthToken := jsonToken.StringOf('access_token');
  http.SessionLogFilename := 'qa_output/sessionLog.txt';

  //  Get the cells defined by the range A1:B5
  jsonResponse := http.QuickGetStr('https://sheets.googleapis.com/v4/spreadsheets/spreadsheetId/values/Sheet1!A1:B5');
  if (http.LastMethodSuccess <> True) then
    begin
      WriteLn(http.LastErrorText);
      Exit;
    end;

  WriteLn(jsonResponse);

  json := TJsonObject.Create;
  json.Load(jsonResponse);

  //  A sample response is shown below.
  //  To generate the parsing source code for a JSON response, paste
  //  the JSON into this online tool: Generate JSON parsing code

  //  {
  //    "range": "Sheet1!A1:B5",
  //    "majorDimension": "ROWS",
  //    "values": [
  //      [
  //        "Item",
  //        "Cost"
  //      ],
  //      [
  //        "Wheel",
  //        "$20.50"
  //      ],
  //      [
  //        "Door",
  //        "$15"
  //      ],
  //      [
  //        "Engine",
  //        "$100"
  //      ],
  //      [
  //        "Totals",
  //        "$135.50"
  //      ]
  //    ]
  //  }

  range := json.StringOf('range');
  majorDimension := json.StringOf('majorDimension');
  i := 0;
  count_i := json.SizeOfArray('values');
  while i < count_i do
    begin
      json.I := i;
      j := 0;
      count_j := json.SizeOfArray('values[i]');
      while j < count_j do
        begin
          json.J := j;
          strVal := json.StringOf('values[i][j]');
          j := j + 1;
        end;

      i := i + 1;
    end;



  jsonToken.Free;
  http.Free;
  json.Free;

end;

// ---------------------------------------------------------------------------

begin

  try
    RunDemo;
  except
    on E: Exception do
      WriteLn('Unhandled exception: ', E.ClassName, ': ', E.Message);
  end;

  WriteLn;
  {$IFDEF MSWINDOWS}
  WriteLn('Press Enter to exit...');
  ReadLn;
  {$ENDIF}
end.