mORMot 1.18 第十八章 使用REST/JSON的客户端/服务器

JSON是一种被多种语言和众多领先公司接受的标准。正如我们在JSON章节中所解释的，它是标准化的，紧凑且解析速度快，同时当加入非关键性空格时，也易于人类阅读。这些事实使其成为数据交换最受欢迎的格式之一。

JSON支持六种数据类型：

结构性字符包括大括号{}、中括号[]、冒号:和逗号,。当你查看示例时，你会发现像电话号码这样的复杂格式可以简单地视为字符串处理。

比如：

{
	"firstName": "John",
	"lastName": "Smith",
	"age": 25,
	"address": {
		"streetAddress": "21 2nd Street",
		"city": "New York",
		"state": "NY",
		"postalCode": 10021
	},
	"phoneNumbers": [{
			"type": "home",
			"number": "212 555-1234"
		},
		{
			"type": "fax",
			"number": "646 555-4567"
		}
	]
}

JSON的默认编码是UTF8，与SQLite3和EWB相同。这允许存储和传输完整的Unicode字符集在客户端和服务器之间。

当我们需要存储或传输二进制BLOBs时，使用Base64编码。

下表描述了Pascal变量是如何转换的：

18.1 REST

REST（表征状态转移）是一种从客户端向服务器请求/传输信息，并从服务器返回信息到客户端的策略。

• 一切都是资源
• 每个资源都通过一个唯一标识符（URI中的I）来标识
• 使用简单且统一的接口
• 通过表征进行通信
• 每个请求都是无状态的

使用REST时，你会用到URI（唯一资源标识符）来标识资源。

例如：

实际上，叫“Dupont”和“Smith”的人很多，所以通常人们会使用像客户编号、十六进制值或GUID这样的唯一ID。

CRUD操作的接口包括POST、GET、PUT和DELETE。

表征是我们描述对象的方式，通常使用JSON或XML来完成。

XML表征：

<Customer>
  <ID>1234</ID>
  <Name>Dupond</Name>
  <Address>Tree street</Address>
</Customer>

相同的JSON表征：

{"Customer": {"Name":"Dupond", "Address":"Tree street"}}

使用XML或JSON通过POST添加记录将返回刚刚创建的ID。

无状态意味着每个请求都是独立的。这意味着服务器甚至可以在请求之间重新启动，或者负载均衡器可以将请求转发到不同的实际主机。服务器不维护任何形式的状态表，如会话变量等。

结果是更精简、更高效、更可扩展的服务器或集群。

18.2 RESTful mORMot

当一个系统实现了非常接近纯粹REST的东西时，该系统被称为RESTful系统。

mORMot可以使用HTTP/HTTPS，但它也适用于使用Windows安全模型的命名管道。

它还可以使用另一种不需要使用昂贵的证书及其缓慢握手的加密形式——这是谷歌也曾描述过的一个话题。这对于封闭的mORMot客户端（多平台）和服务器系统非常有用。但你仍然可以访问基于标准的更慢、更常见的版本。

mORMot允许以下非标准功能来加速对记录的访问。

它们是可选的。

• LOCK，用于锁定集合中的一个成员；
• UNLOCK，用于解锁集合中的一个成员；
• BEGIN，用于启动事务；
• END，用于提交事务；
• ABORT，用于回滚事务。

BLOBs通过单独的事务处理，使用的URI类似于ModelRoot/TableName/TableID/BlobFieldName。

这样做的优点是能够使用高效的二进制传输，而将BLOBs存储在JSON中大约需要两倍的空间/数据/时间。

18.3 传输方式的选择

传输方式是指客户端和服务器之间通信使用的方法。目前，mORMot支持四种传输方式：

• 进程内通信——在同一进程内部进行最高速度的访问。
• Windows消息——在同一台机器上的进程之间进行非常快速的通信。与进程内通信相比，这种方式略有开销。非常适合少数客户端，但不具备扩展性。
• 命名管道——在同一台或不同的Windows机器上的两个进程之间进行快速通信。适合工作组使用，但扩展性不好。
• HTTP/HTTPS——在Internet或私有内网上的任意两台计算机之间进行相当快速的通信。使用标准技术。在win32中可以扩展到50,000多个，在64位模型中可以扩展到更多。

比较这些方法：

Windows消息版本通常不太实用，因为包括服务器进程在内的所有应用程序必须处于图形用户界面（GUI）模式，并且都在同一台机器上运行。

