8000 soft · pearroom/DelphiWebMVC@02df9e1 · GitHub
[go: up one dir, main page]
Skip to content

Commit 02df9e1

Browse files
pearroompearroom
committed
soft
更新
1 parent ae187bb commit 02df9e1

File tree

98 files changed

+32598
-386
lines changed

Some content is hidden

Large Commits have some content hidden by default. Use the searchbox below for content that may be hidden.

98 files changed

+32598
-386
lines changed

‎Demo/Controller/IndexController.pas‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -18,7 +18,7 @@ interface
1818
procedure check; //check 没有设置 请求路径，将以check 路径访问
1919
procedure verifycode;
2020
function Intercept: Boolean; override; //实现自己的拦截器 ，这里不采取拦截返回 false
21-
[MURL('getdata', sGET)] //这里请求rqdata地址并且请求是post方式，将会访问 getdata 方法,
21+
[MURL('getdata', GET)] //这里请求rqdata地址并且请求是post方式，将会访问 getdata 方法,
2222
procedure getdata;
2323
procedure getone;
2424
procedure socket;

‎Demo/Controller/UserController.pas‎

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -12,7 +12,7 @@ TUserController = class(TBaseController)
1212
public
1313
procedure index;
1414
//
15-
[MURL('getData', TMethod.sGET)]
15+
[MURL('getData', TMethod.GET)]
1616
procedure getData;
1717
procedure getrole;
1818
procedure add;
@@ -21,7 +21,7 @@ TUserController = class(TBaseController)
2121
// [MURL('del/:id', TMethod.sGET)]
2222
procedure del(id: string);
2323

24-
[MURL('save', TMethod.sPOST)]
24+
[MURL('save', TMethod.POST)]
2525
procedure save;
2626
procedure print;
2727

‎Demo/Project/WebDemo.dpr‎

Lines changed: 2 additions & 8 deletions
Original file line numberDiff line numberDiff line change
@@ -1,7 +1,5 @@
11
program WebDemo;
2-
//{$APPTYPE CONSOLE} //控制台模式
32
{$I mvc.inc}
4-
{$R *.res}
53

64
uses
75
MVC.App,
@@ -17,13 +15,9 @@ uses
1715
TableMap in '..\Service\Map\TableMap.pas',
1816
ServiceMap in '..\Service\Map\ServiceMap.pas';
1917

18+
{$R *.res}
19+
2020
begin
21-
{
22-
生成windows服务(注:无法在控制台模式下使用)：
23-
1：在Project目录mvc.inc文件中打开SERVICE开关。
24-
2：在config文件中设置WinService参数。
25-
}
2621
MVCApp.Run();
27-
2822
end.
2923

‎Demo/Project/WebDemo.dproj.local‎

