//Initialize the application key and secret for each service
procedure TForm1.InitAppKeys;
begin
TMSFMXCloudFaceBook1.App.Key := FacebookAppkey;
TMSFMXCloudFaceBook1.App.Secret := FacebookAppSecret;
TMSFMXCloudFaceBook1.PersistTokens.Key := GetDocumentsDirectory + '/facebook.ini';
TMSFMXCloudFaceBook1.PersistTokens.Section := 'tokens';
TMSFMXCloudFaceBook1.LoadTokens;
TMSFMXCloudFaceBook1.Tag := integer(csFacebook);
TMSFMXCloudTwitter1.App.Key := TwitterAppkey;
TMSFMXCloudTwitter1.App.Secret := TwitterAppSecret;
TMSFMXCloudTwitter1.PersistTokens.Key := GetDocumentsDirectory + '/twitter.ini';
TMSFMXCloudTwitter1.PersistTokens.Section := 'tokens';
TMSFMXCloudTwitter1.LoadTokens;
TMSFMXCloudTwitter1.Tag := integer(csTwitter);
TMSFMXCloudDropBox1.App.Key := DropBoxAppkey;
TMSFMXCloudDropBox1.App.Secret := DropBoxAppSecret;
TMSFMXCloudDropBox1.PersistTokens.Key := GetDocumentsDirectory + '/dropbox.ini';
TMSFMXCloudDropBox1.PersistTokens.Section := 'tokens';
TMSFMXCloudDropBox1.LoadTokens;
TMSFMXCloudDropBox1.Tag := integer(csDropBox);
TMSFMXCloudGDrive1.App.Key := GoogleAppKey;
TMSFMXCloudGDrive1.App.Secret := GoogleAppSecret;
TMSFMXCloudGDrive1.PersistTokens.Key := GetDocumentsDirectory + '/gdrive.ini';
TMSFMXCloudGDrive1.PersistTokens.Section := 'tokens';
TMSFMXCloudGDrive1.LoadTokens;
TMSFMXCloudGDrive1.Tag := integer(csGDrive);
TMSFMXCloudFlickr1.App.Key := FlickrAppKey;
TMSFMXCloudFlickr1.App.Secret := FlickrAppSecret;
TMSFMXCloudFlickr1.PersistTokens.Key := GetDocumentsDirectory + '/flickr.ini';
TMSFMXCloudFlickr1.PersistTokens.Section := 'tokens';
TMSFMXCloudFlickr1.LoadTokens;
TMSFMXCloudFlickr1.Tag := integer(csFlickr);
end;
//Initializes the status by showing an Ok or Error image next to each service.
procedure TForm937.InitStatus(cs: TCloudServices);
begin
if csFacebook in cs then
begin
svcOKFacebook.Visible := TMSFMXCloudFaceBook1.TestTokens;
svcErrFacebook.Visible := not svcOKFacebook.Visible;
end;
if csTwitter in cs then
begin
svcOKTwitter.Visible := TMSFMXCloudTwitter1.TestTokens;
svcErrTwitter.Visible := not svcOKTwitter.Visible;
end;
if csDropBox in cs then
begin
svcOKDropBox.Visible := TMSFMXCloudDropBox1.TestTokens;
svcErrDropBox.Visible := not svcOKDropBox.Visible;
end;
if csGDrive in cs then
begin
svcOKGDrive.Visible := TMSFMXCloudGDrive1.TestTokens;
svcErrGDrive.Visible := not svcOKGDrive.Visible;
end;
if csFlickr in cs then
begin
svcOKFlickr.Visible := TMSFMXCloudFlickr1.TestTokens;
svcErrFlickr.Visible := not svcOKFlickr.Visible;
end;
end;
