MiniREST

น้อยที่สุด

สร้างเซิร์ฟเวอร์ REST อย่างง่ายโดยใช้ Delphi

ตัวอย่าง

THelloWorldController = class (TMiniRESTControllerBase)
public
  [RequestMapping( ' /hello ' )]
  procedure Hello ;
  [RequestMapping( ' /hello/{name} ' )]
  procedure HelloWithPathVariable ;
end ;

procedure THelloWorldController.Hello ;
begin
  Response( ' Hello World! ' );
end ;

procedure THelloWorldController.HelloWithPathVariable ;
begin
  Response( ' Hello ' + PathVariable( ' name ' ));
end ;

procedure TForm1.btnStartClick (Sender: TObject);
begin
  FMiniRESTServer := TMiniRESTServerIndy.Create;
  FMiniRESTServer.AddController(THelloWorldController);
  FMiniRESTServer.SetPort(StrToIntDef(edtPort.Text, 8080 ));
  FMiniRESTServer.Start;
end ;