DELPHI盒子
!实时搜索: 盒子论坛 | 注册用户 | 修改信息 | 退出
检举帖 | 全文检索 | 关闭广告 | 捐赠
技术论坛
 用户名
 密  码
自动登陆(30天有效)
忘了密码
≡技术区≡ ①
DELPHI技术
lazarus/fpc/Free Pascal
移动应用开发
Web应用开发
数据库专区
报表专区
网络通讯
开源项目
论坛精华贴
≡发布区≡ ②
发布代码
发布控件
文档资料
经典工具
≡事务区≡ ③
网站意见
盒子之家
招聘应聘
信息交换
论坛信息
最新加入： jeff1314
今日帖子： 10
在线用户： 12
导航： 论坛 -> Web应用开发 斑竹:bodies  
作者：
男 olddelphier (oldDelphier) ▲▲▲▲△ -
普通会员
2018/11/29 9:27:02
标题：
用delphi来重写个盒子论坛怎么样？ 浏览:3312
加入我的收藏
楼主： 用delphi来重写个盒子论坛怎么样？
开放代码，大家一起来完善，
站长估计被美女搞垮了身体，都没时间维护了
----------------------------------------------
-
作者：
男 glwang (glwang) ★☆☆☆☆ -
盒子活跃会员
2018/11/29 9:41:24
1楼： 支持，在GitHub弄个项目，为Delphi在TIOBE编程语言排行榜+1分，我一直不理解：VB.NET凭啥能总在前5名徘徊！！！！D这些年一直进不了前10！！！！！！！！！！
----------------------------------------------
作者：
男 homejun (homejun) ★☆☆☆☆ -
盒子活跃会员
2018/11/29 9:48:47
2楼： 用mvcxe
----------------------------------------------
-delphi新资讯站 http://www.delphigear.cn
作者：
男 olddelphier (oldDelphier) ▲▲▲▲△ -
普通会员
2018/11/29 9:52:10
3楼： 那个mvcxe是要卖钱的，
还是自己从头开始写吧，当学习项目了
其他人拿着也可以改成自己的系统
----------------------------------------------
-
作者：
男 wac1104 (火鸟) ★☆☆☆☆ -
普通会员
2018/11/29 9:54:26
4楼： 用mormot呗
----------------------------------------------
火鸟
作者：
男 keymark (嬲) ▲▲▲△△ -
普通会员
2018/11/29 9:56:49
5楼： 代码库:https://gitee.com/pearroom/DelphiWebMVC
用这个得了
 把恶意提交解决就行了。
剩下的都是前端页面
另外盒子的下载服务器是自己的。。不是IIS什么的。。。
----------------------------------------------
[alias]  co = clone --recurse-submodules  up = submodule update --init --recursiveupd = pullinfo = statusrest = reset --hard懒鬼提速https://www.cctry.com/>http://qalculate.github.io/downloads.htmlhttps://www.cctry.com/
作者：
男 feiyanm (feiyanm) ▲▲▲▲▲ -
普通会员
2018/11/29 10:11:25
6楼： 有现成的各种成熟、可靠、经过各种时间检验的PHP论坛，为啥要用D呢？
再退一步，ASP.Net也有各种可靠的呀！
好吧，我说了上面的话会不会得罪一大票人，然后被打死啊？赶紧买个5级盔戴上再说。。。。
----------------------------------------------
Delphi威武！千秋万代，一统江湖！Delphi威武！千秋万代，一统江湖！Delphi威武！千秋万代，一统江湖！Delphi威武！千秋万代，一统江湖！Delphi威武！千秋万代，一统江湖！Delphi威武！千秋万代，一统江湖！Delphi威武！千秋万代，一统江湖！我去WC吐一会儿去！
作者：
男 olddelphier (oldDelphier) ▲▲▲▲△ -
普通会员
2018/11/29 10:14:59
7楼： delphi论坛用php来写，会不会有点不合时宜啊？
只是个学习项目，了解下用delphi开发web 的一般用法
没必要较真
----------------------------------------------
-
作者：
男 olddelphier (oldDelphier) ▲▲▲▲△ -
普通会员
2018/11/29 10:25:05
8楼： 还是先把数据库搞定吧
----------------------------------------------
-
作者：
男 olddelphier (oldDelphier) ▲▲▲▲△ -
普通会员
2018/11/29 11:05:26
9楼： 我以前写微信公众号用的

    //链接模板
    procedure test(Request:TWebRequest; Response: TWebResponse);
        var
        ss:TStringList;        //保存html内容
        cnn:TADOConnection;    //数据库连接
        fquery:TADOQuery;      //adoquery;
        userid,username:string;//用户编号 姓名
        loginflag:Boolean;
        begin
        CoInitialize(nil);

        //检查有无登录,不需要登录的话注释此段
        loginflag:=dm.Checklogin(cnn,Request ,userid,username);
        if not loginflag then
          begin
          //跳转到登录并返回
          dm.loginwithlink(Request,Response,'test' );
          Exit;
          end;



        try
          try


          //创建初始对象
          ss:=TStringList.Create;
          cnn:=dm.Getconn;
          dm.InitQuery(cnn,fquery);

          //获取全局变量


          //增加head部分内容
          dm.addHead(ss,Request,Response,'');
          //加入自己的head内容

          ss.Add('</head><body>');
          //增加title部分内容
          dm.addTitle(ss,Request,Response);

          //////////业务逻辑代码//////////


          //////////业务逻辑代码//////////
          //增加底部内容
          dm.addfoot(cnn,ss,Request,Response);

          //返回html
          dm.SaveContent(Response,ss);


          except
          on e:Exception do
          begin
          //错误处理
          dm.saveerr('项目模板',e.Message);
          dm.alert(Request,Response,'程序执行出错');
          end;
          end
        finally
          //清理环境
          dm.FreeConn(cnn);
          FreeAndNil(ss);
          FreeAndNil(fquery);
          CoUninitialize;
        end;
        end;
