Delphi 开发 API服务端实例

以下是使用 Delphi 开发 API 服务端的示例代码：

unit uAPIServer;

interface

uses
  System.SysUtils, System.Classes, IPPeerServer, REST.Backend.ServiceTypes,
  REST.Backend.EMSProvider, REST.Backend.EMSServer, REST.Backend.PushTypes,
  REST.Backend.PushDevice, REST.Backend.EMSAPI, REST.Backend.Endpoint,
  REST.Backend.ServiceComponents, REST.Backend.MetaTypes, REST.Backend.BindSource,
  REST.Backend.Service, REST.Server;

type
  TAPIServer = class(TDataModule)
    EMSProvider: TEMSProvider;
    EMSAPI: TEMSAPI;
    EMSResource: TEMSResource;
    BackendEndpoint: TBackendEndpoint;
    BackendAuth: TBackendAuthentication;
    BackendPush: TBackendPush;
    BackendUsers: TBackendUsers;
    BackendGroups: TBackendGroups;
    BackendQuery: TBackendQuery;
    BackendStorage: TBackendStorage;
    RESTServer: TRESTServer;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  APIServer: TAPIServer;

implementation

{%CLASSGROUP 'System.Classes.TPersistent'}

{$R *.dfm}

procedure TAPIServer.DataModuleCreate(Sender: TObject);
begin
  EMSProvider.ServerMethodsClass := nil;
  EMSProvider.Active := True;
end;

end.

在这个示例中，我们使用了 Delphi 的 REST.Backend.EMSProvider 单元来创建一个 EMSProvider 组件，该组件将提供 RESTful API 服务。我们还使用了 REST.Backend.EMSServer 单元来创建一个 EMSAPI 组件，该组件将负责处理来自客户端的请求。最后，我们使用了 REST.Server 单元来创建一个 RESTServer 组件，该组件将作为服务端运行。

在 DataModuleCreate 事件中，我们将 EMSProvider 的 ServerMethodsClass 属性设置为 nil，这意味着我们将不使用 Delphi 自动生成的服务方法类，而是手动编写服务方法。然后，我们将 EMSProvider 的 Active 属性设置为 True，这意味着 EMSProvider 已准备好接收来自客户端的请求。

接下来，您可以编写自己的服务方法，例如：

function TAPIServer.Echo(const AValue: string): string;
begin
  Result := AValue;
end;

该方法将接收一个字符串参数并返回相同的字符串。您可以在客户端应用程序中调用此方法，如下所示：

procedure TForm1.Button1Click(Sender: TObject);
begin
  RESTClient.BaseURL := 'http://localhost:8080';
  RESTRequest.Resource := '/echo';
  RESTRequest.Method := TRESTRequestMethod.rmPOST;
  RESTRequest.Params.AddItem('value', Edit1.Text);
  RESTRequest.Execute;
  Memo1.Lines.Add(RESTResponse.Content);
end;

在这个示例中，我们使用了 Delphi 的 REST.Client 单元来创建一个 RESTClient 组件，该组件将作为客户端应用程序使用。我们还使用了 REST.Request 单元来创建一个 RESTRequest 组件，该组件将用于向服务端发送请求。最后，我们使用了 REST.Response 单元来创建一个 RESTResponse 组件，该组件将用于接收来自服务端的响应。

在 Button1Click 事件中，我们将 RESTClient 的 BaseURL 属性设置为服务端的地址和端口号。我们将 RESTRequest 的 Resource 属性设置为服务端的请求路径。我们将 RESTRequest 的 Method 属性设置为 POST，因为我们将向服务端发送一个参数。我们使用 RESTRequest.Params.AddItem 方法来添加一个名为 "value" 的参数，并将其值设置为 Edit1.Text。最后，我们调用 RESTRequest.Execute 方法来发送请求并接收响应。我们将 RESTResponse 的 Content 属性添加到 Memo1 中，以便查看来自服务端的响应。

希望这个示例能对您有所帮助！