0

我使用以下代码使用 TMS Cloud 组件将新条目添加到我的 Google 日历中 我在数据库的表中有新条目，并且它们已添加好 但是我也希望能够更新一个条目，但是我找不到任何帮助。控件提供的演示具有选项，但我不想从日历中加载所有条目并选择要在那里编辑的条目。我想保存给定的某种 entryID 并使用它来更新。DevExpress 有一个选项可以让您在 Outlook 日历之间同步表格（效果很好），所以我认为应该可以使用 TMS

问题是：如何在创建日历条目时获取它的 ID，以便我可以将它与表中的记录一起存储并在之后使用它进行更新？

var
  ci: TGCalendarItem;
begin
      AdvGCalendar.App.Key    := Settings.Google.Key;
      AdvGCalendar.App.Secret := Settings.Google.Secret;
      AdvGCalendar.Logging := true;

      if not AdvGCalendar.TestTokens then
        AdvGCalendar.RefreshAccess;

      if not AdvGCalendar.TestTokens then
        AdvGCalendar.DoAuth
      else
        Connected := True;

      ci := AdvGCalendar.Items.Add;

      AdvGCalendar.GetCalendars();
      ci.CalendarID := Settings.Google.Calendar;
      if ci.CalendarID <> '' then
        begin
          ci.Location     := CiLocation;
          ci.Description  := CiDescription;
          ci.Summary      := CiSummary;
          ci.StartTime    := EncodeDateTime(YearOf(StartDate), MonthOf(StartDate), DayOf(StartDate), HourOf(StartTime), MinuteOf(StartTime), 0, 0);
          ci.EndTime      := EncodeDateTime(YearOf(StopDate), MonthOf(StopDate), DayOf(StopDate), HourOf(StopTime), MinuteOf(StopTime), 0, 0);
          ci.IsAllDay     := False;
          ci.Visibility   := viPrivate;
          AdvGCalendar.Add(ci);
        end;
end;
4

1 回答 1

0

问题与我正在使用的组件版本中存在错误有关，因此 ID 没有返回 OK。

升级到更新版本修复了这个问题，所以现在它可以工作了。

于 2013-09-06T11:34:14.147 回答