----------------------------------------------
-
作者：
男 sail2000 (小帆工作室) ★☆☆☆☆ -
盒子活跃会员
2018/11/29 11:30:41
10楼： 我是看看热闹的，你们聊
此帖子包含附件:
JPEG 图像
大小:456.1K
----------------------------------------------
delphi 是兴趣，和工作无关，即使它倒闭。又不靠它 delphi 吃饭，怕甚？
作者：
男 drroc (mvcxe) ★☆☆☆☆ -
盒子活跃会员
2018/11/29 11:38:22
10楼： 谢谢楼上推荐mvcxe的，mvcxe带了一个bbs的demo，
http://bbs.mvcxe.com/bbs/index
只完成了基本功能，要实用还有很多工作要做。

如果站长有需要改进2ccc的bbs程序，可以效力，这年头免费的劳动力到哪找啊:)

个人觉得用啥语言写delphi的论坛并不是什么值得纠结的事
----------------------------------------------
MVCXE中国首个DELPHI MVC WEB框架:https://www.mvcxe.com/
作者：
男 vkow (vkow) ★☆☆☆☆ -
普通会员
2018/11/29 11:44:06
11楼： 如果能组织起来，拿Delphi重写论坛也是可行的。

虽然我反对Delphi做web商业开发。但是这种小众论坛，大家一起玩玩也是不错的。
----------------------------------------------
-
作者：
男 744840146 (744840146) ▲▲▲▲▲ -
普通会员
2018/11/29 12:44:46
12楼：   弄一个盒子网站开发大赛，把盒子的数据库格式公开，然后想用什么工具就用什么工具，想用什么语言就用什么语言。唯一要求实现数据库一键导入，就可以完整运行。最终在论坛上投票，决定用那套代码。
----------------------------------------------
-
作者：
男 olddelphier (oldDelphier) ▲▲▲▲△ -
普通会员
2018/11/29 13:10:37
13楼： 谁有盒子的数据结构？自己设计一个可能不兼容
----------------------------------------------
-
作者：
男 744840146 (744840146) ▲▲▲▲▲ -
普通会员
2018/11/29 13:16:07
14楼： 就是要盒子把数据结构公布给要开发的人员，不要公开发出来就可以
----------------------------------------------
-
作者：
男 olddelphier (oldDelphier) ▲▲▲▲△ -
普通会员
2018/11/29 13:18:29
15楼： 公开也没关系的，就是一些空表
----------------------------------------------
-
作者：
男 zyp1984 (小李他妈的飞刀) ★☆☆☆☆ -
普通会员
2018/11/29 13:38:24
16楼： 为什么非要用切肉的刀来锯木头。。。。
----------------------------------------------
山外青山楼外楼,能人背后有能人弄..
作者：
男 icebreeze (icebreeze) ▲▲▲▲▲ -
普通会员
2018/11/30 0:46:20
17楼： 站长是谁？
----------------------------------------------
-
作者：
男 olddelphier (oldDelphier) ▲▲▲▲△ -
普通会员
2018/11/30 9:11:14
18楼： 没有原始数据库结构，自己弄了个简单的,sql2000

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[user]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)
drop table [dbo].[user]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[menu]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)
drop table [dbo].[menu]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[topic]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)
drop table [dbo].[topic]
GO