Lines changed: 23 additions & 23 deletions
Original file line numberDiff line numberDiff line change
@@ -1,40 +1,40 @@
11
<?xml version="1.0" encoding="utf-8"?>
22
<BorlandProject>
33
<Transactions>
4-
<Transaction>2022/01/18 22:27:14.000.205,D:\my\DFinal\MVC.Form.dfm=D:\我的文档\Embarcadero\Studio\Projects\Unit1.dfm</Transaction>
5-
<Transaction>2022/01/18 22:27:24.000.844,D:\my\DFinal\DFinal.dproj=D:\我的文档\Embarcadero\Studio\Projects\Project1.dproj</Transaction>
6-
<Transaction>2022/01/18 22:31:02.000.651,D:\my\DFinal\DFinal.dproj=D:\my\DFinal\Project\DFinal.dproj</Transaction>
7-
<Transaction>2022/01/18 22:31:14.000.991,D:\my\DFinal\MVC.Form.dfm=D:\my\DFinal\Command\MVC.Form.dfm</Transaction>
8-
<Transaction>2022/01/18 22:34:30.000.426,D:\my\DFinal\Project\Unit1.pas=D:\my\DFinal\Command\MVC.MmtHttp.pas</Transaction>
9-
<Transaction>2022/01/18 23:06:31.000.041,D:\my\DFinal\Project\Unit1.pas=D:\my\DFinal\Command\MVC.pas</Transaction>
10-
<Transaction>2022/01/18 23:06:42.000.425,D:\my\DFinal\Command\MVC.JSON=D:\my\DFinal\Command\MVC.JSON.JSON</Transaction>
11-
<Transaction>2022/01/19 17:13:32.000.923,D:\my\DFinal\Command\MVC.HttpMmt.pas=D:\my\DFinal\Command\MVC.MmtHttp.pas</Transaction>
12-
<Transaction>2022/01/23 10:09:05.000.871,D:\my\DFinal\Project\DFinal.dproj=D:\my\DFinal\Project\Project\DFinal.dproj</Transaction>
13-
<Transaction>2022/01/23 10:09:53.000.648,D:\my\DFinal\Project\Project\DFinal.dproj=D:\my\DFinal\Project\DFinal.dproj</Transaction>
14-
<Transaction>2022/01/26 11:11:09.000.999,D:\my\DFinal\Command\MVC.App.pas=D:\my\DFinal\Command\MVC.Command.pas</Transaction>
15-
<Transaction>2022/01/27 13:07:30.000.275,D:\my\DFinal\Command\MVC.App.pas=D:\my\DFinal\Command\MVC.Command.pas</Transaction>
16-
<Transaction>2022/01/30 13:36:00.000.696,D:\my\DFinal\Command\MVC.DB.DB=D:\my\DFinal\Command\MVC.DB</Transaction>
17-
<Transaction>2022/02/01 22:02:33.000.922,D:\my\DFinal\Project\Unit1.pas=D:\my\DFinal\Command\MVC.DM1.pas</Transaction>
18-
<Transaction>2022/02/03 18:47:08.000.649,D:\my\DFinal\Command\MVC.SQL.SQL=D:\my\DFinal\Command\MVC.SQL</Transaction>
19-
<Transaction>2022/02/03 20:33:34.000.848,D:\my\DFinal\Service\Table\TableMap.pas=D:\my\DFinal\Service\TableMap.pas</Transaction>
20-
<Transaction>2022/02/08 09:31:39.000.335,D:\my\DFinal\Project\Unit1.pas=D:\my\DFinal\Config\MVC.Redis.pas</Transaction>
21-
<Transaction>2022/02/17 20:16:47.000.620,D:\my\MVC-demo\Project\MVCDemo.dproj=D:\my\MVC-demo\Project\DFinal.dproj</Transaction>
22-
<Transaction>2022/02/19 19:30:27.000.501,D:\my\MVC5.0.1-layui\Project\MVCDemo.dproj=D:\my\MVC5.0.1-layui\Project\MVCTest.dproj</Transaction>
23-
<Transaction>2022/02/19 19:51:51.000.214,D:\my\MVC5.0.1-layui\Project\MVCDemo.dproj=D:\my\MVC5.0.1-layui\Project\MVCTest.dproj</Transaction>
24-
<Transaction>2022/02/21 15:48:27.000.144,D:\my\MVC5.0-Demo\WebDemo\Project\WebDemo.dproj=D:\my\MVC5.0-Demo\WebDemo\Project\MVCDemo.dproj</Transaction>
4+
<Transaction>2022-01-18 22:27:14.000.205,D:\我的文档\Embarcadero\Studio\Projects\Unit1.dfm=D:\my\DFinal\MVC.Form.dfm</Transaction>
5+
<Transaction>2022-01-18 22:27:24.000.844,D:\我的文档\Embarcadero\Studio\Projects\Project1.dproj=D:\my\DFinal\DFinal.dproj</Transaction>
6+
<Transaction>2022-01-18 22:31:02.000.651,D:\my\DFinal\Project\DFinal.dproj=D:\my\DFinal\DFinal.dproj</Transaction>
7+
<Transaction>2022-01-18 22:31:14.000.991,D:\my\DFinal\Command\MVC.Form.dfm=D:\my\DFinal\MVC.Form.dfm</Transaction>
8+
<Transaction>2022-01-18 22:34:30.000.426,D:\my\DFinal\Command\MVC.MmtHttp.pas=D:\my\DFinal\Project\Unit1.pas</Transaction>
9+
<Transaction>2022-01-18 23:06:31.000.041,D:\my\DFinal\Command\MVC.pas=D:\my\DFinal\Project\Unit1.pas</Transaction>
10+
<Transaction>2022-01-18 23:06:42.000.425,D:\my\DFinal\Command\MVC.JSON.JSON=D:\my\DFinal\Command\MVC.JSON</Transaction>
11+
<Transaction>2022-01-19 17:13:32.000.923,D:\my\DFinal\Command\MVC.MmtHttp.pas=D:\my\DFinal\Command\MVC.HttpMmt.pas</Transaction>
12+
<Transaction>2022-01-23 10:09:05.000.871,D:\my\DFinal\Project\Project\DFinal.dproj=D:\my\DFinal\Project\DFinal.dproj</Transaction>
13+
<Transaction>2022-01-23 10:09:53.000.648,D:\my\DFinal\Project\DFinal.dproj=D:\my\DFinal\Project\Project\DFinal.dproj</Transaction>
14+
<Transaction>2022-01-26 11:11:09.000.999,D:\my\DFinal\Command\MVC.Command.pas=D:\my\DFinal\Command\MVC.App.pas</Transaction>
15+
<Transaction>2022-01-27 13:07:30.000.275,D:\my\DFinal\Command\MVC.Command.pas=D:\my\DFinal\Command\MVC.App.pas</Transaction>
16+
<Transaction>2022-01-30 13:36:00.000.696,D:\my\DFinal\Command\MVC.DB=D:\my\DFinal\Command\MVC.DB.DB</Transaction>
17+
<Transaction>2022-02-01 22:02:33.000.922,D:\my\DFinal\Command\MVC.DM1.pas=D:\my\DFinal\Project\Unit1.pas</Transaction>
18+
<Transaction>2022-02-03 18:47:08.000.649,D:\my\DFinal\Command\MVC.SQL=D:\my\DFinal\Command\MVC.SQL.SQL</Transaction>
19+
<Transaction>2022-02-03 20:33:34.000.848,D:\my\DFinal\Service\TableMap.pas=D:\my\DFinal\Service\Table\TableMap.pas</Transaction>
20+
<Transaction>2022-02-08 09:31:39.000.335,D:\my\DFinal\Config\MVC.Redis.pas=D:\my\DFinal\Project\Unit1.pas</Transaction>
21+
<Transaction>2022-02-17 20:16:47.000.620,D:\my\MVC-demo\Project\DFinal.dproj=D:\my\MVC-demo\Project\MVCDemo.dproj</Transaction>
22+
<Transaction>2022-02-19 19:30:27.000.501,D:\my\MVC5.0.1-layui\Project\MVCTest.dproj=D:\my\MVC5.0.1-layui\Project\MVCDemo.dproj</Transaction>
23+
<Transaction>2022-02-19 19:51:51.000.214,D:\my\MVC5.0.1-layui\Project\MVCTest.dproj=D:\my\MVC5.0.1-layui\Project\MVCDemo.dproj</Transaction>
24+
<Transaction>2022-02-21 15:48:27.000.144,D:\my\MVC5.0-Demo\WebDemo\Project\MVCDemo.dproj=D:\my\MVC5.0-Demo\WebDemo\Project\WebDemo.dproj</Transaction>
2525
</Transactions>
2626
<ProjectSortOrder AutoSort="0" SortType="0">
27-
<File Path="..\..\WebDemo"/>
27+
<File Path="..\..\Demo"/>
2828
<File Path="..\Controller"/>
2929
<File Path="..\Controller\BaseController.pas"/>
3030
<File Path="..\Controller\IndexController.pas"/>
3131
<File Path="..\Controller\MainController.pas"/>
3232
<File Path="..\Controller\UserController.pas"/>
3333
<File Path="..\Service"/>
3434
<File Path="..\Service\Map"/>
35+
<File Path="..\Service\Map\ServiceMap.pas"/>
3536
<File Path="..\Service\Map\SQLMap.pas"/>
3637
<File Path="..\Service\Map\TableMap.pas"/>
37-
<File Path="..\Service\Map\ServiceMap.pas"/>
3838
<File Path="..\Service\IndexService.pas"/>
3939
<File Path="..\Service\MainService.pas"/>
4040
<File Path="..\Service\RoleService.pas"/>

