Sorry previous was an Accident.
Now your DEMO does not work, ie. even the simplest TMSDropbox.Connect does not work in the main form (let alone in a DLL which is constantly causing me grief).
Here's your DEMO code (I explicitly reference the Dropbox component):
RadioGroup1.Enabled := false;
if not(TMSFMXCloudDropBox1.Connect) then
showmessage ('Connection Failed');
Here is the result:
At this point, the browser window pops and I can put in credentials (if not already) and then press ALLOW. After that the BROWSER tells me all is well. I have put in a TESTTOKENS button and it also tells me that all is well:
procedure TForm4.Button1Click(Sender: TObject);
isConnected := False;
isConnected := TMSFMXCloudDropBox1.TestTokens;
if isConnected then
showmessage('Dropbox IS Connected!!!!')
showmessage('Dropbox IS NOT Connected!!!!')
And here's the result of testing the tokens:
As you can see it really is connected. This is very confusing.
So I'm fighting the front end, and in my DLL I'm having these and other issues, like for example, the onConnected and onAccessTokenreceived are not being triggered. I can confirm I'm receiving (now) the AUTH TOKEN, but not receiving the ACCESS TOKEN.
The whole connect thing is fairly weak and very fragile. Just sayin'
So for an external browser, can you please look at your demo code (CloudStorageDemo) and confirm that storage.Connect fails even though the connection has actually occurred?