### 基于 mORMot2 的 MVC 模式实现 Windows 服务端应用程序 mORMot2 是一个强大的开源框架，支持多种开发模式，其中包括经典的 MVC（Model-View-Controller）架构。这种架构非常适合用于构建具有清晰分离关注点的服务端应用程序。下面详细介绍如何在 Windows 平台上利用 mORMot2 实现一个基于 MVC 设计的应用程序。 #### Model 层的设计 Model 层主要负责数据的定义和管理。通常我们会创建一系列继承自 `TSQLRecord` 的类来表示数据库中的表结构。例如： ```pascal type TPerson = class(TSQLRecord) private fID: integer; fName: RawUTF8; fAge: Integer; published property ID: integer read fID write fID; property Name: RawUTF8 read fName write fName; property Age: Integer read fAge write fAge; end; ``` 这里我们定义了一个简单的人员信息模型[^1]。 #### Controller 层的实现 Controller 主要处理业务逻辑，并作为 View 和 Model 之间的桥梁。我们可以编写 RESTful API 来暴露接口供外部访问。比如新增一个人员记录的方法如下所示： ```pascal procedure AddPerson(const AName: string; const AAge: Integer): Boolean; var Person: TPerson; begin Person := TPerson.CreateAndFillPrepare(nil); try Person.Name := AName; Person.Age := AAge; Result := Service.Add(Person); // 使用注入的服务实例添加新纪录 finally Person.Free; end; end; ``` 此函数接受姓名与年龄两个参数并将它们存入到对应的实体对象里再提交给持久层保存[^2]。 #### 初始化服务器及注册路由 最后一步就是设置 HTTP WebServer 并绑定之前定义好的控制器方法到指定 URL 上面去。一般做法是在启动阶段完成这些准备工作： ```pascal program MyMVCApp; {$APPTYPE CONSOLE} uses SynCommons, mORMot, mORMotSQLite3, SampleData in 'SampleData.pas'; { 包含上面提到过的TPerson声明 } const SERVER_PORT = 8090; var Server: TSQLRestServerDB; Model: TSQLModel; begin ReportMemoryLeaksOnShutdown := True; Model := TSQLModel.Create([TPerson], nil); try Server := TSQLRestServerDB.Create(Model, ChangeFileExt(ParamStr(0), '.db')); try with TRestServerURI.Register(Server) do begin OnAddPerson := AddPerson; end; Writeln('Starting server on port ', SERVER_PORT); Server.ServiceListen(SERVER_PORT); Readln; // Keep console open until user presses Enter key finally Server.Free; end; except on E: Exception do Writeln(E.ClassName, ': ', E.Message); end; Model.Free; end. ``` 以上脚本展示了基本的项目骨架搭建流程[^3]。 --- ###