‎Demo/Project/WebDemo.identcache‎

-92 Bytes
Binary file not shown.

‎Demo/Project/mvc.inc‎

Lines changed: 21 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -1,4 +1,21 @@
1-
{$STRONGLINKTYPES ON} //必须保留
2-
////////////////////////////////
3-
{.$DEFINE SERVICE} //生成windows服务编译条件默认关闭，去掉"."设定为打开状态
4-
{$DEFINE LOGDEBUG} //调试日志开关，正式发布关闭
1+
2+
{$STRONGLINKTYPES ON} //禁止删除
3+
{.$APPTYPE CONSOLE} //控制台模式
4+
{.$DEFINE SERVICE} //生成windows服务编译条件
5+
{.$DEFINE LOGDEBUG} //调试日志开关，正式发布关闭
6+
{.$DEFINE CROSSSOCKET} //使用跨平台Cross-Socket库
7+
8+
9+
{----------------------配置说明--------------------}
10+
///////////////////////////////////////////////////
11+
//1.生成windows服务，
12+
//2.关闭{$APPTYPE CONSOLE}，打开{$DEFINE SERVICE}
13+
//3.在config文件中设置WinService参数。
14+
///////////////////////////////////////////////////
15+
16+
17+
///////////////////////////////////////////////////
18+
//1.进行linux等跨平台开发
19+
//2.打开{$APPTYPE CONSOLE},{$DEFINE CROSSSOCKET}
20+
///////////////////////////////////////////////////
21+
{----------------------配置说明--------------------}

‎Demo/Publish/Resources/config.json‎

Lines changed: 10 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -13,9 +13,19 @@
1313
"ServiceType":"stWin32",
1414
"StartType":"stAuto"
1515
},
16+
"Redis":{
17+
"Host":"127.0.0.1",
18+
"Port":6379,
19+
"PassWord":"admin",
20+
"InitSize":5,
21+
"TimeOut":60,
22+
"ReadTimeOut":10
23+
},
1624
"Config":{
1725
"auto_start":true,
1826
"APP":"",
27+
"leftFmt":"#{",
28+
"rightFmt":"}",
1929
"session_timer":30,
2030
"open_log":true,
2131
"open_debug":true,

‎Demo/Publish/mvc.ini‎

Lines changed: 2 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,2 @@
1+
[ResPath]
2+
Path=

‎Demo/Publish/sqlite.db‎

0 Bytes
Binary file not shown.

‎Demo/Temp/BaseController.dcu‎

5.66 KB
Binary file not shown.

0 commit comments

Comments
 (0)
0