Delphi DLL

Retrieve the metadata for a DriveItem

See more OneDrive Examples

Fetches the JSON metadata for a DriveItem. 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
success: Boolean;
json: HCkJsonObject;
http: HCkHttp;
metaData: PWideChar;
odata_context: PWideChar;
microsoft_graph_downloadUrl: PWideChar;
createdDateTime: PWideChar;
cTag: PWideChar;
eTag: PWideChar;
id: PWideChar;
lastModifiedDateTime: PWideChar;
name: PWideChar;
size: Integer;
webUrl: PWideChar;
ratingRating: Integer;
ratingSimpleRating: Integer;
createdByUserDisplayName: PWideChar;
createdByUserId: PWideChar;
lastModifiedByUserDisplayName: PWideChar;
lastModifiedByUserId: PWideChar;
parentReferenceDriveId: PWideChar;
parentReferenceDriveType: PWideChar;
parentReferenceId: PWideChar;
parentReferenceName: PWideChar;
parentReferencePath: PWideChar;
fileMimeType: PWideChar;
fileHashesSha1Hash: PWideChar;
fileSystemInfoCreatedDateTime: PWideChar;
fileSystemInfoLastModifiedDateTime: PWideChar;
imageHeight: Integer;
imageWidth: Integer;
photoTakenDateTime: PWideChar;
sharedScope: PWideChar;
sharedOwnerUserDisplayName: PWideChar;
sharedOwnerUserId: PWideChar;

begin
success := False;

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

// Use your client ID, client secret, and tenant ID in the following lines
json := CkJsonObject_Create();
CkJsonObject_UpdateString(json,'client_id','2871da2c-8176-4b7f-869b-2311aa82e743');
CkJsonObject_UpdateString(json,'client_secret','2hu9Q~r5QuryUcEkNbg1btLtnfU1VUXzhSCG6brH');
CkJsonObject_UpdateString(json,'scope','https://graph.microsoft.com/.default');
CkJsonObject_UpdateString(json,'token_endpoint','https://login.microsoftonline.com/114d7ed6-71bf-4dbe-a866-748364121bf2/oauth2/v2.0/token');

http := CkHttp_Create();
CkHttp_putAuthToken(http,CkJsonObject__emit(json));

// Sends the following GET request:
// GET https://graph.microsoft.com/v1.0/users/{user-id}/drive/root:/{item-path}

// Make sure to automatically follow redirects
CkHttp_putFollowRedirects(http,True);

// This example will get the metadata for /Misc/wildlife/penguins.jpg
CkHttp_SetUrlVar(http,'item_path','Misc//penguins.jpg');
CkHttp_SetUrlVar(http,'user_id','4fe732c3-322e-4a6b-b729-2fd1eb5c6104');

metaData := CkHttp__quickGetStr(http,'https://graph.microsoft.com/v1.0/users/{$user_id}/drive/root:/{$item_path}');
if (CkHttp_getLastMethodSuccess(http) <> True) then
  begin
    Memo1.Lines.Add(CkHttp__lastErrorText(http));
    Exit;
  end;

CkJsonObject_putEmitCompact(json,False);
success := CkJsonObject_Load(json,metaData);
Memo1.Lines.Add(CkJsonObject__emit(json));

// Sample JSON metadata result:

