Google Calendar API

[Ghostwalker]

Moinmoin,

ich spiel grad ein bischen mit der Google Calendar API von Lazarus/Freepascal.

Im Calender-Demo funktioniert soweit auch alles, ich kann also meinen Kalender holen und die entsprechenden Events. Soweit wunderbar.

Was mir nicht gelingen will, ist das dazuholen der entsprechenden Farbcodes für die Events. Die Farb-ID wird ja mitgeliefert. Aber die Definition der Farben bekomm ich ums verrecken nicht raus, da hier der Zugriff anscheinen etwas anders funktioniert.

Kann mir da jemand helfen ?

[zeras]

Zitat von Ghostwalker:

ich spiel grad ein bischen mit der Google Calendar API von Lazarus/Freepascal.

Im Calender-Demo funktioniert soweit auch alles, ich kann also meinen Kalender holen und die entsprechenden Events. Soweit wunderbar.

Läßt sich diese direkt mit Seattle compilieren oder muss da viel anpassen?
Ich möchte nicht noch extra Lazarus oder ähnliches installieren.
Kann man die Demo + API auch separat irgendwo downloaden?

[Ghostwalker]

K.A. Ich hab Freepascal/Lazarus installiert.

Du kannst dir die API-Sourcen direkt aus dem SVN bzw Git holen.

[zeras]

Zitat von Ghostwalker:

Die Farb-ID wird ja mitgeliefert. Aber die Definition der Farben bekomm ich ums verrecken nicht raus, da hier der Zugriff anscheinen etwas anders funktioniert.

Hast du da noch ein bißchen Code?
Ich lese auch einige Sachen aus dem Kalender aus, aber mit Farben hatte ich noch keinen Bedarf.
Anscheinend sind die Infos beim Kalender hinterlegt und nicht beim Event selber.

[Ghostwalker]

Schnipp:

Delphi-Quellcode:

  Events:=FCalendarAPI.EventsResource.list(FCurrentCalendar.id,'');
  SaveRefreshToken;
  I:=0;
  if assigned(Events) then
    for Entry in Events.items do
      begin
      Inc(i);
      EN:=Entry.Summary+' '+Entry.colorId;
      if EN='' then
        EN:=Entry.id+' ('+Entry.description+')';
      if Assigned(Entry.Start) then
        if Entry.start.date<>0 then
          EN:=DateToStr(Entry.start.date)+' : '+EN
        else if Entry.start.dateTime<>0 then
          EN:=DateTimeToStr(Entry.start.datetime)+' : '+EN
        else
          EN:='(unspecified time) '+EN;
      LBEvents.Items.AddObject(IntToStr(i)+': '+EN,Entry);
      end;

Der Code liest die Events eines Kalenders aus (funktioniert so weit auch).

Mit diesem Code, lese ich die Colorresource aus:

Delphi-Quellcode:

   var
     cols : TColors;
   begin
     cols := fCalendarAPI.ColorsResource.Get;
   end;

Soweit so gut, wird auch ausgeführt und lt. dem Requestlog werden auch die Farben zurückgeliefert. Nur
finde ich keinen Weg, die Farbdefinitionen aus Cols raus zu bekommen. Es ist also weniger ein Problem der
Google-API selbst, sonder mehr des Wrappers.

[EWeiss]

Zitat:

die Farbdefinitionen aus Cols raus zu bekommen

Verstehe ich nicht ganz..
raus zu bekommen = Übergeben?

Gibt es keine WM_MESSAGE ala WM_CTLCOLOREDIT oder vergleichbar für den Kalender? Dem du die Farbe übergeben kannst.
Werfe doch mal nen Spy an und schaue welche Message für die Farbe zuständig ist.

gruss

[Ghostwalker]

Das ist eine REST-API mit der ich auf den Google-Kalender eines Accounts zugreifen kann. Die Farben werden bei Google definiert

Wie schon gesagt liegt das Problem vermutlich im API-Wrapper. Den lt. Rest-Log. werden die definitionen übertragen.

[EWeiss]

Zitat von Ghostwalker:

Das ist eine REST-API mit der ich auf den Google-Kalender eines Accounts zugreifen kann. Die Farben werden bei Google definiert

Wie schon gesagt liegt das Problem vermutlich im API-Wrapper. Den lt. Rest-Log. werden die definitionen übertragen.

Verstehe immer noch nicht sorry
Du hast die Farbe kannst sie aber nicht auf den Kalender anwenden ?
Wenn ja dann sind die Farben wohl schreibgeschützt .. oder wie du sagst (Problem vermutlich im API-Wrapper)
Da wirst du dann wohl nix machen können.

gruss

[uligerhardt]

Zitat von Ghostwalker:

Du kannst dir die API-Sourcen direkt aus dem SVN bzw Git holen.

Haste mal nen Link?

[Ghostwalker]

http://www.google.de

Nee im Ernst:

http://svn.freepascal.org/svn/fpc/trunk

Da is alles mit dabei.