Erstellen von Terminen in z.B. Google-Kalender

[joachimd]

habs noch nicht gemacht ... aber ich würde wahrscheinlich über die CALDAV Schnittstelle gehen, da diese dann auch gegen OwnCloud/NextCloud und Konsorten funktioniert. Auf die Schnelle in google:

https://www.sync-components.com/dav-...ponents/caldav

Delphi-Quellcode:

CDCalendar := TCDCalendar.Create;
CDCalendar.BaseURL := 'https://www.server.com/calendar/dav/events';
CDCalendar.UserName := 'UserName';
CDCalendar.Password := 'password';
CDCalendar.Load;
for I := 0 to CDCalendar.EventsCount - 1 do
  ListBox1.Items.Add(CDCalendar.Events[I].Title);
CDCalendar.Free;

Delphi-Quellcode:

With CDCalendar.NewEvent do
begin
  Title := 'Meeting';
  StartTime := EncodeDateTime(2010, 10, 12, 10, 0, 0, 0);
  EndTime := EncodeDateTime(2010, 10, 12, 11, 0, 0, 0);
  Description := 'Description';
  Store;
end;