procedure TForm1.Button1Click(Sender: TObject);
beginkbmmwserver1.Active:=True;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
kbmmwserver1.AutoRegisterServices;
end;

 [kbmMW_Service('name:xalionrest, flags:[listed]')][kbmMW_Rest('path:/xalionrest')]// 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://.../xalionhttp/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;end;implementationuses kbmMWExceptions;{$R *.dfm}// Service definitions.
//---------------------function TkbmMWCustomHTTPSmartService1.HelloWorld:string;
beginResult:='Hello world';
end;initializationTkbmMWRTTI.EnableRTTI(TkbmMWCustomHTTPSmartService1);
end.

function TkbmMWCustomHTTPSmartService1.HelloWorld:string;
beginResult:='{"result":"Hello world"}';
end;

     [kbmMW_Rest('method:get, path:version')][kbmMW_Method]function version:string;end;implementationuses kbmMWExceptions;{$R *.dfm}// Service definitions.
//---------------------function TkbmMWCustomHTTPSmartService1.version: string;
beginResult:='{"result":"'+self.Server.Version+'"}';
end;

[kbmMW_Method('EchoString')]       // 回应输入的串[kbmMW_Rest('method:get, path: ["echostring/{AString}","myechostring/{AString}" ]')][kbmMW_Auth('role:[SomeRole,SomeOtherRole], grant:true')]function EchoString([kbmMW_Rest('value: "{AString}"')] const AString:string):string;

function TkbmMWCustomHTTPSmartService1.EchoString(const AString: string): string;
beginresult:='{"result":"你好！'+astring+'"}';;
end;

[kbmMW_Method][kbmMW_Rest('method:get, path: "cal/addnumbers"')]function AddNumbers([kbmMW_Rest('value: "$arg1", required: true')] const AValue1:integer;[kbmMW_Rest('value: "$arg2", required: true')] const AValue2:integer;[kbmMW_Arg(mwatRemoteLocation)] const ARemoteLocation:string):string;

function TkbmMWCustomHTTPSmartService1.AddNumbers(const AValue1,AValue2: integer; const ARemoteLocation: string):string;
beginResult:='{"result":"'+(AValue1+AValue2).ToString+'"}';;
end;

<table width="770" border="0" align="center" cellpadding="0" cellspacing="0" class="unnamed2"><tr><td width="848" align="center"><span class="style1">新生录取查询</span><br></td></tr><form name="form1" method="post" action="/xalionrest/postdata"><tr><td align="center"><span class="style2">姓名：</span>          <input name="xsxm" type="text" id="xsxm"><span class="style2">身份证号：</span>          <input name="sfzh" type="text" id="sfzh"></td></tr><tr><td align="center"><br><input type="submit" name="Submit" value="提交" onClick="return B1_onclick()">　　　　　　　　<input type="reset" name="Submit" value="重置"></td></tr></form>
</table>

 [kbmMW_Rest('method:post, path:postdata')][kbmMW_Method]function postdata:string;

function TkbmMWCustomHTTPSmartService1.postdata: string;
varvl:TkbmMWHTTPCustomValues;s,xsxm,sfzh:string;p:Tbytes;beginvl:=TkbmMWHTTPQueryValues.Create;tryp:= RequestStream.SaveToBytes;vl.AsString:= Tencoding.ASCII.GetString(p);xsxm:= vl.ValueByName['xsxm'];sfzh:=vl.ValueByName['sfzh'];// 这里就可以向数据库里面操作了
result:='姓名:'+xsxm+'      身份证号'+sfzh;finallyvl.Free ;end;SetResponseMimeType('text/html');end;

 [kbmMW_Rest('method:post, path:poststring')][kbmMW_Method]function poststring([kbmMW_Rest('value: "body", required: true')] const body:string):string;

function TkbmMWCustomHTTPSmartService1.poststring(const body: string): string;
varvl:TkbmMWHTTPCustomValues;s,xsxm,sfzh:string;
beginvl:=TkbmMWHTTPQueryValues.Create;tryvl.AsString:= body;xsxm:= vl.ValueByName['xsxm'];sfzh:=vl.ValueByName['sfzh'];// 这里就可以向数据库里面写了
result:='姓名:'+xsxm+'      身份证号'+sfzh;finallyvl.Free ;end;SetResponseMimeType('text/html');end;