命名管道在通信中曾很受欢迎，但从Windows Vista开始，对命名管道的局域网访问默认是关闭的，因此您必须手动启用它。

HTTP/HTTPS是一个很好的通用解决方案。它被普遍接受，具有良好的扩展性，并且已经过每台服务器超过50,000个连接的测试。通信速度仍然很快。

请注意，甚至可以同时使用多种协议。例如，使用进程内通信来完成某些任务，同时也提供局域网或HTTP版本的服务。

18.4 HTTP/HTTPS 传输

以下是如何使用HTTP初始化数据库的方法。

Model := CreateSampleModel;
DBServer := TSQLRestServerDB.Create( Model,ChangeFileExt( paramstr(0), '.db3'),true);
DBServer.CreateMissingTables;
HttpServer := TSQLHttpServer.Create('8080', [DBServer],'+', HTTP_DEFAULT_MODE);

通常，您还可以使用以下行允许跨站点的AJAX查询：

HttpServer.AccessControlAllowOrigin := '*'; // 允许跨站点AJAX查询

您通常会使用以下设置进行域名重定向：

HttpServer.DomainHostRedirect('project.com','root'); // 'root' 是当前的 Model.Root
HttpServer.DomainHostRedirect('blog.project.com','root/blog'); // MVC 应用程序

包含三种类型的服务器，但幸运的是，mORMot 可以简单地从最快的选项故障转移到最兼容的选项，只要是被允许的：

• THttpApiServer - 使用 Windows 的高速内部内核模式 http.sys 驱动程序，并且如果您选择，它还可以实现用于 TLS/SSL 安全通信的 HTTPS。这应该是您的首选。
• THttpServer 是基于套接字或 WebSockets 的实现。

18.5 HTTPS

要启用 HTTPS，您必须在 TSQLHttpServer.Create() 构造函数的 aHttpServerSecurity 参数中设置 secSSL。

您还需要证书。您可以使用本地证书颁发机构或商业机构之一。这些按照 Windows IIS 的通常方式安装。

mORMot 网站包含当前所有操作系统的该过程的最新说明。

18.6 AES加密 - HTTPS的替代方案

AES是一种加密选项，不需要分发SSL的PKI对。

首先，积极的一面是：

• 它使用了标准的SHA-256和AES-256/CTR算法，这些算法都很好。这意味着没有共享密码的人阅读数据流将无法拦截查询或结果，也无法制造虚假的查询或结果。
• 它的速度也比HTTPS快。

不利的一面是：

• AES在客户端和服务器之间使用共享密钥，如果密钥被泄露，所有数据都可以通过适当的嗅探技术被读取。
• PKI的作用不仅仅是防止中间人查看数据，它还保证你正在连接的是你请求的服务器。如果有人知道这个秘密，他可能会制造一些极有可能会成功的攻击。
• 虽然该算法是标准的，但它的应用却不是。非mORMot编译的客户端无法使用此技术。

如果你能忍受这些限制，AES是一个很好的选择。

在服务器上，可以通过secSynShaAes启用它。

CompressShaAesSetKey('Gudmw324daJKLAF(*\&' );
MyServer := TSQLHttpServer.Create(
'888',[DataBase],'+',useHttpApi,32,secSynShaAes);

在客户端上，你只需将Compression属性设置为hcSynShaAes。

CompressShaAesSetKey('Gudmw324daJKLAF')
MyClient.Compression := [hcSynShaAes];

你还应该考虑压缩，因为它可以通过减少可用于收集信息的信息内容（例如数据包大小）来提高安全性。

18.7 压缩

压缩有几个目的：

• 减少慢速链接上的数据传输时间；
• 降低昂贵链接（企业上行链路、手机数据费用）上的数据成本；
• 混淆数据...尤其是与上述加密结合使用时。mORMot支持两种加密方法。
• Deflate - 一种基于ZIP的标准压缩技术。它的缺点是它有点CPU密集型，但也能达到最好的效果；
• SynLZ - 一种专有的方法，对服务器CPU负载更轻。它只适用于mORMot编码的客户端，不适用于EWB或其他人的客户端。

你可以单独启用一种压缩或另一种压缩。我建议同时启用两者，这样当SynLZ可用时，mORMot将使用SynLZ进行压缩，否则默认使用Deflate，并完全基于标准。

MyClient.Compression := [hcSynLZ,hcDeflate];

18.8 示例

以下是一个在8080端口上实现HTTP协议的极简数据库服务器。

