Delphi and C++ Builder provides a set of advanced REST components to talk with external APIs. Several sample applications show you how to exchange data with APIs. For example, the Cloud API Test sample has fully functional 5K+ lines of code demo for playing with Microsoft Azure and Amazon Web Services. This means you can connect any web service easily with the built-in components.
TMS FMX Cloud Pack is another option to connect to cloud services quickly. They offer lots of abstractions for developers that we can spend less time building the connection between the cloud service like, YouTube, PayPal, LinkedIn, Microsoft Computer Vision e.t.c
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 |
//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; |
TMS FMX Cloud components support cross-platform application development and the component architecture based on original FireMonkey classes.
Here are some of the available components:
- Google Calendar, Google Contacts, Windows Live Calendar, Outlook Contacts
- Apple CloudKit, DropBox, OneDrive, Google Storage, Google Sheets
- Instagram, Imgur, Flickr
- Twitter, Facebook, LinkedIn, Trello
- Paypal, Google Analytics, and much more
Design. Code. Compile. Deploy.
Start Free Trial Upgrade Today
Free Delphi Community Edition Free C++Builder Community Edition
