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...
