Нестандартный Datasnap

unit ServerMethodsCertification;
 
interface
 
uses System.SysUtils, System.Classes, System.Json,
    Datasnap.DSServer, Datasnap.DSAuth, DataSnap.DSProviderDataModuleAdapter,Vcl.Dialogs,
    Evaluating_expressions_1; // модуль -куда передается параметр и откуда потом возвращаются данные в виде массива строк
 
type
  TServerMethods1 = class(TDSServerModule)
  private
    { Private declarations }
  public
    { Public declarations }
    function EchoString(Value: string): string;
    function ReverseString(Value: string): string;
    procedure Head_Evaluating_expressions(s_1_file_location: string;
     var Mas_1_of_calculated_results:Vector_of_calculated_results);
  end;
 
 var ServerMethods1: TServerMethods1;
 
implementation
 
 
{$R *.dfm}
 
 
uses System.StrUtils, ServerContainer_Certification;
 
function TServerMethods1.EchoString(Value: string): string;
begin
  Result := Value;
end;
 
function TServerMethods1.ReverseString(Value: string): string;
begin
  Result := System.StrUtils.ReverseString(Value);
end;
 
procedure [B]TServerMethods1.Head_Evaluating_expressions(s_1_file_location: string;
  var Mas_1_of_calculated_results: Vector_of_calculated_results);[/B]
begin
   Head_0_Evaluating_expressions(s_1_file_location,
   Mas_1_of_calculated_results);
end;
 
end.

unit Connecting_to_Server;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Data.SqlExpr, Data.DbxDatasnap,
  IPPeerClient, Data.DBXCommon, Datasnap.DBClient, Datasnap.DSConnect;
 
type
  TConnection_to_Server = class(TForm)
    SQLConnection1: TSQLConnection;
    DSProviderConnection1: TDSProviderConnection;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Connection_to_Server: TConnection_to_Server;
 
implementation
 
{$R *.dfm}
 
procedure TConnection_to_Server.FormCreate(Sender: TObject);
begin
  SQLConnection1.Open;
end;
 
end.

[B]TServerMethods1.Head_Evaluating_expressions(s_1_file_location: string;
  var Mas_1_of_calculated_results: Vector_of_calculated_results);[/B]

//
// Created by the DataSnap proxy generator.
//
 
unit ServerMethodsClient;
 
interface
 
uses System.JSON, Data.DBXCommon, Data.DBXClient, Data.DBXDataSnap, Data.DBXJSON, Datasnap.DSProxy, System.Classes, System.SysUtils, Data.DB, Data.SqlExpr, Data.DBXDBReaders, Data.DBXCDSReaders, Data.DBXJSONReflect;
 
type
  TServerMethods1Client = class(TDSAdminClient)
  private
    FEchoStringCommand: TDBXCommand;
    FReverseStringCommand: TDBXCommand;
  public
    constructor Create(ADBXConnection: TDBXConnection); overload;
    constructor Create(ADBXConnection: TDBXConnection; AInstanceOwner: Boolean); overload;
    destructor Destroy; override;
    function EchoString(Value: string): string;
    function ReverseString(Value: string): string;
  end;

SMC:TServerMethods1Client;