Working with WebDAV properties

webdav.UserName := 'user';   
webdav.Password := 'password';   
ns := webdav.NameSpaces.Add();   
ns.Prefix := 'Z';   
ns.NameSpace := 'mycustomnamespace';   
 
webdav.SetProperties('http://localhost/WebDAV/1.txt', 
['Z:tester', 'Z:developer'], ['John Doe', 'Vasya Pupkin']);   
webdav.GetProperties('http://localhost/WebDAV/1.txt', 
['Z:tester']);   
Assert(webdav.ResourceProperties.Count = 1);   
Assert(webdav.ResourceProperties[0].Value = 'John Doe');   
Assert(webdav.ResourceNameSpaces.ItemByNameSpace('mycustomnamespace') <> nil);   
webdav.RemoveProperties('http://localhost/WebDAV/1.txt', ['Z:tester']);   
webdav.GetAllProperties('http://localhost/WebDAV/');   
Assert(webdav.ResourceProperties.Count > 0);   
webdav.Reset();

Add Feedback