用delphi+Apache开发动态网站(二)

原作者: [db:作者] 来自: [db:来源] 收藏邀请

-------创建数据库应用

时间过的真快，距离上次写Delphi+Apache 开发动态网站已经快一年了，Borland 的Delphi 7都发布快半年了，一直没有时间静下写文章，今天就写一下怎么创建数据库应用,其实网站的数据库和普通的客户端应用差不多，唯一的不同就是那些可视化控件不能再用了，虽然delphi 6 和7里面提供的websnap 功能比较强大，但是在实际应用中定制性太差，可控制的东西复杂，因此本文还是以web broker 为例。

一般的网页都是以上、中、下来设计的，即上面是基本固定的LOGO 和联接部分，中间是内容部分，下面是版权等基本信息，因此我们可以把网页分成三部分，即上、中、下部分，由于上、下部分相对固定，我们就建立两个PageProducer1 元件与之相对应，中间的部分再根据情况动态设定。

我们以delphi 7 和 apache 2.0.43 和 Interbase为例，delphi7 不支持 Apache 2.0.43 ,具体解决办法请看我的文章使Delphi 6 支持Apache 2.0。首先建立web server 应用程序。如图一，

这样就建立起一个Apache 2.x 的 DSO 模块，放置dbexpress 数据库联接和访问控件和PageProducer 元件，如图二,

并保证 Dbexpress 控件可以正常访问数据库，具体访问方式超出本文章范围，这里不再详细讨论。在Apache 2 的主目录(一般为htdocs目录)建立一下两个文件，title.html,foot.html.

title.html:

<#getalluser>

</td>

密码<input type=password name="pass" class="edit" size=12 >

<FONT class="pt9"><a href="/delphi/userreg" target="_blank"> 注册新用户</font>

</td>

<#username>

</font>

</td>

</form>

</table>

</td>

</table>

</table>

</td>

</table>

</td>

</table>

foot.html:

<br>

<TBODY>

<TR>

</TR>

<TD align=middle ><A

href="/delphi/ly"><font class="pt9" color="#0000FF">给我留言</font></A></TD>

<TBODY>

<TR>

<TD align=middle height="1"><FONT class="pt9">1999-2001 delphi 窑洞

<TR>

<TD align=middle height="14">窑洞洞主：xalion     <FONT class="pt9">合作伙伴:<A

href="mailto:[email protected]">阿土</A></FONT></TD></TR>

</TBODY></TABLE>

</BODY></HTML>

好，开始我们的程序之旅：

系统常量:

const

chweek:array [1..7]of string[2]=('日','一','二','三','四','五','六');

defpathname:string='d:/Apache Group/Apache2/htdocs';

defsoftpath:string='ftp://202.117.213.5/file/';

defbookpath:string='ftp://202.117.213.5/book/';

gridhead:string=' <table width="100%" border="0" cellspacing="1" cellpadding="1" bgColor="#609000">';

gridheadline:string=' <tr bgcolor="#ffffcc">';

gridline:string=' <tr bgcolor="#fefded">';

gridtdhead:string=' <td ><font class="pt9">';

gridtdheadnowrap:string=' <td nowrap><font class=pt9>';

gridtdend:string=' </font></td>';

webModule 的建立事件:

procedure Twm.WebModuleCreate(Sender: TObject);

var

fconfig:Tinifile;

bbsopen:string;

fname:pchar;

path:string;

begin

getmem(fname,256);

GetModuleFileName( 0,fname,256);

path:=ExtractFilePath(fname);

Freemem(fname);

看是否有设置文件

fconfig:=Tinifile.create(path+'51delphi.ini'); //in folder

pathname:=fconfig.readstring('PATH','HTMLROOT',defpathname);

softpath:=fconfig.readstring('PATH','SOFTPATH',defsoftpath);

bookpath:=fconfig.readstring('PATH','BOOKPATH',defbookpath);

// defpathname);

fconfig.Free;

title.HTMLFile:=pathname+'/title.html';

foot.HTMLFile:=pathname+'/foot.html';

center.HTMLFile:=pathname+'/center.html';

bookpage.HTMLFile:=pathname+'/book.html';

end;

在title 的onhtmltag 事件写：

var

yy,mm,dd:word;

s,img,rc:string;

i:integer;

sip:string;

allnum:integer;

begin

// 加入IP 计数

