FNC Cloud Pack: UCloudStorageService demo problem with 2.1.0.0 version

FNC TMS FNC Cloud Pack
1

Good morning to all,
i have a big problem with UCloudStorageService demo (where some code is used in my project) after update FNC cloud pack from 1.4.4.0 (the last i've installed) to 2.1.0.0
The problem is that now when i click on "open folder" button .... simply the folder is never open.
This because in this procredure

procedure TForm4.TMSFNCCloudStorageServices1GetFolderList(Sender: TObject;
  const AItems: TTMSFNCCloudItems;
  const ARequestResult: TTMSFNCCloudBaseRequestResult);
begin
  TMSFNCCloudDemoListBox1.BeginUpdate;
  TMSFNCCloudDemoListBox1.Items.Clear;

  if Assigned(CurrentFolder) then
  begin
    FillListBox(CurrentFolder.Folder, True, False);
    FillListBox(CurrentFolder.Folder, False, True);
  end
  else
  begin
    FillListBox(AItems, True, False);
    FillListBox(AItems, False, True);
  end;
  TMSFNCCloudDemoListBox1.EndUpdate;
end;

in this piece of code

  if Assigned(CurrentFolder) then
  begin
    FillListBox(CurrentFolder.Folder, True, False);
    FillListBox(CurrentFolder.Folder, False, True);
  end

CurrentFolder.Folder is always NIL.

When FillListBox is called

procedure TForm4.FillListBox(AItems: TTMSFNCCloudItems; AAddFolders,
  AAddFiles: Boolean);
var
  I: Integer;
  ftype: string;
  ci: TTMSFNCCloudItem;
begin
  if not Assigned(AItems) then
    Exit;
 ........

AItems is always nil and the subdir is never readed (and the component is not filled).

Can you check and if you can reproduce it ?

Thank you for attention

Regards
Daniele

2

Hi,

Can you please change the code as indicated below?
This FMX demo was already updated in the v2.1.0.0 release, but the VCL demo was not yet updated.

procedure TForm4.TMSFNCCloudStorageServices1GetFolderList(Sender: TObject;
  const AItems: TTMSFNCCloudItems;
  const ARequestResult: TTMSFNCCloudBaseRequestResult);
begin
  TMSFNCCloudDemoListBox1.BeginUpdate;
  TMSFNCCloudDemoListBox1.ItemIndex := -1;
  TMSFNCCloudDemoListBox1.Items.Clear;
  FillListBox(AItems, True, False);
  FillListBox(AItems, False, True);
  TMSFNCCloudDemoListBox1.EndUpdate;
end;
3

Thanks' Bart ..

4

Hi Bart,
do you have also the fix for the "UP" button ??
Now, when i click on UP button i get this error

Project CloudStorageServiceDemoVCL.exe raised exception class Exception with message 'Missing Folder Path'.

This becuse the CurrentFolder.ParentFolder.FileName is always empty ('').

Thank's in advance

Regards
Daniele

5

We are currently investigating this issue and will report back as soon as possible.

6

Hi Bart,
thank you for reply.
I'll wait for your news...

Regards
Daniele