Delphi 10.4 DataSnap RESTful 服务示例

Delphi 10.4 DataSnap 提供了方便的组件和API，使得开发者可以轻松创建RESTful服务。在Delphi 10.4中，DataSnap允许您构建基于TDataModule和TDSRESTServer组件的服务，这里是一个简单的RESTful服务示例：

1. 首先，你需要创建一个数据模块（TDataset），例如连接到数据库，并配置好数据源。

uses REST;
var
  MyDataset: TSQLDataset;
begin
  MyDataset := TSQLDataset.Create(nil);
  try
    // 连接到数据库并设置查询
    MyDataset.Connection := TADOConnection.Create(nil);
    MyDataset.Connection.ConnectionString := 'your_connection_string';
    MyDataset主动打开;
    // 添加查询、字段等...
  finally
    MyDataset.Free;
  end;
end;

2. 然后，创建一个TDSRESTServer并在其上添加资源操作（GET, POST, PUT, DELETE等）:

var
  MyRESTServer: TDSServer;
begin
  MyRESTServer := TDSServer.Create(nil);
  try
    MyRESTServer.ServiceName := 'MyService'; // 服务名
    MyRESTServer.DataModule := MyDataset; // 将数据模块绑定到服务器

    // 创建一个资源操作，比如获取所有数据的GET请求
    var Resource: TRestResource;
    Resource := TRestResource.Create(MyRESTServer);
    Resource.Path := '/data';
    Resource.Method := rmGet;
    Resource.Executable := TProcedure.Create(DataModule.GetDataProc); // 数据处理过程
  finally
    MyRESTServer OnDestroy;
  end;
end;

在这个例子中，`GetDataProc` 是一个自定义过程，负责从`MyDataset`执行实际的数据查询和返回结果。