program cssimpleserver;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  SynCommons, mORMot, mORMotSQLite3, SynSQLite3Static,  // 引入必要的单元
  mORMotHttpServer,
  csclass in 'csclass.pas';

var
  Model: TSQLModel;          // SQL模型变量
  DB: TSQLRestServerDB;      // 数据库变量
  Server: TSQLHttpServer;    // HTTP服务器变量
  s: string;                 // 字符串变量

procedure Start;
begin
  Model := CreateSampleModel;            // 创建样本模型
  DB := TSQLRestServerDB.Create(Model, 'd:\cstest.db3', true);  // 创建数据库连接
  DB.CreateMissingTables;                // 创建缺失的表
  Server := TSQLHttpServer.Create('8080', [DB], '+', HTTP_DEFAULT_MODE);  // 在8080端口上创建HTTP服务器
  Server.AccessControlAllowOrigin := '*'; // 设置跨域资源共享策略，允许任何来源的请求
end;

procedure Stop;
begin
  Server.Free;  // 释放HTTP服务器资源
  DB.Free;      // 释放数据库资源
  Model.Free;   // 释放模型资源
end;

begin
  try
    Start;                 // 启动服务器
    writeln('按"Enter回车"键退出');  // 提示用户按回车键退出
    readln(s);             // 读取用户输入，等待用户按下回车键
  except
    on E: Exception do     // 异常处理
      writeln(E.ClassName, ': ', E.Message);  // 输出异常类型和异常信息
  end;
  Stop;                    // 停止服务器并释放资源
end.

注释说明：

• TSQLModel：表示数据库模型的类，定义了数据库的结构和关系。
• TSQLRestServerDB：表示基于REST的数据库服务器类，用于处理数据库的CRUD操作。
• TSQLHttpServer：表示HTTP服务器类，用于监听HTTP请求并返回响应。
• CreateSampleModel：是一个自定义函数，用于创建一个示例的数据库模型。
• DB.CreateMissingTables：调用此方法会创建在数据库中缺失的表，这些表是基于 Model定义的。
• Server.AccessControlAllowOrigin：设置HTTP响应头 Access-Control-Allow-Origin，用于控制哪些源可以访问该资源，'*'表示允许任何源访问。
• readln(s)：用于等待用户输入，直到用户按下回车键，程序才会继续执行。这里主要是为了让程序持续运行，直到用户主动停止。
• Stop过程中释放资源的顺序很重要，通常先释放依赖其他资源的对象（如 Server），再释放被依赖的资源（如 DB和 Model）。

它使用了一个小的TSQLRecord派生类：

program cssimpleserver;

{$APPTYPE CONSOLE}

uses
  System.SysUtils,
  SynCommons, mORMot, mORMotSQLite3, SynSQLite3Static,  // 引入必要的单元
  mORMotHttpServer,
  csclass in 'csclass.pas';

var
  Model: TSQLModel;          // SQL模型变量
  DB: TSQLRestServerDB;      // 数据库变量
  Server: TSQLHttpServer;    // HTTP服务器变量
  s: string;                 // 字符串变量

procedure Start;
begin
  Model := CreateSampleModel;            // 创建样本模型
  DB := TSQLRestServerDB.Create(Model, 'd:\cstest.db3', true);  // 创建数据库连接
  DB.CreateMissingTables;                // 创建缺失的表
  Server := TSQLHttpServer.Create('8080', [DB], '+', HTTP_DEFAULT_MODE);  // 在8080端口上创建HTTP服务器
  Server.AccessControlAllowOrigin := '*'; // 设置跨域资源共享策略，允许任何来源的请求
end;

procedure Stop;
begin
  Server.Free;  // 释放HTTP服务器资源
  DB.Free;      // 释放数据库资源
  Model.Free;   // 释放模型资源
end;

begin
  try
    Start;                 // 启动服务器
    writeln('press return to exit');  // 提示用户按回车键退出
    readln(s);             // 读取用户输入，等待用户按下回车键
  except
    on E: Exception do     // 异常处理
      writeln(E.ClassName, ': ', E.Message);  // 输出异常类型和异常信息
  end;
  Stop;                    // 停止服务器并释放资源
end.

注释说明：

