Help needed on how to do a NextCloud client...

[cdbc]

Hi Everybody
So, I've been running -IceWM- on my old lappy for the last 6 months or so, it works a treat, but alas, the normal 'NextCloud'-client that I run on KDE6 won't run on IceWM...
So, I'd like to ask for help, inspiration, pointers and maybe even code-snippets, to get the ball rolling, wrt. me building a personal client for the Nextcloud...
I'm using the cloud as fileserver, for now...
TIA
Regards Benny

[Zvoni]

Well, you could always look on GitHub at NC's own Client, written in c++, to get a starting point
https://github.com/nextcloud/desktop

[paweld]

In my opinion, the easiest way is to use WebDAV - here's a simple example of how to upload a file to the cloud:

Code: Pascal  [Select][+][-]

1. uses
2.   fphttpclient, opensslsockets,
3.   base64;
4.  
5. procedure TForm1.Button1Click(Sender: TObject);
6. const
7.   url = 'https://my.next.cloud.instance.pl/remote.php/dav/files/user';
8.   directory = 'Public';
9.   login = 'user';
10.   pass = 'userpassword';
11. var
12.   hc: TFPHttpClient;
13. begin
14.   if not OpenDialog1.Execute then
15.     exit;
16.   hc := TFPHttpClient.Create(nil);
17.   hc.AllowRedirect := True;
18.   hc.RequestHeaders.Insert(0, 'Authorization: Basic ' + EncodeStringBase64(login + ':' + pass)); //auth
19.   hc.RequestBody := TFileStream.Create(OpenDialog1.FileName, fmOpenRead);
20.   hc.Put(url + '/' + directory + '/' + ExtractFileName(OpenDialog1.FileName)); //upload file
21.   if hc.ResponseStatusCode div 100 = 2 then
22.     ShowMessage(Format('File [%s] uploaded to WebDAV', [ExtractFileName(OpenDialog1.FileName)]))
23.   else
24.     ShowMessage(Format('Upload error: [%d] %s', [hc.ResponseStatusCode, hc.ResponseStatusText]));
25.   hc.RequestBody.Free;
26.   hc.Free;
27. end;    

[PierceNg]

NextCloud offers OpenAPI spec: https://docs.nextcloud.com/server/latest/developer_manual/_static/openapi.html#/. Clicking the 'export' button on that page downloads a JSON file about 2MB in size that presumably contains the full API.

You could use mORMot's OpenAPI code generator to generate Pascal client code for said API. See https://forum.lazarus.freepascal.org/index.php/topic,68444.0.html.

[cdbc]

Wow guys \o/
Thanks a whole lot, that's great stuff, very much appreciated 
Methinks me got som' studying todo 
Will prolly return here with follow-up questions... 
Regards Benny

[paweld]

Here is a more detailed example: upload a file, delete a file, get a list of directories and files

[cdbc]

Hi Pawel
Thanks a lot mate, I have got your first example working and was scouring the API online for info on fetching dir/files-list, gettting a file downloaded and deleting a file... Now I'll be perusing your bigger example \o/
When "Put" uploads the file, I assume the same goes for "Get", with roughly the same params, when downloading ?!?
Regards Benny

[paweld]

When "Put" uploads the file, I assume the same goes for "Get", with roughly the same params, when downloading ?!?

Yes.

A description of other operations on directories and files is available, for example, here: https://http.dev/webdav

[paweld]

And just for your information: the Indy package includes the TIdWebDAV component

[cdbc]

Hi Pawel
Thanks mate =^
I'm fiddling with your example project, but somehow I don't get the names of items shown in view, have a looksee in screenshot below...
What am I missing...?
Regards Benny

[paweld]

Hi Benny,
Without the XML, it's hard to say what's causing this, but take a look at the attachment - I've expanded the project a bit and added logic to retrieve the name from the path if it's not included in the “displayname” tag.

[cdbc]

Hi Pawel
Cool, that did the trick, now I'm diving in for dissecting the new goodies 
Thanks a lot mate =^
Regards Benny

[cdbc]

Hi
@PawelD: Your code is brilliant mate thank you. And you're completely right, webDAV is the right tool for the job \o/
I did download the full openAPI from Nextcloud and mORMot2 additionally, then used 'mopenapi' to generate the pascal class to handle the API -- Pheeewww it's BIG. That API is the completely _wrong_ tool for the job...!
I've attached it for the 'nosy' ones among youse... The json-file is way to big for the forum...
Regards Benny