新建
DataSnap REST Application
勾上 Simplified Dispatcher
选择 TDSServerModule (如果选择 TComponent,第一次点 Open Browser 看内容时候,会报错。虽然没啥影响,但总是不舒服。)
之后改一下代码
unit ServerMethodsUnit1;
interface
uses System.SysUtils, System.Classes, System.Json,
DataSnap.DSProviderDataModuleAdapter,
Datasnap.DSServer, Datasnap.DSAuth;
type
TServerMethods1 = class(TDSServerModule)
private
{ Private declarations }
public
{ Public declarations }
function EchoString(Value: string): string;
function ReverseString(Value: string): string;
// 好像函数的起头代表了隐藏能力。以 Test 函数为例。
// Get Test
// Post updateTest
// Delete cancelTest
// Put acceptTest
end;
implementation
{$R *.dfm}
uses System.StrUtils