GDrive and OneDrive have stopped working

VCL TMS VCL Cloud Pack
1

Some of my user reported that they cant access gdrive and onedrive anymore, so I tried it and I too have the same issue. Other like DropBox are working fine.


GDrive:
CloudBase.pas line 3803
Call: jv := TJSONOBject.ParseJSONValue(UTF8ToString(FixupJSON(sa)));
Never returns

OneDrive:
OneDrive popup an Auth screen which is empty, so there's no way to authenticate.
2

OneDrive works again.

The Radio Button on the API settings page for Mobile/Desktop application suddenly was set to NO, but was YES for at least a year...

But GDrive is still stuck in the json code.
3

Hi,


I have not been able to reproduce this issue with TAdvGDrive.
Did you see any error messages?
Can you please enable Logging and set LogLevel to llDetail, then provide the automatically generated LOG file so I can further investigate this issue? (The LOG file is placed in the documents folder of your machine by default)
4

The problem is seen below. The brown/red marked line is the one from where it does never return. I checked the stringlist content, and it has all the items from the gdrive in there.



5

Possibly one of the items in the JSON contains a specific value that is causing an issue.

Have you tried connecting to different Google Drive accounts?
Are there any files or folders in your drive that contain special characters?

6

The FixupJSON function is the problem. Without it, it works. The data is about 1MB in size, and contains 23k lines. I am still trying to figure out what happen and will let you know.

7

Replacing the old FixupJSON function (takes 102 seciond to parse) with this one below (takes a couple of ms only), and all is fine.


function TCloudBase.FixupJSON(Value: ansistring): ansistring;
var
  x,i: integer;
begin
setlength(result,length(value));
x:=1;
for i:=1 to length(value) do
begin
    if not ((value=#10) or (value=#13) or (value=#9)) then
begin
result[x]:=value;
inc(x);
end;
end;
setlength(result,x-1);
end;

8

Thank you for your suggestion.
We'll investigate if this change can be implemented in a future version of the TMS Cloud Pack.

9

The FixupJSON function has been improved.
The update will be available with the next release of the TMS Cloud Pack.