CREATE TABLE [dbo].[user] (
  [userid] [bigint] IDENTITY (1, 1) NOT NULL ,
  [username] [nvarchar] (50) COLLATE Chinese_PRC_CI_AS NULL ,
  [nickname] [nvarchar] (50) COLLATE Chinese_PRC_CI_AS NULL ,
  [email] [nvarchar] (50) COLLATE Chinese_PRC_CI_AS NULL ,
  [qq] [nvarchar] (50) COLLATE Chinese_PRC_CI_AS NULL ,
  [tel] [nvarchar] (20) COLLATE Chinese_PRC_CI_AS NULL ,
  [sex] [nvarchar] (10) COLLATE Chinese_PRC_CI_AS NULL ,
  [pwd] [nvarchar] (100) COLLATE Chinese_PRC_CI_AS NULL ,
  [label] [nvarchar] (1000) COLLATE Chinese_PRC_CI_AS NULL 
) ON [PRIMARY]
GO

CREATE TABLE [dbo].[menu] (
  [menuid] [bigint] IDENTITY (1, 1) NOT NULL ,
  [mainmenu] [nvarchar] (50) COLLATE Chinese_PRC_CI_AS NULL ,
  [submenu] [nvarchar] (50) COLLATE Chinese_PRC_CI_AS NULL ,
  [master1] [bigint] NULL ,
  [master2] [bigint] NULL ,
  [master3] [bigint] NULL ,
  [master4] [bigint] NULL ,
  [master5] [bigint] NULL 
) ON [PRIMARY]
GO

CREATE TABLE [dbo].[topic] (
  [topicid] [bigint] NOT NULL ,
  [userid] [bigint] NULL ,
  [menuid] [bigint] NULL ,
  [parentid] [bigint] NULL ,
  [createdate] [datetime] NULL ,
  [lastreplaydate] [datetime] NULL ,
  [title] [nvarchar] (100) COLLATE Chinese_PRC_CI_AS NULL ,
  [content] [ntext] COLLATE Chinese_PRC_CI_AS NULL ,
  [readcount] [int] NULL ,
  [replaycount] [int] NULL 
) ON [PRIMARY] TEXTIMAGE_ON [PRIMARY]
GO

ALTER TABLE [dbo].[user] WITH NOCHECK ADD 
  CONSTRAINT [PK_user] PRIMARY KEY  CLUSTERED 
  (
    [userid]
  )  ON [PRIMARY] 
GO

ALTER TABLE [dbo].[menu] WITH NOCHECK ADD 
  CONSTRAINT [PK_menu] PRIMARY KEY  CLUSTERED 
  (
    [menuid]
  )  ON [PRIMARY] 
GO

ALTER TABLE [dbo].[topic] WITH NOCHECK ADD 
  CONSTRAINT [PK_topic] PRIMARY KEY  CLUSTERED 
  (
    [topicid]
  )  ON [PRIMARY] 
