# DelphiWebMVC

**Repository Path**: forloving/DelphiWebMVC

## Basic Information

- **Project Name**: DelphiWebMVC
- **Description**: delphi在web系统开发上没有像java或php 这样方便，对于一直使用delphi的工程师来说是个遗憾，因此使用delphi技术开发了一套Web框架，使用MVC模式，让工程师只需把精力放在模型与视图的设计上，让delphi开发web系统更方便。
- **Primary Language**: Delphi
- **License**: Apache-2.0
- **Default Branch**: master
- **Homepage**: https://my.oschina.net/delphimvc
- **GVP Project**: No

## Statistics

- **Stars**: 2
- **Forks**: 77
- **Created**: 2018-12-11
- **Last Updated**: 2021-08-09

## Categories & Tags

**Categories**: Uncategorized

**Tags**: None

## README

# DelphiWebMVC使用说明:
	版本:1.0
	项目用到mORMot代码库,可到这里下载。
	项目用到TScriptControl 组件请自行安装。
	链接：https://pan.baidu.com/s/19j1QesY7kwluiK6tSd7jXQ 提取码：p24h 
	测试项目：http://47.98.102.37:8001/
	讨论QQ群: 685072623

	开发工具:delphi xe10.2 
	数据库支持MySQL,SQLite,MSSQL,Oracle,其它数据库可自行进行添加。
	
	Action : 控制器类存放目录
	Common : 框架相关代码
	Config : 项目配置相关代码
	Module : 数据库引擎及webbroker服务代码
	Syn : https.sys相关类库
	bin : 视图页面js,css,html,数据库配置相关资源

	数据库连接与服务端口修改：
	配置bin/config.ini 文件
	例：
	[Server]
	Root=
	Port=8001

	[MYSQL]  
	Server=127.0.0.1
	Port=3307
	DriverID=MySQL
	Database=test
	User_Name=root
	Password=root
	CharacterSet=utf8
	Compress=False
	Pooled=True
	POOL_CleanupTimeout=30000
	POOL_ExpireTimeout=90000
	POOL_MaximumItems=50

	[SQLite]
	DriverID=SQLite
	Database=sqlite.db
	User_Name=
	Password=
	OpenMode=CreateUTF8
	Pooled=true;
	POOL_CleanupTimeout=30000
	POOL_ExpireTimeout=90000
	POOL_MaximumItems=50

	使用数据库设置：
	unit uConfig;

	interface
	uses DBMySql,DBSQLite,DBMSSQL,DBMSSQL12,DBOracle;
	type TDB = TDBMySql;          // TDBMySql,TDBSQLite,TDBMSSQL,TDBMSSQL12(2012版本以上),TDBOracle
	const
	  db_type='MYSQL';            // MYSQL,SQLite,MSSQL,ORACLE
	  db_start = true;            // 启用数据库
	  template = 'view';          // 模板根目录
	  template_type = '.html';    // 模板文件类型
	  session_start = true;       // 启用session
	  session_timer = 0;          // session过期时间分钟  0 不过期
	  config = 'config.ini';      // 数据库配置文件地址
	  open_log=true;              // 打开日志
	  default_charset='utf-8';    // 字符集

	implementation

	end.


	路由配置：
	在Config/uRouleMap.pas 配置相关路由
	例:
	unit uRouleMap;

	interface

	uses
	  Roule;

	type
	  TRouleMap = class(TRoule)
	  public
		constructor Create(); override;
	  end;

	implementation

	uses
	  LoginAction, UsersAction, MainAction, IndexAction, KuCunAction;

	constructor TRouleMap.Create;
	begin
	  inherited; //必须继承
	 //参数说明: 路径;控制器;视图目录
	  SetRoule('/', TLoginAction, 'login');
	  SetRoule('/Main', TMainAction, 'main');
	  SetRoule('/Users', TUsersAction, 'users');
	  SetRoule('/kucun', TKuCunAction, 'kucun');
	end;

	end.

	控制器开发：
	存放在Action文件夹
	例:
	unit LoginAction;

	interface

	uses
	  System.SysUtils, System.Classes, FireDAC.Stan.Intf, Data.DB, superobject,
	  BaseAction;

	type
	  TLoginAction = class(TBaseAction)
	  public
		procedure index();
		procedure check();
		procedure checknum();
	  end;

	implementation

	uses
	  uTableMap;

	procedure TLoginAction.check();
	var
	  json: string;
	  sdata, ret: ISuperObject;
	  username, pwd: string;
	  sql: string;
	begin
	  ret := SO();
	  with View do
	  begin
		try
		  username := Input('username');
		  pwd := Input('pwd');
		  Sessionset('username', username);
		  json:=Sessionget('username');
		  sql := ' and username=' + Q(username) + ' and pwd=' + Q(pwd);
		  sdata := Db.FindFirst(tb_users, sql);
		  if (sdata <> nil) then
		  begin
			json:=sdata.AsString;
			Sessionset('username', username);
			Sessionset('name', sdata.S['name']);
			ret.I['code'] := 0;
			ret.S['message'] := '登录成功';
		  end else begin
			ret.I['code'] := -1;
			ret.S['message'] := '登录失败';
		  end;
		  ShowJson(ret);
		except on e:Exception do
		  ShowText(e.ToString);
		end;

	  end;
	end;

	procedure TLoginAction.checknum;
	var
	  num:string;
	begin
	  Randomize;
	  num:= inttostr(Random(9))+inttostr(Random(9))+inttostr(Random(9))+inttostr(Random(9));
	  View.ShowCheckIMG(num,60,30);
	end;

	procedure TLoginAction.index();
	begin
	  with View do
	  begin
		ShowHTML('Login');
	  end;
	end;

	end.

	拦截器配置：
	在 Config/BaseAction.pas 修改 TBaseAction.Interceptor 函数 

	例：
	function TBaseAction.Interceptor: boolean;  //拦截器
	var
	  url: string;
	begin
	  Result := false;
	  with View do
	  begin
		url := LowerCase(Request.PathInfo);
		if (Error) then
		begin
		  Result := true;
		  exit;
		end;
		if (url <> '/') and (url <> '/index') 
		and (url <> '/check') 
		and (url <> '/checknum') 
		and (url <> '/favicon.ico') then
		begin
		  if (SessionGet('username') = '') then
		  begin
			Result := true;
			Response.Content := '<script>window.location.href=''/'';</script>';
			Response.SendResponse;
		  end;
		end;
	  end;
	end;
	
	框架当前实现标记：
    setAttr('ls',list.AsString);
    setAttr('key1','1');
    setAttr('key2','2');
	setAttr('key3','3');
    setAttr('username','admin');
    setAttr('user',jo.ToString);
	
	<#include file=/public.html>

	#{username}
	#{user.name}
	<#if key1 eq 1 and key2 eq 2 or key3 eq 3 >
	<div>
		<#list data=ls item=d>
			<span>#{d.name}</span>
			<#if d.sex eq 1>男 <#else if d.sex eq 0> 女 <#else> 未知  </#if><br>

		</#list>
	</div>
	<#else>
	   不存在
	</#if>
	
	条件类别
	'neq', '!=='	
	'eq', '=='
	'and', '&&'
	'or', '||'
	'gte', '>='
	'ge', '>='
	'gt', '>='
	'lte', '<='
	'le', '<='
	'lt', '<'