freepascal.compiler/packages/fcl-web/examples/jsonrpc/rtti/myapi.pp

{
    This file is part of the Free Component Library

    Unit with the interface definitions, common between client and server

    Copyright (c) 2022 by Michael Van Canneyt [email protected]

    See the file COPYING.FPC, included in this distribution,
    for details about the copyright.

    This program is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.

 **********************************************************************}
unit myapi;

{$mode ObjFPC}{$H+}

interface

uses sysutils; // for TStringArray

Type
  { enable RTTI for methods! }
  {$M+}
  IMyInterface = interface ['{E4C73198-0831-47B9-944C-E2D7EFAE1C6A}']
   procedure SayHello;
   function Echo(args : Array of string) : String;
   function DoSum(a,b : Integer) : integer;
   function Split(aLine,aSep : string) : TStringArray;
   function DoVarTest(var aArg: String): Boolean;
  end;

  IMyOtherInterface = interface ['{4D52BEE3-F709-44AC-BD31-870CBFF44632}']
    Function SayHello : string;
    function Echo(args : TStringArray) : String;
  end;

implementation

end.