用DELPHI制作留言板 - Delphi论坛

问题点数：0 回复次数：1

用DELPHI制作留言板

现在很多朋友都有了自己的个人主页。有一个留言板主页与访问者交流一下可能是很多网友愿望。但留言板主页不同与一般主页，它不但有主页部分而且还要有数据存储功能。其实用DELPHI的CGI应用程序可以轻松的制作留言板主页。用ELPHI开发CGI应用程序不但可以实现ASP，HTML很难实现的低层操作，而且简化了CGI应用程序开发过程。

1.选择Delphi的菜单File|New，在New标签中选择“Web Server Application”。

然后在选择“CGI Stand-alone executable”，创建一个CGI应用程序。

（如果想创建ISAPI或NSAPI应用程序，只需选择“ISAPI/NSAPI Dynamic Link Library”，后几步操作不变。）

2.系统自动创建一个非可视的WebModule1组件，我们按以下步骤给程序添加控制和代码：

（1）、双击WebModule1的Actions属性，弹出“Editing WebModule1.Actions”对话框；

（2）、单击Add按钮，添加一个新行WebActionItem1

（3）、单击WebActionItem1，在Object Inspector中将WebActionItem1的Default属性设置为True；这样设置使访问CGI.EXE时直接访问此页面。

（4）、单击Add按钮，添加一个新行WebActionItem2

（5）、单击WebActionItem2，在Object Inspector中将WebActionItem2的PathInfo属性设置为“Info”；即访问此页面的路径为CGI.EXEInfo。

（6）、在Object Inspector中双击WebActionItem1的OnAction事件，添加代码。将留言板页面的HTML语句赋给Response.Content属性，使用户访问WEB服务器应用程序时显示。

（7）、在Object Inspector中双击WebActionItem2的OnAction事件，添加代码处理留言板页面传回的信息，同时显示相关信息通知用户。其中涉及Request.ContentFields.Values[’index’]及Request.ContentFields.Strings[counts]两个属性的应用。

Request.ContentFields.Values[’UserName’]是指留言板页面中name=”UserName”的控件中的数据信息。

Request.ContentFields.Strings[Counts]是指留言板页面传过来各项数据及对应的控件名。以Counts区分其为哪项数据，其数值为留言板页面传输数据项的顺序号。

数据存储方式我采用文本文件存储，如果网友的主页人气鼎盛也可考虑改用数据库存储

/bbs/UploadFile/2005-3/2005320191459674.gif" border="0" onload="if(this.width>screen.width*0.7) {this.resized=true; this.width=screen.width*0.7; this.alt='Click here to open new window\nCTRL+Mouse wheel to zoom in/out';}" onmouseover="if(this.width>screen.width*0.7) {this.resized=true; this.width=screen.width*0.7; this.style.cursor='hand'; this.alt='Click here to open new window\nCTRL+Mouse wheel to zoom in/out';}" onclick="if(!this.resized) {return true;} else {window.open('http://www./bbs/UploadFile/2005-3/2005320191459674.gif');}" onmousewheel="return imgzoom(this);" alt="" />