Delphi ActiveX Google Drive: List Changes to a TeamDrive

Back to Index

Download a list of changes to a teamdrive. This example lists the changes for the team drive having id = "0AEd3EhGff2SaUk9PVA". The "pageToken" is obtained from a previous call to /drive/v3/changes/startPageToken or from the "nextPageToken" member of the previous call to list changes.

Documentation: https://developers.google.com/drive/v3/reference/changes/list

var
rest: TChilkatRest;
success: Integer;
oauth2: TChilkatOAuth2;
sbJson: TChilkatStringBuilder;
json: TChilkatJsonObject;
kind: WideString;
newStartPageToken: WideString;
i: Integer;
count_i: Integer;
type: WideString;
time: WideString;
removed: Integer;
fileId: WideString;
fileKind: WideString;
fileName: WideString;
fileMimeType: WideString;
fileTeamDriveId: WideString;

begin
rest := TChilkatRest.Create(Self);

//   Provide a previously obtained OAuth2 access token.
oauth2 := TChilkatOAuth2.Create(Self);
oauth2.AccessToken := 'OAUTH2_ACCESS_TOKEN';
rest.SetAuthOAuth2(oauth2.ControlInterface);

success := rest.Connect('www.googleapis.com',443,1,1);
if (success <> 1) then
  begin
    Memo1.Lines.Add(rest.LastErrorText);
    Exit;
  end;

rest.AddQueryParam('teamDriveId','0AEd3EhGff2SaUk9PVA');
rest.AddQueryParam('pageToken','13');
rest.AddQueryParam('includeTeamDriveItems','true');
rest.AddQueryParam('supportsTeamDrives','true');

sbJson := TChilkatStringBuilder.Create(Self);
success := rest.FullRequestNoBodySb('GET','/drive/v3/changes',sbJson.ControlInterface);
if (success <> 1) then
  begin
    Memo1.Lines.Add(rest.LastErrorText);
    Exit;
  end;

if (rest.ResponseStatusCode <> 200) then
  begin
    Memo1.Lines.Add('Received error response code: ' + IntToStr(rest.ResponseStatusCode));
    Memo1.Lines.Add('Response body:');
    Memo1.Lines.Add(sbJson.GetAsString());
    Exit;
  end;

json := TChilkatJsonObject.Create(Self);
json.LoadSb(sbJson.ControlInterface);

//  The following code parses the JSON response.
//  A sample JSON response is shown below the sample code.

kind := json.StringOf('kind');
newStartPageToken := json.StringOf('newStartPageToken');
i := 0;
count_i := json.SizeOfArray('changes');
while i < count_i do
  begin
    json.I := i;
    kind := json.StringOf('changes[i].kind');
    type := json.StringOf('changes[i].type');
    time := json.StringOf('changes[i].time');
    removed := json.BoolOf('changes[i].removed');
    fileId := json.StringOf('changes[i].fileId');
    fileKind := json.StringOf('changes[i].file.kind');
    fileId := json.StringOf('changes[i].file.id');
    fileName := json.StringOf('changes[i].file.name');
    fileMimeType := json.StringOf('changes[i].file.mimeType');
    fileTeamDriveId := json.StringOf('changes[i].file.teamDriveId');
    i := i + 1;
  end;

Memo1.Lines.Add('Example Completed.');

Sample JSON Response Body

{
  "kind": "drive#changeList",
  "newStartPageToken": "16",
  "changes": [
    {
      "kind": "drive#change",
      "type": "file",
      "time": "2017-11-13T17:04:47.470Z",
      "removed": false,
      "fileId": "1lT4TbeSSMtxgB2MmwE7-5i7vQaxhr6Ze",
      "file": {
        "kind": "drive#file",
        "id": "1lT4TbeSSMtxgB2MmwE7-5i7vQaxhr6Ze",
        "name": "starfish2.jpg",
        "mimeType": "image/jpeg",
        "teamDriveId": "0AEd3EhGff2SaUk9PVA"
      }
    },
    {
      "kind": "drive#change",
      "type": "file",
      "time": "2017-11-13T17:05:01.095Z",
      "removed": false,
      "fileId": "16MsxSRSz6ISRx1D_PXyA5Sj6aNFSEd4e",
      "file": {
        "kind": "drive#file",
        "id": "16MsxSRSz6ISRx1D_PXyA5Sj6aNFSEd4e",
        "name": "seahorse.jpg",
        "mimeType": "image/jpeg",
        "teamDriveId": "0AEd3EhGff2SaUk9PVA"
      }
    }
  ]
}