最精简使用mORMot (二)

最精简使用mORMot [关于REST和WS]

本文非原创，找了几个出处没有找到原始连接，特意整理收藏
以下是关于“最精简使用mORMot”的完整攻略，包括基本概念、步骤和两个示例说明。

基本概念

mORMot是一个开源的Object Pascal框架，用于构建高性能可扩展的Web应用程序和服务。它提供了一组强大的工具和库，包括ORM、RESTful API、WebSockets、JSON、XML、SQLite、Redis等。使用mORMot可以快速构建高效的Web应用程序和服务。

步骤

以下是使用mORMot构建Web应用程序和服务的步骤：

1. 安装mORMot：首先，我们需要下载并安装mORMot框架。可以从官方网站或GitHub上下载最新版本的mORMot框架。
2. 创建项目：创建一个新的Object Pascal项目，并将mORMot框架添加到项目中。例如，我们可以使用以下代码添加mORMot框架：

uses 
  SynCommons, mORMot;

1. 定义数据模型：定义一个数据模型，例如：

   type
     TUser = class(TSQLRecord)
     private
       FName: RawUTF8;
       FEmail: RawUTF8;
     published
       property Name: RawUTF8 read FName write FName;
       property Email: RawUTF8 read FEmail write FEmail;
     end;

在代码中，我们定义了一个名为TUser的数据模型，该模型包含Name和Email两个属性。

1. 定义服务：定义一个服务，例如：

   type
     TMyService = class(TServiceContainer)
     public
       function GetUser(const AID: Integer): TUser;
     end;

function TMyService.GetUser(const AID: Integer): TUser;
   begin
     Result := TUser.Create;
     Result.Name := 'John Doe';
     Result.Email := '[email protected]';
   end;

在代码中，我们定义了一个名为TMyService的服务，该服务包含一个名为GetUser的方法，该方法返回一个TUser对象。

1. 启动服务：启动服务并监听指定端口，例如：

var
     Server: TSQLHttpServer;
   begin
     Server := TSQLHttpServer.Create('8080', [TMyService.Create]);
     Server.AccessControlAllowOrigin := '*';
     Server.AccessControlAllowHeaders := 'Content-Type';
     Server.AccessControlAllowMethods := 'GET, POST, PUT, DELETE';
     Server.AccessControlMaxAge := 86400;
     Server.Run;
   end;

在代码中，我们创建了一个名为Server的TSQLHttpServer对象，并将TMyService服务添加到该对象中。然后，我们设置了一些跨域资源共享（CORS）选项，并启动了HTTP服务器。

示例

以下是两个使用mORMot构建Web应用程序和服务的示例：

示例一：使用mORMot构建RESTful API

假设我们需要使用mORMot构建一个RESTful API，可以使用以下步骤：

1. 安装mORMot：从官方网站或GitHub上下载最新版本的mORMot框架，并将其添加到Object Pascal项目中。
2. 定义数据模型：定义一个数据模型，例如：

   type
     TUser = class(TSQLRecord)
     private
       FName: RawUTF8;
       FEmail: RawUTF8;
     published
       property Name: RawUTF8 read FName write FName;
       property Email: RawUTF8 read FEmail write FEmail;
     end;

在代码中，我们定义了一个名为TUser的数据模型，该模型包含Name和Email两个属性。

1. 定义服务：定义一个服务，例如：

type
     TMyService = class(TServiceContainer)
     public
       GetUser(const AID: Integer): TUser;
     end;

function TMyService.GetUser(const AID: Integer): TUser;
   begin
     Result := TUser.Create;
     Result.Name := 'John Doe';
     Result.Email := '[email protected]';
   end;

在代码中，我们定义了一个名为TMyService的服务，该服务包含一个名为GetUser的方法，该方法返回一个TUser对象。

1. 启动服务：启动服务并监听指定端口，例如：

   var
     Server: TSQLHttpServer;
   begin
     Server := TSQLHttpServer.Create('8080', [TMyService.Create]);
     Server.AccessControlAllowOrigin := '*';
     Server.AccessControlAllowHeaders := 'Content-Type';
     Server.AccessControlAllowMethods := 'GET, POST, PUT, DELETE';
     Server.AccessControlMaxAge := 86400;
     Server.Run;
   end;

在代码中，我们创建了一个名为Server的TSQLHttpServer对象，并将TMyService服务添加到该对象中。然后，我们设置了一些CORS选项，并启动了HTTP服务器。

1. 测试API：使用HTTP客户端测试API，例如：

GET http://localhost:8080/user/1

在代码中，我们使用HTTP客户端发送GET请求到指定URL，获取ID为1的用户信息。

示例二：使用mORMot构建WebSocket服务

假设我们需要使用mORMot构建一个WebSocket服务，可以使用以下步骤：

1. 安装mORMot：从官方网站或GitHub上下载最新版本的mORMot框架，并将其添加到Object Pascal项目中。
2. 定义WebSocket服务：定义一个WebSocket服务，例如：

   type
     TMyWebSocket = class(TSQLWebSocket)
     public
       procedure OnMessage(const Text: RawUTF8); override;
     end;

procedure TMyWebSocket.OnMessage(const Text: RawUTF8);
   begin
     Send('Hello, ' + Text + '!');
   end;

在代码中，我们定义了一个名为TMyWebSocket的WebSocket服务，该服务包含一个名为OnMessage的方法，该方法在接收到消息时发送回复消息。

1. 启动WebSocket服务：启动WebSocket服务并监听指定端口，例如：

   var
     Server: TSQLWebSocketServer;
   begin
     Server := TSQLWebSocketServer.Create('8080', [TMyWebSocket]);
     Server.Run;
   end;

在代码中，我们创建了一个名为Server的TSQLWebSocketServer对象，并将TMyWebSocket服务添加到该对象中。然后，我们启动了WebSocket服务器。

1. 测试WebSocket服务：使用WebSocket客户端测试服务，例如：

ws://localhost:8080/

在代码中，我们使用WebSocket客户端连接到指定URL，并发送消息。当服务接收到消息时，将回复消息。

结论

以上是关于“最精简使用mORMot”的完整攻略，我们介绍了基本概念、步骤和两个示例说明。使用mORMot可以快速构建高效的Web应用程序和服务，包括RESTful、WebSocket等。我们提供了两个使用mORMot构建Web应用程序和服务的示例，希望能够帮助您更好地了解这个过程。