At Softacom, as a software company specializing in mobile and Windows app development using Delphi, we often integrate clients’ software with 3rd party services using API. In this article we show you how to automatically create posts on Facebook from your Delphi apps using the Facebook Graph API.
Table of Contents
How can I create posts on Facebook from a Delphi application?
Facebook is the world’s most popular social platform used by businesses to communicate with their clients, and not only.
The daily amount of information (texts, videos, images, urls) being posted in Facebook business accounts is huge and keeps growing. That’s why big companies often apply software solutions to distribute content effectively and in time.
In this article we’ll show you how to automate the process of content posting and updating through Facebook API (namely Facebook Graph API).
We’ll develop a Delphi FMX software application to post on a user’s Facebook page.
The whole process can be split into the following steps:
- Create a Facebook app
- Make the required adjustments in the app
- Debug and test queries using the built-in Facebook API debugging tool called Graph API Explorer
- Develop a Delphi Fmx (cross-platform) software application
- Post some content on a Facebook page
To work with Facebook Graph API we’ll use GET, POST and DELETE methods and requests. The server response will be in JSON format.
How to create a Facebook application entry
To work with Facebook Graph API you first need to sign in with your Facebook account (sign up if you do not have one). Then you need to go https://developers.facebook.com and register as a developer.
Then you need to confirm your email address
Select the profile type and click “Complete registration”.
To start using the Facebook API you need to create a facebook app in My Apps .
Select “Company” application type.
Next, enter the application name, select its purpose and click Create App.
Next enter your Facebook login password
Congrats! You’ve just created a Facebook app.
How do I get an access token so I can write my own apps to post to Facebook?
Now we need to get a token to access the page and configure the appropriate permissions to start posting.
To get the token run Graph API Explorer.
The Graph API Explorer will help us get the access token so that we can execute test queries and post to the page ( Softacom’s test page).
To work with the Facebook app select it from the drop-down lis. To get the token to access the page, choose Get Page Access Token from the User or Page.
Next, click Continue
Select the page you need and save the ID for further posting:
Both options have to be turned on. In our case Softacom. Click Further.
The access token has been generated.
How do I check my app can use the Facebook Graph API?
We can test the Facebook Graph API with the built-in debugging tool “Graph API Explorer”.
First, let’s test a GET request to get the profile name and identification number.
Select your page (Softacom)
Set up special permissions for posting (publish_to_groups, page_manage_posts).
Click “Generate Access Token” to generate an access token in order to save the permissions settings.
Permissions are saved successfully and a new access token has been generated.
Now select your page from the list
Send the GET request to get the page name and ID to ensure the Facebook Graph API works correctly.
Send a test POST request to add a post to the page in form of a text message.
Now refresh the page and you should see the text message posted on the page.
To delete a post, execute a DELETE request using the id of our post
You should receive a response in JSON format telling that the post was deleted successfully.
The previously received access token to the page is valid for an hour. To continue using the Facebook Graph API capabilities in Embarcadero Delphi’s FMX application, should obtain a long-term access token.
How do I get a permanent access token to allow my app to post to Facebook?
To get a permanent access token, press “i” in front of our temporary token.
Next Open in Access Token Tool
Choose Extend Access Token
Copy and save the resulting token
Where do I find an example of the Facebook API code?
For further usage of requests in the Embarcadero Delphi FMX application, you need to get the request body using Get Code
The request body must be copied and saved for later usage in Delphi. Similarly, can get the code of the remaining required requests.
How do I build a Delphi FMX app to post on a Facebook page?
To make requests to the Facebook API and receive a response in JSON format, use the TNetHttpRequest and TNetHttpClient components from the component palette (Net tab). They can be easily dragged onto the form. To work correctly, you need to change certain settings for the components. In the TNetHttpRequest component, in the Client field, select the current TNetHttpClient component that was added to the form along with TNetHttpRequest. You also need to set the MethodString parameter to POST.
To enter messages use the TMemo component.
TEdit components are used to enter image URLs, links for posting on a Facebook page. To enter an id, by which you’ll be able to delete a post from the page in future if needed, also use the TEdit component.
The response from the server in the form of JSON will be stored in the TMemo component.
In the onCreate form event handler, we assign the page access token to a variable of type string (token)
The text message entered by the user is stored in the “mes” string variable.
The post parameters (message, link, image url) are passed using a POST request to the Facebook Graph API server. Delphi uses the TMultiPartFormData class to send data using the POST method.
Next, the request with parameters is sent using the NetHttpRequest POST method, where the input parameters are the url address of the server, an object of the TMultipartFormData type with parameters to pass to the server, and a TMemoryStream object to store the data received from the server.
Code snippets of button handlers for posting a simple text message, updating a post, posting an image url, deleting a post, posting a message and a link are given below.
|
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 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 |
// Post simple message to Facebook Page procedure TForm1.btnPostMessageClick(Sender: TObject); begin mes := MessageMemo.Text; TTask.Run( procedure var LMultipartFormData: TMultipartFormData; LMS: TMemoryStream; begin LMultipartFormData := TMultipartFormData.Create; LMultipartFormData.AddField('message', mes); LMS := TMemoryStream.Create; NetHTTPRequest1.Post('https://graph.facebook.com/v12.0/103766905472273/feed?message&access_token=' + token, LMultipartFormData, LMS); TThread.Synchronize(nil, procedure begin ResponseMemo.Lines.LoadFromStream(LMS); TabControl1.GotoVisibleTab(1) end); LMS.Free; LMultipartFormData.Free; end); end; // Post url picture to Facebook Page procedure TForm1.btnPostPictureClick(Sender: TObject); begin TTask.Run( procedure var LMultipartFormData: TMultipartFormData; LMS: TMemoryStream; begin LMultipartFormData := TMultipartFormData.Create; LMultipartFormData.AddField('url', EditURLPicture.Text); LMS := TMemoryStream.Create; NetHTTPRequest1.Post('https://graph.facebook.com/v12.0/103766905472273/photos?url&access_token=' + token, LMultipartFormData, LMS); TThread.Synchronize(nil, procedure begin ResponseMemo.Lines.LoadFromStream(LMS); TabControl1.GotoVisibleTab(1) end); LMS.Free; LMultipartFormData.Free; end); end; // Delete post by Id procedure TForm1.btnDeleteClick(Sender: TObject); begin TTask.Run( procedure var LMS: TMemoryStream; begin LMS := TMemoryStream.Create; NetHTTPRequest1.Delete('https://graph.facebook.com/v12.0/' + Edit2.Text + '?access_token=' + token, LMS); TThread.Synchronize(nil, procedure begin ResponseMemo.Lines.LoadFromStream(LMS); TabControl1.GotoVisibleTab(1) end); LMS.Free; end); end; // Post Message and link to Facebook Page procedure TForm1.btnUpdateClick(Sender: TObject); begin mes := MessageMemo.Text; TTask.Run( procedure var LMultipartFormData: TMultipartFormData; LMS: TMemoryStream; begin LMultipartFormData := TMultipartFormData.Create; LMultipartFormData.AddField('message', mes); LMS := TMemoryStream.Create; NetHTTPRequest1.Post('https://graph.facebook.com/v12.0/' + Edit2.Text + '?message&access_token=' + token, LMultipartFormData, LMS); TThread.Synchronize(nil, procedure begin ResponseMemo.Lines.LoadFromStream(LMS); TabControl1.GotoVisibleTab(1) end); LMS.Free; LMultipartFormData.Free; end); end; procedure TForm1.btnMessageLinkPostClick(Sender: TObject); begin mes := MessageMemo.Text; link := Edit3.Text; TTask.Run( procedure var LMultipartFormData: TMultipartFormData; LMS: TMemoryStream; begin LMultipartFormData := TMultipartFormData.Create; LMultipartFormData.AddField('message', mes); LMultipartFormData.AddField('link', link); LMS := TMemoryStream.Create; NetHTTPRequest1.Post ('https://graph.facebook.com/v12.0/103766905472273/feed?message&link&access_token=' + token, LMultipartFormData, LMS); TThread.Synchronize(nil, procedure begin ResponseMemo.Lines.LoadFromStream(LMS); TabControl1.GotoVisibleTab(1) end); LMS.Free; LMultipartFormData.Free; end); end; |
How do I test my new Facebook Delphi app?
The app’s operation on the MSWindows platform is shown below. Posting a simple text message
Below is the result of posting a text message on the Softacom page
The result of posting a text message and a link on the Softacom page
Can I delete Facebook posts made by my Delphi app?
If desired, you can delete the post from the Facebook page using post Id. To do this, use the capabilities of the FMX application.
Enter Id and click “Delete post by id”.
The post on the Softacom page has been successfully deleted.
Softacom is one of Embarcadero’s Tech Partners. If you would like to try Delphi for yourself, why not download a free trial copy of RAD Studio today?
Design. Code. Compile. Deploy.
Start Free Trial Upgrade Today
Free Delphi Community Edition Free C++Builder Community Edition
