procedure TForm2.Button1Click(Sender: TObject);

begin

kbmmwserver1.AutoRegisterServices;

kbmmwserver1.Active:=true;

end;

type

  [kbmMW_Service('name:mactest, flags:[listed]')]

  [kbmMW_Rest('path:/mactest')]

  // Access to the service can be limited using the [kbmMW_Auth..] attribute.

  // [kbmMW_Auth('role:[SomeRole,SomeOtherRole], grant:true')]

  TkbmMWCustomHTTPSmartService1 = class(TkbmMWCustomHTTPSmartService)

  private

     { Private declarations }

  protected

     { Protected declarations }

  public

     { Public declarations }

     // HelloWorld function callable from both a regular client,

     // due to the optional [kbmMW_Method] attribute,

     // and from a REST client due to the optional [kbmMW_Rest] attribute.

     // The access path to the function from a REST client (like a browser)+

     // is in this case relative to the services path.

     // In this example: http://.../mactest/helloworld

     // Access to the function can be limited using the [kbmMW_Auth..] attribute.

     // [kbmMW_Auth('role:[SomeRole,SomeOtherRole], grant:true')]

     [kbmMW_Rest('method:get, path:helloworld')]

     [kbmMW_Method]

     function HelloWorld:string;

     [kbmMW_Method]

     function version:string;

     [kbmMW_Method]

     function EchoString(const AString:string):string;

     [kbmMW_Method]

     function AddNumbers(const AValue1,AValue2:integer;

                         [kbmMW_Arg(mwatRemoteLocation)]

                         const ARemoteLocation:string

                        ):integer  ;

  end;

implementation

{%CLASSGROUP 'System.Classes.TPersistent'}

uses kbmMWExceptions, mainp;

{$R *.dfm}

// Service definitions.

//---------------------

function TkbmMWCustomHTTPSmartService1.AddNumbers(const AValue1,

  AValue2: integer; const ARemoteLocation: string): integer;

begin

        Result:=AValue1+AValue2;

end;

function TkbmMWCustomHTTPSmartService1.EchoString(

  const AString: string): string;

begin

       Result:=AString;

end;

function TkbmMWCustomHTTPSmartService1.HelloWorld:string;

begin

     Result:='Hello world';

end;

function TkbmMWCustomHTTPSmartService1.version: string;

begin

  result:='kbmmw server for macos 64';

end;

initialization

  TkbmMWRTTI.EnableRTTI(TkbmMWCustomHTTPSmartService1);

end.

procedure TForm1.Button1Click(Sender: TObject);

var

   c:IkbmMWSmartClient;

   s:string;

begin

     Transport.Host:=eIP.Text;

     // Get a client which establishes connection over the given transport

     // to the given service which is set to be default for this client.

     c:=TkbmMWSmartRemoteClientFactory.GetClient(Transport,'MACTEST');

     s:=c.Service. helloworld ;

     memo1.Lines.Add(s);

     s:=c.Service.EchoString('abc');

     memo1.Lines.Add(s);

     s:=c.Service.version;

     memo1.Lines.Add(s);

     s:=c.Service.AddNumbers(,);

     memo1.Lines.Add(s);

end;