![smartmockupskpve9reo | Embarcadero RAD Studio Delphi C++Builder Blogs smartmockups kpve9reo](https://i0.wp.com/blogs.embarcadero.com/wp-content/uploads/2021/06/smartmockups_kpve9reo-4456667.jpg?resize=1140%2C694&ssl=1)
Spoiler Alert: it’s REALLY easy to add a REST API to your own Development on Windows desktop applications. Read along with us and we’ll show you exactly how easy it is! Expressjs is a fast, ‘unopinionated’ minimalist web framework for Node.js. It provides a great combination of features that make web application development fast and easy which would otherwise be much more time-consuming using only plain Node.js. ExpressJS can also make it very easy for us to build and expose fast and robust APIs for our users. Because of this powerful ease of use ExpressJS is a very popular framework among Nodejs’s developers.
Table of Contents
Are there any Delphi frameworks similar to ExpressJS?
We Delphi developers are a lucky bunch, blessed with a huge range of Delphi components and libraries and thankfully, inspired by the ExpressJS concept, we now have Opensource project called Horse which can be found at https://github.com/HashLoad/horse. Horse is a web framework for Delphi. Designed to ease things up for fast development in a minimalist way and yet achieving high performance.
Let’s compare ExpressJS with the Delphi Horse framework
ExpressJS :
1 2 3 |
app.get('/path_here', function (req, res) { res.send('GET request to the homepage') }) |
Horse:
1 2 3 4 5 |
begin THorse.get('/path_here', procedure(Req: THorseRequest; Res: THorseResponse; Next: TProc) begin Res.Send('GET request to the homepage'); end); end. |
very similar isn’t it? and it looks simple when making API route
What are the steps to create an application using Horse?
Here’s how to create an API server application, which is a bit similar to what can be done with expressjs. The steps are:
- Download or clone the repository
1git clone https://github.com/HashLoad/horse
- Launch your Delphi IDE and Create new Application Console
- Open Project source and paste the following code:
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 |
program horse1; {$APPTYPE CONSOLE} {$R *.res} uses Horse, System.SysUtils, index in 'approutesindex.pas', employee in 'approutesemployee.pas'; begin try with THorse.Group.Prefix('/apis') do begin Route('/') .Get(index.API_Index); Route('/employees') .Get(employee.Get_Employees); Route('/employees/:id') .Get(employee.Get_Employee); end; THorse.Listen(8080, procedure(Horse: THorse) begin Writeln(Format('Server is runing on %s:%d', [Horse.Host, Horse.Port])); end ); except on E: Exception do Writeln(E.ClassName, ': ', E.Message); end; end. |
- Create folder app/routes, so the folder’s structure became like below:
![Screen Shot 20210613 at 222326 | Embarcadero RAD Studio Delphi C++Builder Blogs How Easy Is It To Add A REST API To Your Own Apps REST API paths](https://i0.wp.com/blogs.embarcadero.com/wp-content/uploads/2021/06/Screen-Shot-2021-06-13-at-22.23.26-5066255.png?resize=750%2C312&ssl=1)
- Create a new unit file, name it
index.pas
- Create another unit and call it
employee.pas
Here is the Delphi example code for creating a REST API using the Horse framework
index.pas
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 |
unit index; interface uses Horse, System.JSON; procedure API_Index(Req: THorseRequest; Res: THorseResponse; Next: TProc); implementation procedure API_Index(Req: THorseRequest; Res: THorseResponse; Next: TProc); var LRespObj: TJSONObject; begin LRespObj:= TJSONObject.Create; try LRespObj.AddPair(TJSONPair.Create('r', TJSONBool.Create(true))); LRespObj.AddPair(TJSONPair.Create('m', TJSONString.Create('this is an API index using https://github.com/HashLoad/horse'))); Res.Send(LRespObj.ToString); finally LRespObj.Free; end; end; end. |
employee.pas
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 |
unit employee; interface uses Horse, System.JSON, sysutils; procedure Get_Employees(Req: THorseRequest; Res: THorseResponse; Next: TProc); procedure Get_Employee(Req: THorseRequest; Res: THorseResponse; Next: TProc); implementation procedure Get_Employees(Req: THorseRequest; Res: THorseResponse; Next: TProc); var LRespArr: TJSONArray; LRespObj: TJSONObject; LEmployee1, LEmployee2, LEmployee3, LEmployee4, LEmployee5: TJSONObject; begin LRespObj:= TJSONObject.Create; LRespArr:= TJSONArray.Create; LEmployee1:= TJSONObject.Create; LEmployee2:= TJSONObject.Create; LEmployee3:= TJSONObject.Create; LEmployee4:= TJSONObject.Create; LEmployee5:= TJSONObject.Create; try LEmployee1.AddPair(TJSONPair.Create('id', TJSONNumber.Create(1))); LEmployee1.AddPair(TJSONPair.Create('name', 'Employee1')); LEmployee2.AddPair(TJSONPair.Create('id', TJSONNumber.Create(2))); LEmployee2.AddPair(TJSONPair.Create('name', 'Employee2')); LEmployee3.AddPair(TJSONPair.Create('id', TJSONNumber.Create(3))); LEmployee3.AddPair(TJSONPair.Create('name', 'Employee3')); LEmployee4.AddPair(TJSONPair.Create('id', TJSONNumber.Create(4))); LEmployee4.AddPair(TJSONPair.Create('name', 'Employee4')); LEmployee5.AddPair(TJSONPair.Create('id', TJSONNumber.Create(5))); LEmployee5.AddPair(TJSONPair.Create('name', 'Employee5')); LRespArr.AddElement(LEmployee1); LRespArr.AddElement(LEmployee2); LRespArr.AddElement(LEmployee3); LRespArr.AddElement(LEmployee4); LRespArr.AddElement(LEmployee5); LRespObj.AddPair(TJSONPair.Create('r', TJSONBool.Create(true))); LRespObj.AddPair(TJSONPair.Create('m', 'Success')); LRespObj.AddPair(TJSONPair.Create('d', LRespArr)); Res.Send(LRespObj.ToString); finally LRespObj.Free; end; end; procedure Get_Employee(Req: THorseRequest; Res: THorseResponse; Next: TProc); var LRespObj: TJSONObject; LEmployeeSelected: TJSONObject; id: Double; begin id := StrToFloat(Req.Params['id']); LRespObj := TJSONObject.Create; LEmployeeSelected := TJSONObject.Create; LEmployeeSelected.AddPair(TJSONPair.Create('name', 'Employee'+Req.Params['id'])); LEmployeeSelected.AddPair(TJSONPair.Create('id', TJSONNumber.Create(id))); LRespObj.AddPair(TJSONPair.Create('r', TJSONBool.Create(true))); LRespObj.AddPair(TJSONPair.Create('m', 'Success')); LRespObj.AddPair(TJSONPair.Create('d', LEmployeeSelected)); res.Send(LRespObj.ToString); end; end. |
Creating file API Path per file, making it easy for developers in further development or code troubleshoot. that’s it.
Now run the program, and point your browser at http://localhost:8080/apis/employees/3 , You will see the response as below:
1 |
{"r":true,"m":"Success","d":{"name":"Employee3","id":3}} |
Get the latest news and updates on this Delphi forum page as well as links to several resource sites.
So, adding a REST API to your own applications really is easy isn’t it? Why not give it a try yourself? You can get all of the example source code from the following link: https://github.com/checkdigits/horse-API-Demo
Design. Code. Compile. Deploy.
Start Free Trial Upgrade Today
Free Delphi Community Edition Free C++Builder Community Edition