DelphiWebMVC 开源项目教程

最新推荐文章于 2024-09-14 08:33:48 发布

金畏战Goddard

最新推荐文章于 2024-09-14 08:33:48 发布

阅读量1k

点赞数 19

本文链接：https://blog.csdn.net/gitblog_00038/article/details/142240383

版权

DelphiWebMVC 开源项目教程

DelphiWebMVC delphi在web系统开发上没有像java或php 这样方便，对于一直使用delphi的工程师来说是个遗憾，因此使用delphi技术开发了一套Web框架，使用MVC模式，让工程师只需把精力放在模型与视图的设计上，让delphi开发web系统更方便项目地址: https://gitcode.com/gh_mirrors/de/DelphiWebMVC

1. 项目介绍

DelphiWebMVC 是一个基于 Delphi 技术构建的 Web 应用程序框架，采用 MVC（Model-View-Controller）设计模式。该框架旨在简化 Delphi 开发者在构建三层架构的 Web 应用时的工作流程。通过使用 DelphiWebMVC，开发者可以将精力集中在模型与视图的设计上，从而更方便地开发 Web 系统。

主要特点

MVC 设计模式：采用经典的 MVC 架构，使代码结构清晰，易于维护。
跨平台支持：支持 Windows、Linux 等操作系统。
数据库支持：支持 MySQL、SQLite、MSSQL、Oracle 等多种数据库。

2. 项目快速启动

环境准备

Delphi XE10.3 及以上版本
管理员权限运行 Delphi

安装步骤

下载框架 SDK：

git clone https://github.com/pearroom/DelphiWebMVC.git

配置开发环境：
- 打开 Delphi，选择 File -> Open，加载项目中的 Demo 文件夹。
- 在项目中引用 SDK：
```
uses MVC.DataSet, MVC.BaseController, MainService;
```

编写控制器：

unit MainController;
interface
uses System.SysUtils, System.Classes, MVC.DataSet, BaseController, MainService;

type
  [MURL('Main', 'Main')]
  TMainController = class(TBaseController)
  public
    [MURL('index')]
    procedure index;
    procedure menu;
  end;

implementation

procedure TMainController.index;
var
  ds: IDataSet;
begin
  SetAttr('realname', Session.getValue('username'));
  ds := Service.Main.getMenu;
  SetAttr('menuls', ds.toJSONArray);
  Show('main');
end;

procedure TMainController.menu;
var
  ds: IDataSet;
begin
  ds := Service.Main.getMenu;
  ShowJSON(ds);
end;

end.