Hello
I'm trying this component with a connection to the WEBDAV/CALDAV service offered by SYNOLOGY.
I've tried codes found in the documentation but was not able to connect to the service.
Have tried with the following code :
var
i: integer;
cdi : TCalDavItem;
begin
AdvCalDav1.Url := 'http://192.168.254.1:5005/User1/calendar';
AdvCalDav1.Username := myname;
AdvCalDav1.Password := mypsw;
//AdvCalDav1.CalendarName := 'User1/calendar';
AdvCalDav1.active := true;
for i := 0 to AdvCalDav1.items.Count - 1 do
begin
cdi := AdvCalDav1.Items;
ListBox1.Items.Add(cdi.vCalendar.vEvents[0].Summary);
end;
With this code no result.
If I uncomment the calendarname, I got : " Invalid calendar name User1/calendar
I've tried to acces the CALDAV service with CHANDLER and there it is working fine.
Can you help?
Thanks in advance
Unfortunately we do not have access to such service from SYNOLOGY here.
Do you have info about the CalDav specs from SYNOLOGY so we can investigate?
hello,
here is my last code and the result
It's better, I can login and retreive some values.....
CODE :
var
i: integer;
cdi : TCalDavItem;
begin
AdvCalDav1.Url := 'https://192.168.254.2:5006';
AdvCalDav1.Username := 'test_caldav';
AdvCalDav1.Password := 'Tmscal';
AdvCalDav1.active := true;
// AdvCalDav1.CalendarName := 'TMSCALDAV';
for i := 0 to AdvCalDav1.items.Count - 1 do
begin
cdi := AdvCalDav1.Items;
ListBox1.Items.Add(cdi.FullPath);
end;
cdi.Calendar.Name := 'test_caldav/TMSCALDAV';
ListBox1.Items.Add(cdi.Calendar.Name);
ListBox1.Items.Add(cdi.vCalendar.Version);
AdvCalDavFilter1.Apply;
ListBox1.Items.Add(inttostr(cdi.vCalendar.vEvents.Count));
RESULT:
/test_caldav
/home
test_caldav/TMSCALDAV
1.2.1.1
0
Thus,
AdvCalDav1.items.Count is giving 2 and the content of the cdi.fullpath are the two folders linked to the user rights
I have added the full path where the ICS items are saved in the calendarname
How can I get or access those items ?
Thanks in advance