GO
----------------------------------------------
-
作者：
男 olddelphier (oldDelphier) ▲▲▲▲△ -
普通会员
2018/11/30 9:12:48
19楼： 等几天搞个git项目，把样板放上去，大家可以自己维护
----------------------------------------------
-
作者：
男 olddelphier (oldDelphier) ▲▲▲▲△ -
普通会员
2018/11/30 9:26:05
20楼： 有没美工，重新设计个版式？html的
----------------------------------------------
-
作者：
男 feiyanm (feiyanm) ▲▲▲▲▲ -
普通会员
2018/11/30 12:02:30
21楼： 站长来了...大家赶紧鼓掌啊!!!
----------------------------------------------
Delphi威武！千秋万代，一统江湖！Delphi威武！千秋万代，一统江湖！Delphi威武！千秋万代，一统江湖！Delphi威武！千秋万代，一统江湖！Delphi威武！千秋万代，一统江湖！Delphi威武！千秋万代，一统江湖！Delphi威武！千秋万代，一统江湖！我去WC吐一会儿去！
作者：
男 sail2000 (小帆工作室) ★☆☆☆☆ -
盒子活跃会员
2018/11/30 17:25:44
22楼： 其实吧，我想说的是，盒子的登录很不安全，发送的明文的密码，很容易很别有用心的人在同一局域网抓包得到。。。
----------------------------------------------
delphi 是兴趣，和工作无关，即使它倒闭。又不靠它 delphi 吃饭，怕甚？
作者：
男 kinneng (kinneng) ★☆☆☆☆ -
盒子活跃会员
2018/12/1 0:36:58
23楼： 别搞了，我注册15年了，盒子这风格，经历一路上的风风雨雨，活得好好的，别一搞就死。
----------------------------------------------
声明：本人不在论坛询问任何编程问题，请不要将我的帖子当成问题来回答。炒股一天，编程三年，不浪费时间了。 经常在外面,没空,不要找我..
作者：
男 ma9888 (majx) ★☆☆☆☆ -
盒子活跃会员
2018/12/1 14:36:30
24楼： 很有必要搞一个，这可以进一步提高DELPHI和盒子的人气，培养增强和锻炼粉丝DELPHI WEB开发的能力，有助于DELPHI和盒子更红火！！！
----------------------------------------------
-
作者：
男 joman (joman) ▲▲▲▲▲ -
普通会员
2018/12/1 15:26:59
25楼： https://m.gitee.com/pearroom/DelphiWebMVC
大家可以下载看看是否有用
----------------------------------------------
DelphiWeb开发方案(开源)：https://gitee.com/pearroom/DelphiWebMVC
作者：
男 kinneng (kinneng) ★☆☆☆☆ -
盒子活跃会员
2018/12/4 2:31:37
26楼： 是十分之没必要搞的，要搞去别处搞，这里一直低调就很好。
----------------------------------------------
声明：本人不在论坛询问任何编程问题，请不要将我的帖子当成问题来回答。炒股一天，编程三年，不浪费时间了。 经常在外面,没空,不要找我..
作者：
男 wg657304880 (寒酥) ▲▲▲▲△ -
普通会员
2018/12/5 11:21:04
27楼： 搞个掌上盒子论坛还可以啊，移动端的，方便随时刷。
----------------------------------------------
-
作者：
男 olddelphier (oldDelphier) ▲▲▲▲△ -
普通会员
2018/12/5 18:33:44
28楼： 用delphi写个公众号的，网页结构，版面简单点，也可以随时浏览和灌水
XE4+webbroker+SQL2000 没有任何第三方组件
----------------------------------------------
-
作者：
男 olddelphier (oldDelphier) ▲▲▲▲△ -
普通会员
2018/12/5 18:39:18
29楼： 项目种子 以前做的公众号系统部分功能可以利用起来
此帖子包含附件:
PNG 图像
大小:157.6K
----------------------------------------------
-
作者：
女 google220 (google220) ★☆☆☆☆ -
普通会员
2018/12/19 23:03:26
30楼： 一定要用delphi搞一个论坛，保持风格、界面一样就行了。
----------------------------------------------
菩提本无树，明镜亦非台，本来无一物，何处惹尘埃
作者：
女 google220 (google220) ★☆☆☆☆ -
普通会员
2018/12/19 23:21:11
31楼： 而且尽量用最新版本的delphi开发。把delphi的性能发挥到至极。
----------------------------------------------
菩提本无树，明镜亦非台，本来无一物，何处惹尘埃
作者：
女 google220 (google220) ★☆☆☆☆ -
普通会员
2019/1/9 23:11:32
32楼： 这个再次支持。
----------------------------------------------
菩提本无树，明镜亦非台，本来无一物，何处惹尘埃
作者：
男 olddelphier (oldDelphier) ▲▲▲▲△ -
普通会员
2019/1/10 9:36:35
33楼： 最近在忙公司的云项目，等项目做完开搞
----------------------------------------------
-
作者：
男 ptdelphi (Delphi) ▲▲▲▲△ -
普通会员
2019/1/10 17:11:18
34楼： 顶一个
----------------------------------------------
还可以更好
信息
登陆以后才能回复
Copyright © 2CCC.Com 盒子论坛 v3.0.1 版权所有 页面执行93.75毫秒 RSS