delphimvcframework/samples/soaprest/webservices/soap/SOAPCustomerImplU.pas

{ Invokable implementation File for TSOAPCustomer which implements ISOAPCustomer }

unit SOAPCustomerImplU;

interface

uses Soap.InvokeRegistry, System.Types, Soap.XSBuiltIns, SOAPCustomerIntfU;

type

  { TSOAPCustomer }
  TSOAPCustomer = class(TInvokableClass, ISOAPCustomer)
  public
    function GetCustomers: string; stdcall;
  end;

implementation

uses
  BOCustomersU, WSHelperCustomersU, System.SysUtils, System.JSON,
  ObjectsMappers;

function TSOAPCustomer.GetCustomers: string;
var
  WSHelperCustomers: TWSHelperCustomers;
  Customers: TCustomers;
begin
  WSHelperCustomers := TWSHelperCustomers.Create;
  try
    begin
      Customers := WSHelperCustomers.GetCustomers;
      try
        Result := Mapper.ObjectListToJSONArray<TCustomer>(Customers).ToJSON;
      finally
        FreeAndNil(Customers);
      end;
    end;
  finally
    FreeAndNil(WSHelperCustomers);
  end;
end;

initialization

{ Invokable classes must be registered }
InvRegistry.RegisterInvokableClass(TSOAPCustomer);

end.