Delphi DLL

List all Labels in the User's Mailbox

See more GMail REST API Examples

List all Labels in the GMail User's Mailbox 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;
userId: PWideChar;
url: PWideChar;
sb: HCkStringBuilder;
json: HCkJsonObject;

begin
success := False;

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

http := CkHttp_Create();
CkHttp_putAuthToken(http,'GMAIL-ACCESS-TOKEN');

userId := 'me';
CkHttp_SetUrlVar(http,'userId',userId);

url := 'https://www.googleapis.com/gmail/v1/users/{$userId}/labels';

CkHttp_putSessionLogFilename(http,'c:/temp/qa_output/sessionLog.txt');

// Get the list of GMail labels as JSON.
sb := CkStringBuilder_Create();
success := CkHttp_QuickGetSb(http,url,sb);
if (success <> True) then
  begin
    Memo1.Lines.Add(CkHttp__lastErrorText(http));
    Exit;
  end;

json := CkJsonObject_Create();
CkJsonObject_LoadSb(json,sb);
CkJsonObject_putEmitCompact(json,False);
Memo1.Lines.Add(CkJsonObject__emit(json));

if (CkHttp_getLastStatus(http) <> 200) then
  begin
    Memo1.Lines.Add('Failed.');
    Exit;
  end;

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

end;