if tagstring='getalluser' then

begin

sip:=request.RemoteAddr; //浏览器地址

with cx do

begin

sql.Clear;

SQL.Add('select max(id)+1 AS NUM from ip '); //取最大IP 值

OPen;

allnum:=fields[0].asinteger;

sql.Clear;

SQL.Add('select max(iptime) as iptime from ip where ip='''+sip+''''); // 是否访问过本站

OPen;

if Isempty then

//没有访问过本站

begin

SQL.Clear;

SQL.Add('INSERT INTO IP (ID,IP ,IPTIME ,IPTYPE ) VALUES (:1,:2, CURRENT_TIMESTAMP, :3)');

Params[0].AsInteger:=allnum;

Params[1].AsString:=sip;

Params[2].asstring:=request.UserAgent;

try

ExecSQL; //写入访问时间

except

exit;

end;

end

else

begin

//访问过本站

if (now-fields[0].asdatetime)>(1/12) then

//是否两小时内访问过

begin

SQL.Clear;

SQL.Add('INSERT INTO IP (ID,IP ,IPTIME ,IPTYPE ) VALUES (:1,:2,CURRENT_TIMESTAMP, :3)');

Params[0].AsInteger:=allnum;

Params[1].asstring:=sip;

Params[2].asstring:=request.UserAgent;

try

ExecSQL;

except

exit;

end;

ReplaceText:=''; //仅仅是计数，不返回结果

end;

if tagstring='curuser' then //显示当前五分钟内在线用户

begin

with cx do

begin

SQL.Clear;

SQL.Add(' select count(*) as num from IP');

SQL.Add(' where (CURRENT_TIMESTAMP-iptime)<0.005');

Open;

ReplaceText:=fields[0].AsString;

end;

if tagstring='date' then

begin

decodedate(date,yy,mm,dd);

s:='<font color="blue">';

s:=s+'今天是'+inttostr(yy)+'年'+inttostr(mm)+'月'+inttostr(dd)+'日';

s:=s+' 星期'+chweek[dayofweek(date)];

s:=s+'</font>';

ReplaceText:=s;

end;

if tagstring='alluser' then //显示访问人次

begin

s:='';

with cx do

begin

SQL.Clear;

SQL.Add('select * from ALLUSER');

Open;

allnum:=fields[0].AsInteger;

SQL.clear;

sql.Add('select max(ID) from IP');

open;

rc:=inttostr(fields[0].asinteger+allnum);

end;

img:='';

if length(rc)<7 then

begin

for i:=1 to (7-length(rc)) do

rc:='0'+rc;

end;

for i:=1 to length(rc) do

img:=img+'<img src ="/image/'+rc[i]+'.gif" border=0>';

s:=s+img;

ReplaceText:=s;

end;

建立显示技术资料事件(http://www.51delphi.com/delphi/book)

在webmodule 里面建立一个action ,name为book,pathinfo 为/book.

建立action 事件：

procedure Twm.wmbookAction(Sender: TObject; Request: TWebRequest;

Response: TWebResponse; var Handled: Boolean);

begin

Response.content:=title.Content+bookpage.Content+foot.Content;

end;

建立book.html

book.html:

<title>delphi 窑洞------技术资料</title>

</table>

<TD align=left background="/image/shadow.gif"

width=5> </TD>

<#showbook>

</td></TR>

</table>

在 web module 里面放置一个PageProdure , name为 book,

在book 的onhtmltag 里面写以下事件:

procedure Twm.bookpageHTMLTag(Sender: TObject; Tag: TTag;

const TagString: String; TagParams: TStrings; var ReplaceText: String);

const

showcount=25;

var

no:integer;

s:string;

where:string;

stype:string;

begin

if request.QueryFields.Values['no']='' then

no:=1

else

begin

s:=request.QueryFields.Values['no'];

try

no:=strtoint(s);

except

no:=1;

end;

if no<1 then no:=1;

end;

if TagString='bookpage' then

begin

with cx do

begin

SQL.Clear;

SQL.Add('select count(*) from BOOK');

SQL.Add(where);

Open;

ReplaceText:=showpage(fields[0].asinteger,showcount,no,'&type='+stype);

end;

if TagString='showbook' then

begin

ReplaceText:=showbook(showcount,no-1,where)

end;

里面用了一个showpage 函数，该函数为

function Twm.showpage(allnum, showcount, no:integer;stype:string): string;

var

lt:integer;

ys:integer;

i,start:integer;

s:string;

begin

start:=(no-1)*showcount;

lt:=allnum mod showcount;

ys:= allnum div showcount;

if lt<>0 then

ys:=ys+1;

s:='';

for i:=1 to ys do

begin

if i<>(start div showcount+1) then

s:=s+' <a href="/delphi'+request.Pathinfo+'?no='+inttostr(i)+stype+'">['+inttostr(i)+']</a>'

else

s:=s+' <font color=red><b>'+inttostr(i)+'</b></font>';

end;

result:=s;

end;

里面用了一个showbook 函数，该函数为

function Twm.showbook(showcount, no: integer;where:string): string;

var

s:string;

wz:integer;

news,jys:string;

begin

with cx do

begin

SQL.Clear;

SQL.Add('select num,name,indate,stype,dnum,jy,fsize from book');

SQL.Add(where);

SQL.Add('order by indate desc');

Open;

s:=gridhead+gridheadline;

s:=s+gridtdhead+'日期'+gridtdend;

s:=s+gridtdhead+'名称'+gridtdend;

s:=s+gridtdhead+'类别'+gridtdend;

s:=s+gridtdhead+'推荐度'+gridtdend;

s:=s+gridtdhead+'大小'+gridtdend;

s:=s+gridtdhead+'下载'+gridtdend;

s:=s+' </tr>';

wz:=0;

while ((wz<showcount) and (not eof)) do

begin

news:='';

if (now-fieldbyname('indate').AsDateTime)<3 then

news:='<img src="/image/new9.gif">';

jys:='<img src="/image/hx.gif"><img src="/image/hx.gif">';

if fieldbyname('jy').AsInteger>=80 then

jys:=jys+'<img src="/image/hx.gif">';

if fieldbyname('jy').AsInteger>=85 then

jys:=jys+'<img src="/image/hx.gif">';

if fieldbyname('jy').AsInteger>=90 then

jys:=jys+'<img src="/image/hx.gif">';

s:=s+gridline;

s:=s+gridtdhead+fieldbyname('indate').asstring+gridtdend;

s:=s+gridtdhead+'<font color="#0000ff">'+news+fieldbyname('name').asstring+'</font>'+gridtdend;

s:=s+gridtdhead+fieldbyname('stype').asstring+gridtdend;

s:=s+gridtdhead+jys+gridtdend;

s:=s+gridtdhead+fieldbyname('FSIZE').asstring+gridtdend;

if getsession('delphiuser')<>'' then

s:=s+gridtdhead+'<font color="blue">'+fieldbyname('dnum').asstring+'</font>'

+'<a href="/delphi/downbook?num='+fieldbyname('num').asstring+ '"><img src="/image/download.gif" border=0> </a> '+gridtdend

else

s:=s+gridtdhead+'<font color="blue">'+fieldbyname('dnum').asstring+'</font>'+gridtdend;

s:=s+' </tr>';

next;

wz:=wz+1;

end;

s:=s+' </table>';

end;

result:=s;

end;

好了，编译该工程，然后加载生成的dll,就可以正确显示数据的内容了。

本篇文章具体介绍了web module 里面的数据库的读写以及显示，希望可以给大家一点帮助，

谢谢大家的阅读！

Xalion

2002-11-27

鲜花

握手

雷人

路过

鸡蛋

该文章已有0人参与评论

请发表评论

全部评论

专题导读

More+

10-27 六六分期app的软件客服如何联系？(六六分期

11-06 可心卡盟:win10系统火狐flash插件崩溃怎么

11-06 亲亲特价:怎么删除回收站图标

11-06 济南大学虚拟社区:鲁大师节能降温的具体办

11-06 xlueops.exe:无线网络安装向导

11-06 女斗合众国:win7系统cf与主机连接不稳定怎

11-06 0xc000022-[cf烟雾头]cf怎么调烟雾头

11-06 qizideyouhuo:应用程序无法正常启动0xc0000

11-06 ipz-185:win7系统vcf文件怎么打开

11-06 傻哥蹦迪:win10系统s4怎么打开usb调试

11-06 八神浩树gtaste:回收站清空了怎么恢复

11-06 妖尾之黑色守护:win10系统电脑没有1440x900

11-06 校园至尊魔王小说:win7系统浏览网页时字体

11-06 女斗合众国:win10系统访问共享文件夹提示请

11-06 tokyo hot n0654:恢复win7系统默认字体一招

11-06 雨酷仙境:设置win7系统转移临时文件夹腾出

11-06 阿穆纳伊之杖:win7系统开始菜单在右边还原

11-06 tunespotting:win10系统火狐flash插件总是

11-06 甘尔葛分析师：计谋网站seo关键词暴涨有什

11-06 蔡贵霖: 计谋网站seo关键词暴涨有什么秘密

11-06 博益网首页:ao3网页版进入不了解决方法

11-06 漏斗子专栏: 网站数据分析小白易懂精华篇

11-06 见证双虹怎么做:win7系统开启telnet命令的

11-06 颾狐蝶蜋:系统资源不足无法完成请求的服务

11-06 国光中学校歌:提交网站到alexa查询详细步骤

11-06 西安有情天:静态网页和动态网页的区别

11-06 红木雅尚斋:外部链接构造对网站的好处

11-06 前官礼遇：防止域名劫持–增强域安全性的10

11-06 密传二转答案: 中文分词算法有哪些

11-06 金泉家园邮编:百度快照劫持的表现及应对方

透过Delphi使用二进位金钥做AES加密.发布时间：2022-07-18

关于delphi中多线程采用定时器的做法发布时间：2022-07-18

剪的笔顺,诠释剪的笔画,认识剪的部首

1 六六分期app的软件客服如何联系？(六六分期

六六分期app的软件客服如何联系？不知道吗？加qq群【895510560】即可！标题：六六分期

阅读：19234|2023-10-27

2 可心卡盟:win10系统火狐flash插件崩溃怎么

今天小编告诉大家如何处理win10系统火狐flash插件总是崩溃的问题，可能很多用户都不知

阅读：10000|2022-11-06

3 亲亲特价:怎么删除回收站图标

今天小编告诉大家如何对win10系统删除桌面回收站图标进行设置，可能很多用户都不知道

阅读：8331|2022-11-06

4 济南大学虚拟社区:鲁大师节能降温的具体办

今天小编告诉大家如何对win10系统电脑设置节能降温的设置方法，想必大家都遇到过需要

阅读：8701|2022-11-06

5 xlueops.exe:无线网络安装向导

我们在使用xp系统的过程中,经常需要对xp系统无线网络安装向导设置进行设置，可能很多

阅读：8646|2022-11-06

6 女斗合众国:win7系统cf与主机连接不稳定怎

今天小编告诉大家如何处理win7系统玩cf老是与主机连接不稳定的问题，可能很多用户都不

阅读：9668|2022-11-06

7 0xc000022-[cf烟雾头]cf怎么调烟雾头

电脑对日常生活的重要性小编就不多说了，可是一旦碰到win7系统设置cf烟雾头的问题，很

阅读：8632|2022-11-06

8 qizideyouhuo:应用程序无法正常启动0xc0000

我们在日常使用电脑的时候，有的小伙伴们可能在打开应用的时候会遇见提示应用程序无法

阅读：8005|2022-11-06

9 ipz-185:win7系统vcf文件怎么打开

今天小编告诉大家如何对win7系统打开vcf文件进行设置，可能很多用户都不知道怎么对win

阅读：8666|2022-11-06

10 傻哥蹦迪:win10系统s4怎么打开usb调试

今天小编告诉大家如何对win10系统s4开启USB调试模式进行设置，可能很多用户都不知道怎

阅读：7540|2022-11-06

客服电话

电子邮件

用delphi+Apache开发动态网站(二)

-------创建数据库应用

请发表评论

全部评论

上一篇：

下一篇：

librespeed/speedtest: Self-hosted Speedt

Matlab里面.M文件不能运行，预期的图像也显

avehtari/BDA_m_demos: Bayesian Data Anal

四维彩超怎么看性别？四维看男孩女孩诀窍

CVE-2022-20898

剪的笔顺,诠释剪的笔画,认识剪的部首

六六分期app的软件客服如何联系？(六六分期

florent37/ViewAnimator: A fluent Android

florent37/Shrine-MaterialDesign2: implem

CVE-2020-36276

SimpleSoftwareIO/simple-sms: Send and re

关于我们

产品与服务

解决方案

139-2527-9053