• TSQLModel：表示数据库模型的类，定义了数据库的结构和关系。
• TSQLRestServerDB：表示基于REST的数据库服务器类，用于处理数据库的CRUD操作。
• TSQLHttpServer：表示HTTP服务器类，用于监听HTTP请求并返回响应。
• CreateSampleModel：是一个自定义函数，用于创建一个示例的数据库模型。
• DB.CreateMissingTables：调用此方法会创建在数据库中缺失的表，这些表是基于 Model定义的。
• Server.AccessControlAllowOrigin：设置HTTP响应头 Access-Control-Allow-Origin，用于控制哪些源可以访问该资源，'*'表示允许任何源访问。
• readln(s)：用于等待用户输入，直到用户按下回车键，程序才会继续执行。这里主要是为了让程序持续运行，直到用户主动停止。
• Stop过程中释放资源的顺序很重要，通常先释放依赖其他资源的对象（如 Server），再释放被依赖的资源（如 DB和 Model）。

这个客户端也很简单。

{$APPTYPE CONSOLE}

uses
  System.SysUtils,
  SynCommons, mORMot, mORMothttpclient,  // 引入必要的单元
  csclass in 'csclass.pas';

var
  Model: TSQLModel;          // 定义SQL模型变量
  DB: TSQLHttpClient;        // 定义HTTP客户端数据库连接变量
  s: string;                 // 定义字符串变量

procedure Start;
var
  Server: AnsiString;        // 定义服务器地址变量
begin
  if ParamCount = 0 then      // 如果没有传入命令行参数
    Server := 'localhost'     // 则默认服务器为本地
  else
    Server := AnsiString(Paramstr(1));  // 否则取第一个命令行参数为服务器地址
  Model := CreateSampleModel; // 创建样本模型
  DB := TSQLHttpClient.Create(Server, '8080', Model);  // 创建HTTP客户端数据库连接
  DB.SetUser('User', 'synopse');  // 设置数据库用户
end;

procedure Stop;
begin
  DB.Free;  // 释放数据库连接
  Model.Free;  // 释放模型
end;

// 读取指定用户的记录
procedure readone(user: string);
var
  rec: TSQLSampleRecord;
  res: string;
begin
  try
    rec := TSQLSampleRecord.Create(DB, 'Name = ?', [StringToUTF8(user)]);
    if rec.ID = 0 then
      res := 'Not found'
    else
      res := UTF8ToString(rec.Question);
    writeln('Question for ', user, ' is ', res);
  finally
    rec.Free;
  end;
end;

// 写入指定用户的记录
procedure writeone(user, Question: string);
var
  rec: TSQLSampleRecord;
begin
  try
    rec := TSQLSampleRecord.Create;
    rec.Name := StringToUTF8(user);
    rec.Question := StringToUTF8(Question);
    if DB.Add(rec, True) = 0 then
      writeln('ERROR: adding message to db!')
    else
      writeln('message added.')
  finally
    rec.Free;
  end;
end;

var
  user: string;  // 定义用户名字符串变量

begin
  try
    Start;  // 启动程序
    user := 'erick';  // 设置用户名为erick
    readone(user);   // 读取用户记录
    writeone(user, 'Happy Day');  // 写入用户记录
    readone(user);  // 再次读取用户记录
  except
    on E: Exception do  // 异常处理
      writeln(E.ClassName, ': ', E.Message);  // 输出异常类名和异常信息
  end;
  Stop;  // 停止程序
end.

注释说明：

• TSQLModel 是一个代表数据库模型的类，用于定义数据库的结构。
• TSQLHttpClient 是一个用于与HTTP服务器通信的客户端类，它实现了通过HTTP协议与服务器进行数据交换的功能。
• CreateSampleModel 是一个创建样本模型的函数，它返回一个 TSQLModel实例，该实例包含了数据库中所有表的结构信息。
• readone 函数用于从数据库中读取指定用户的记录，并输出相关信息。
• writeone 函数用于向数据库中写入指定用户的记录，并输出操作结果。
• 在 try...except块中调用 Start、readone、writeone和 Stop等函数，以确保在程序运行过程中出现异常时能够正常处理并释放资源。同时，通过输出异常信息来帮助定位问题所在。
• 程序首先通过 Start函数初始化数据库连接和模型，然后通过调用 readone和 writeone函数来读取和写入用户记录，最后在 Stop函数中释放资源并结束程序运行。

注意：本文由hieroly翻译于2024年04月26日

热门相关：福慧双全   惹火小辣妻：老公，用力点   重生豪门宠婚：枭宠不乖娇妻   强宠头号鲜妻：陆少，滚！   神医娘亲：腹黑萌宝赖上门