TMS-Google Kalender, APPIDS.INC

[ralfschwalbe]

Du musst wirklich gemäß den Beispielen arbeiten...

Im Event "OnReceivedAccessToken" musst Du unbedingt die Token mit "SaveTokens" entweder in einer Ini oder in der Registry speichern. Diese gelten dann nur an diesem Rechner und für den angemeldeten Benutzer!

Und beim verbinden dann:

Delphi-Quellcode:

var
  acc : Boolean;
begin
  AdvGCalendar1.LoadTokens;
  try
    acc := AdvGCalendar1.TestTokens;

    if not acc then acc := AdvGCalendar1.RefreshAccess;

    if acc then
    begin
      AdvGCalendar1.GetCalendars;

      // tue irgenwas sinnvolles ;-) 
    end
    else AdvGCalendar1.DoAuth;
  except
    on E: SysUtils.Exception do
    begin
      if (Pos('CANNOT OPEN URL', AnsiUpperCase(E.Message)) > 0) or (Pos('UNABLE TO INITIALIZE WININET', AnsiUpperCase(E.Message)) > 0) then
      begin
        MessageDlg('Es kann keine Verbindung zum Internet hergestellt werden!', mtError, [mbOK], 0);
      end
      else raise;
    end;
  end;
end;

Ich habe meinen Kalender seid knapp zwei Monaten in Betrieb und musste mich noch nie neu anmelden...