| 123456789101112131415161718192021222324252627282930313233 |
- {
- This file is part of the Free Component Library
- Minimal server program for JSON-RPC 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.
- **********************************************************************}
- program demorpcrtti;
- {$mode objfpc}{$H+}
- {$if not defined(CPU386) and not defined(WIN64)}
- {$define useffi}
- {$endif}
- uses
- fphttpapp, rpcapi, dmRPC {$ifdef useffi}, ffi.manager {$endif}, myapi;
- begin
- Application.Title:='FPC JSON-RPC using RTTI';
- Application.Port:=8080;
- Application.Initialize;
- Application.Run;
- end.
|
