sql-server - 德尔福EMS FireDAC : How to pass parameter from client to server using EMS?

Question

我正在 Delphi 中使用 EMS(即:用于 future 的 iOS 应用程序)开发简单的客户端服务器应用程序。

在客户端单元上，我有 EMSProvider 和 EMSFireDACClient，它们通过数据源从数据库 (MSSQL) 获取数据。

在服务器单元上，我有FDConnection和TFDQuery来处理我的数据库。到目前为止，一切正常。

问题:现在我需要将一些参数从客户端传递到服务器并获取结果数据。我应该如何使用EMS？ EMS 中有可用的功能或程序吗？

关于源代码，一切都由相应的组件处理。所以编码部分非常少。

提前致谢。

Answer 1

EMS 调用类似于 REST 调用。您可以在路径中传递更多 URL 参数(直接处理)——请参阅按 ID 获取项目的默认实现)以及作为额外的查询参数。这些都在请求对象中。要传递它们，请在客户端中使用自定义端点。

这里有一些更多信息:

服务器声明:

[ResourceSuffix('{item}')]
procedure GetItem(const AContext: TEndpointContext; const ARequest: TEndpointRequest; const AResponse: TEndpointResponse);

服务器实现:

procedure TNotesResource1.GetItem(const AContext: TEndpointContext; const ARequest: TEndpointRequest; const AResponse: TEndpointResponse);
var
  LItem: string;
begin
  LItem := ARequest.Params.Values['item'];
  ...

端点的客户端配置:

object BackendEndpointGetNote: TBackendEndpoint
  Provider = EMSProvider1
  Auth = BackendAuth1
  Params = <
    item
      Kind = pkURLSEGMENT
      name = 'item'
      Options = [poAutoCreated]
    end>
  Resource = 'Notes'
  ResourceSuffix = '{item}'
end

客户电话:

  BackendEndpointGetNote.Params.Items[0].Value := AID;
  BackendEndpointGetNote.Execute;

希望这有帮助。