Pascal (Lazarus/Delphi)

Google People API - Create Contact

See more Google People Examples

Create a new contact. 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.Http,
  Chilkat.StringBuilder,
  Chilkat.HttpResponse,
  Chilkat.JsonObject;

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

procedure RunDemo;
var
  success: Boolean;
  jsonToken: TJsonObject;
  http: THttp;
  json: TJsonObject;
  resp: THttpResponse;
  sbResponseBody: TStringBuilder;
  jResp: TJsonObject;
  respStatusCode: Integer;
  v_type: string;
  id: string;
  updateTime: string;
  metadataPrimary: Boolean;
  metadataSourceType: string;
  metadataSourceId: string;
  displayName: string;
  familyName: string;
  givenName: string;
  displayNameLastFirst: string;
  unstructuredName: string;
  url: string;
  default: Boolean;
  contactGroupMembershipContactGroupId: string;
  contactGroupMembershipContactGroupResourceName: string;
  resourceName: string;
  etag: string;
  metadataObjectType: string;
  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.

  //  It is assumed we previously obtained an OAuth2 access token.
  //  This example loads the JSON access token file 

  //  originally obtained by this example: Get Google People API OAuth2 Access Token
  //  or refreshed by this example: Refresh Google People API OAuth2 Access Token

  jsonToken := TJsonObject.Create;
  success := jsonToken.LoadFile('qa_data/tokens/googlePeople.json');
  if (success <> True) then
    begin
      WriteLn('Failed to load googleContacts.json');
      Exit;
    end;

  http := THttp.Create;

  http.AuthToken := jsonToken.StringOf('access_token');

  //  Implements the following CURL command:

  //  curl -H "Content-Type: application/json" -X POST
  //   -d '{
  //   "names": [{ "givenName": "John", "familyName": "Doe" }]
  //   }'
  //   https://people.googleapis.com/v1/people:createContact

  //  Use the following online tool to generate HTTP code from a CURL command
  //  Convert a cURL Command to HTTP Source Code

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

  //  The following JSON is sent in the request body.

  //  {
  //    "names": [
  //      {
  //        "givenName": "John",
  //        "familyName": "Doe"
  //      }
  //    ]
  //  }

  json := TJsonObject.Create;
  json.UpdateString('names[0].givenName','John');
  json.UpdateString('names[0].familyName','Doe');

  resp := THttpResponse.Create;
  success := http.HttpJson('POST','https://people.googleapis.com/v1/people:createContact',json,'application/json',resp);
  if (success = False) then
    begin
      WriteLn(http.LastErrorText);
      Exit;
    end;

  sbResponseBody := TStringBuilder.Create;
  resp.GetBodySb(sbResponseBody);
  jResp := TJsonObject.Create;
  jResp.LoadSb(sbResponseBody);
  jResp.EmitCompact := False;

  WriteLn('Response Body:');
  WriteLn(jResp.Emit());

  respStatusCode := resp.StatusCode;
  WriteLn('Response Status Code = ' + respStatusCode);
  if (respStatusCode >= 400) then
    begin
      WriteLn('Response Header:');
      WriteLn(resp.Header);
      WriteLn('Failed.');
      Exit;
    end;

  //  Sample JSON response:
  //  (Sample code for parsing the JSON response is shown below)

  //  {
  //    "resourceName": "people/c172365763025317520",
  //    "etag": "%EigBAj0DBAUGBwgJPgoLPwwNDg8QQBESExQVFhc1GTQ3HyEiIyQlJicuGgQBAgUHIgxleVowR3U1SFZhcz0=",
  //    "metadata": {
  //      "sources": [
  //        {
  //          "type": "CONTACT",
  //          "id": "2645dbf8c902e90",
  //          "etag": "#eyZ0Gu5HVas=",
  //          "updateTime": "2020-08-03T22:46:03.410Z"
  //        }
  //      ],
  //      "objectType": "PERSON"
  //    },
  //    "names": [
  //      {
  //        "metadata": {
  //          "primary": true,
  //          "source": {
  //            "type": "CONTACT",
  //            "id": "2645dbf8c902e90"
  //          }
  //        },
  //        "displayName": "John Doe",
  //        "familyName": "Doe",
  //        "givenName": "John",
  //        "displayNameLastFirst": "Doe, John",
  //        "unstructuredName": "John Doe"
  //      }
  //    ],
  //    "photos": [
  //      {
  //        "metadata": {
  //          "primary": true,
  //          "source": {
  //            "type": "CONTACT",
  //            "id": "2645dbf8c902e90"
  //          }
  //        },
  //        "url": "https://lh3.googleusercontent.com/-XdUIqdMkCWA/AAAAAAAAAAI/AAAAAAAAAAA/V8BNOaftJmYG2hHugNzYued7G9QFdbZOACLcDEAEiGQoBShD___________8BGNuwiP7______wE/s100/photo.jpg",
  //        "default": true
  //      }
  //    ],
  //    "memberships": [
  //      {
  //        "metadata": {
  //          "source": {
  //            "type": "CONTACT",
  //            "id": "2645dbf8c902e90"
  //          }
  //        },
  //        "contactGroupMembership": {
  //          "contactGroupId": "myContacts",
  //          "contactGroupResourceName": "contactGroups/myContacts"
  //        }
  //      }
  //    ]
  //  }

  //  Sample code for parsing the JSON response...
  //  Use the following online tool to generate parsing code from sample JSON:
  //  Generate Parsing Code from JSON

  resourceName := jResp.StringOf('resourceName');
  etag := jResp.StringOf('etag');
  metadataObjectType := jResp.StringOf('metadata.objectType');
  i := 0;
  count_i := jResp.SizeOfArray('metadata.sources');
  while i < count_i do
    begin
      jResp.I := i;
      v_type := jResp.StringOf('metadata.sources[i].type');
      id := jResp.StringOf('metadata.sources[i].id');
      etag := jResp.StringOf('metadata.sources[i].etag');
      updateTime := jResp.StringOf('metadata.sources[i].updateTime');
      i := i + 1;
    end;

  i := 0;
  count_i := jResp.SizeOfArray('names');
  while i < count_i do
    begin
      jResp.I := i;
      metadataPrimary := jResp.BoolOf('names[i].metadata.primary');
      metadataSourceType := jResp.StringOf('names[i].metadata.source.type');
      metadataSourceId := jResp.StringOf('names[i].metadata.source.id');
      displayName := jResp.StringOf('names[i].displayName');
      familyName := jResp.StringOf('names[i].familyName');
      givenName := jResp.StringOf('names[i].givenName');
      displayNameLastFirst := jResp.StringOf('names[i].displayNameLastFirst');
      unstructuredName := jResp.StringOf('names[i].unstructuredName');
      i := i + 1;
    end;

  i := 0;
  count_i := jResp.SizeOfArray('photos');
  while i < count_i do
    begin
      jResp.I := i;
      metadataPrimary := jResp.BoolOf('photos[i].metadata.primary');
      metadataSourceType := jResp.StringOf('photos[i].metadata.source.type');
      metadataSourceId := jResp.StringOf('photos[i].metadata.source.id');
      url := jResp.StringOf('photos[i].url');
      default := jResp.BoolOf('photos[i].default');
      i := i + 1;
    end;

  i := 0;
  count_i := jResp.SizeOfArray('memberships');
  while i < count_i do
    begin
      jResp.I := i;
      metadataSourceType := jResp.StringOf('memberships[i].metadata.source.type');
      metadataSourceId := jResp.StringOf('memberships[i].metadata.source.id');
      contactGroupMembershipContactGroupId := jResp.StringOf('memberships[i].contactGroupMembership.contactGroupId');
      contactGroupMembershipContactGroupResourceName := jResp.StringOf('memberships[i].contactGroupMembership.contactGroupResourceName');
      i := i + 1;
    end;



  jsonToken.Free;
  http.Free;
  json.Free;
  resp.Free;
  sbResponseBody.Free;
  jResp.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.