DELPHI盒子
!实时搜索: 盒子论坛 | 注册用户 | 修改信息 | 退出
检举帖 | 全文检索 | 关闭广告 | 捐赠
技术论坛
 用户名
 密  码
自动登陆(30天有效)
忘了密码
≡技术区≡
DELPHI技术
移动应用开发
Web应用开发
数据库专区
报表专区
网络通讯
开源项目
论坛精华贴
≡发布区≡
发布代码
发布控件
文档资料
经典工具
≡事务区≡
网站意见
盒子之家
招聘应聘
信息交换
论坛信息
最新加入: jason_123_jason
今日帖子: 56
在线用户: 13
导航: 论坛 -> Web应用开发 斑竹:bodies  
作者:
男 olddelphier (oldDelphier) ▲▲△△△ -
注册会员
2018/11/29 9:27:02
标题:
用delphi来重写个盒子论坛怎么样? 浏览:774
加入我的收藏
楼主: 用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 (keymark) ▲△△△△ -
注册会员
2018/11/29 9:56:49
5楼: 代码库:https://gitee.com/pearroom/DelphiWebMVC
用这个得了
 把恶意提交解决就行了。
剩下的都是前端页面
另外盒子的下载服务器是自己的。。不是IIS什么的。。。
----------------------------------------------
m3u8播放器:DPlayer/hlsjs-p2p-engine/ckplayer/flashls-dev/sewise-player/http不能播https某些情况下dns服务:coredns/http服务:miniweb/!http://www.lib4dev.com/topics/delphi>http://www.lib4dev.com/topics/pascal?p=34&s=!http://www.lib4dev.com/topics/delphi
作者:
男 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 (kylixfans) ★☆☆☆☆ -
盒子活跃会员
2018/11/29 11:38:22
10楼: 谢谢楼上推荐mvcxe的,mvcxe带了一个bbs的demo,
http://bbs.mvcxe.com/bbs/index
只完成了基本功能,要实用还有很多工作要做。

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

个人觉得用啥语言写delphi的论坛并不是什么值得纠结的事
----------------------------------------------
MVCXE中国首个DELPHI MVC WEB框架:http://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
大家可以下载看看是否有用
----------------------------------------------
DelphiWebMVC介绍 https://m.gitee.com/pearroom/DelphiWebMVC
作者:
男 kinneng (kinneng) ★☆☆☆☆ -
盒子活跃会员
2018/12/4 2:31:37
26楼: 是十分之没必要搞的,要搞去别处搞,这里一直低调就很好。
----------------------------------------------
声明:本人不在论坛询问任何编程问题,请不要将我的帖子当成问题来回答。炒股一天,编程三年,不浪费时间了。 经常在外面,没空,不要找我..
作者:
男 wg657304880 (TemAs) ▲▲△△△ -
注册会员
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
----------------------------------------------
-
信息
登陆以后才能回复
Copyright © 2CCC.Com 盒子论坛 v2.1 版权所有 页面执行31.25毫秒 RSS