delphi google日历Api事件插入

Question

我试图使用delphi REST控件将一个事件插入到我的google日历中。

这是迄今为止的代码：

procedure TForm1.TestGoogleRestParams;
var
  i: Integer;
  jsonObjEventResource,jsonObjStart,jsonObjEnd: TJSONObject;
begin
  try
    jsonObjEventResource:=TJSONObject.Create();
    jsonObjStart:=TJSONObject.Create();
    jsonObjEnd:=TJSONObject.Create();

    jsonObjEventResource.AddPair(TJSONPair.Create('summary','test'));
    jsonObjEventResource.AddPair(TJSONPair.Create('description','Testing'));
    jsonObjEventResource.AddPair(TJSONPair.Create('id',LowerCase('06824945162F4204BFDC041AE1BBAE85')));

    jsonObjStart.AddPair(TJSONPair.Create('date',FormatDateTime('yyyy-mm-dd',Now)));

    jsonObjEventResource.AddPair(TJSONPair.Create('start',jsonObjStart));

    jsonObjEnd.AddPair(TJSONPair.Create('date',FormatDateTime('yyyy-mm-dd',Now)));

    jsonObjEventResource.AddPair(TJSONPair.Create('end',jsonObjEnd));

    jsonObjEventResource.AddPair(TJSONPair.Create('guestsCanInviteOthers',TJSONBool. Create(false)));
    jsonObjEventResource.AddPair(TJSONPair.Create('visibility','private'));

    mem_Test.Lines.Add(TJson.Format(jsonObjEventResource));
    //mem_Test.Lines.Add(jsonObjEventResource.ToJSON);
    RESTRequest.Method := TRESTRequestMethod.rmPOST;
    RESTRequest.Body.ClearBody;
    RESTRequest.AddBody(jsonObjEventResource);
    RESTRequest.Execute;
  finally
    //jsonObjEventResource.Free;
    //jsonObjStart.Free;
    //jsonObjEnd.Free;
  end;
end;

我使用的范围是:https://www.googleapis.com/auth/calendar.
基本URL:https://www.googleapis.com/calendar/v3
资源URI:日历/主要/事件

我确实获得了访问令牌和刷新令牌，但无法发布请求。这是我收到的错误：

{
  "error":
  {
    "errors":
    [
            {
        "domain":"global",
        "reason":"required",
        "message":"Login Required",
        "locationType":"header",
        "location":"Authorization"
      }
    ]
,
    "code":401,
    "message":"Login Required"
  }
}

使用以下uri：https://www.googleapis.com/calendar/v3/calendars/primary/events

我该如何解决这个问题？

如果我不调用这个方法而只调用< code>RESTRequest。执行；我得到了所有现有事件的列表。

Answer 1

“：”无效凭据“

表示您使用的客户端id和客户端机密不正确。您应该从Google Developer控制台下载一个新文件，然后重试。

选项2:

尝试对用户进行身份验证。可能是访问令牌已过期，需要刷新