// {
//   "@odata.context": "https://graph.microsoft.com/v1.0/$metadata#users('admin%40chilkat.io')/drive/root/$entity",
//   "@microsoft.graph.downloadUrl": "https://public.dm.files.1drv.com/y4mh0z_Og97O7Q...o2q1HhNBU",
//   "createdDateTime": "2017-06-04T20:40:22.48Z",
//   "cTag": "aYzozQTMzRkNFQjlCNzRDQzE1ITQ4NzIuMjU3",
//   "eTag": "aM0EzM0ZDRUI5Qjc0Q0MxNSE0ODcyLjY",
//   "id": "3A33FCEB9B74CC15!4872",
//   "lastModifiedDateTime": "2018-10-20T18:22:29.977Z",
//   "name": "penguins.jpg",
//   "size": 777835,
//   "webUrl": "https://1drv.ms/i/s!ABXMdJvr_DM6pgg",
//   "rating": {
//     "rating": 75,
//     "simpleRating": 4
//   },
//   "createdBy": {
//     "user": {
//       "displayName": "Joe Programmer",
//       "id": "3a33fceb9b74cc15"
//     }
//   },
//   "lastModifiedBy": {
//     "user": {
//       "displayName": "Joe Programmer",
//       "id": "3a33fceb9b74cc15"
//     }
//   },
//   "parentReference": {
//     "driveId": "3a33fceb9b74cc15",
//     "driveType": "personal",
//     "id": "3A33FCEB9B74CC15!4871",
//     "name": "wildlife",
//     "path": "/drive/root:/Misc/wildlife"
//   },
//   "file": {
//     "mimeType": "image/jpeg",
//     "hashes": {
//       "sha1Hash": "DF7BE9DC4F467187783ACA68C7CE98E4DF2172D0"
//     }
//   },
//   "fileSystemInfo": {
//     "createdDateTime": "2017-06-04T20:40:22.48Z",
//     "lastModifiedDateTime": "2009-07-14T05:32:31.674Z"
//   },
//   "image": {
//     "height": 768,
//     "width": 1024
//   },
//   "photo": {
//     "takenDateTime": "2008-02-18T05:07:31Z"
//   },
//   "shared": {
//     "scope": "users",
//     "owner": {
//       "user": {
//         "displayName": "Joe Programmer",
//         "id": "3a33fceb9b74cc15"
//       }
//     }
//   }
// }
// 

// If the response status code was not 200, then it failed.
if (CkHttp_getLastStatus(http) <> 200) then
  begin
    Memo1.Lines.Add('Response Status Code = ' + IntToStr(CkHttp_getLastStatus(http)));
    Memo1.Lines.Add('Failed.');
    Exit;
  end;

// Demonstrate how to parse the JSON...

odata_context := CkJsonObject__stringOf(json,'"@odata.context"');
microsoft_graph_downloadUrl := CkJsonObject__stringOf(json,'"@microsoft.graph.downloadUrl"');
createdDateTime := CkJsonObject__stringOf(json,'createdDateTime');
cTag := CkJsonObject__stringOf(json,'cTag');
eTag := CkJsonObject__stringOf(json,'eTag');
id := CkJsonObject__stringOf(json,'id');
lastModifiedDateTime := CkJsonObject__stringOf(json,'lastModifiedDateTime');
name := CkJsonObject__stringOf(json,'name');
size := CkJsonObject_IntOf(json,'size');
webUrl := CkJsonObject__stringOf(json,'webUrl');
ratingRating := CkJsonObject_IntOf(json,'rating.rating');
ratingSimpleRating := CkJsonObject_IntOf(json,'rating.simpleRating');
createdByUserDisplayName := CkJsonObject__stringOf(json,'createdBy.user.displayName');
createdByUserId := CkJsonObject__stringOf(json,'createdBy.user.id');
lastModifiedByUserDisplayName := CkJsonObject__stringOf(json,'lastModifiedBy.user.displayName');
lastModifiedByUserId := CkJsonObject__stringOf(json,'lastModifiedBy.user.id');
parentReferenceDriveId := CkJsonObject__stringOf(json,'parentReference.driveId');
parentReferenceDriveType := CkJsonObject__stringOf(json,'parentReference.driveType');
parentReferenceId := CkJsonObject__stringOf(json,'parentReference.id');
parentReferenceName := CkJsonObject__stringOf(json,'parentReference.name');
parentReferencePath := CkJsonObject__stringOf(json,'parentReference.path');
fileMimeType := CkJsonObject__stringOf(json,'file.mimeType');
fileHashesSha1Hash := CkJsonObject__stringOf(json,'file.hashes.sha1Hash');
fileSystemInfoCreatedDateTime := CkJsonObject__stringOf(json,'fileSystemInfo.createdDateTime');
fileSystemInfoLastModifiedDateTime := CkJsonObject__stringOf(json,'fileSystemInfo.lastModifiedDateTime');
imageHeight := CkJsonObject_IntOf(json,'image.height');
imageWidth := CkJsonObject_IntOf(json,'image.width');
photoTakenDateTime := CkJsonObject__stringOf(json,'photo.takenDateTime');
sharedScope := CkJsonObject__stringOf(json,'shared.scope');
sharedOwnerUserDisplayName := CkJsonObject__stringOf(json,'shared.owner.user.displayName');
sharedOwnerUserId := CkJsonObject__stringOf(json,'shared.owner.user.id');

CkJsonObject_Dispose(json);
CkHttp_Dispose(http);

end;