可以使同API函数ShellExeCute，但前提是必须必须在USES库中添加ShellApi函数库，要不然会提示未定义函数。具体例子如下：unit Unit1interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs,ShellApitypeTForm1 = class(TForm)procedure FormCreate(Sender: TObject)private{ Private declarations }public{ Public declarations }endvarForm1: TForm1implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject)beginShellExeCute(Handle,nil,'http:\\www.baidu.com',nil,nil,SW_Normal)endend.一启动程序就打开百度主页，其效果相当于在运行里输入http:\\www.baidu.com一样
WebMail是指在网页中实现邮件的发送 使用Delphi开发Web Server程序是非常简单的 Delphi中提供了大量的元件和对象 下面通过一个例子来介绍如何利用Delphi开发一个响应用户输入的ISAPI的WebMail程序 为了简单 程序没有对传送的数据提供保密首先 在Web服务器端安装数据库引擎dbe 并设置好数据库别名 yh 指向一个包含用户名和用户密码的数据库文件user db 接着建立两个HTML文件 名字分别为 dl qd 放在Web服务器的缺省目录下(如 c ＼inetpub＼root)
dl 的内容如下
<><head><title>发送邮件系统</title></head><body><h >发送邮件系统</h ><p>请输入您的用户名及密码</p><form method= post action= /scripts/SendMail ><p>用户名<input type= text length= name= username >密码 <input type= password length= name= password ></p><p><input type= submit value= 确定 ><input type= reset value= 清除 ></p></form></body></> qd 文件内容如下
<><head><title>填表</title></head><body><form method= post action= feedback ><p>请填入接收邮件地址:toaddress:<input type= text length= name= toaddress ></p><p>请填入主题<input type= text length= name= subject ></p><p>内容 </p><p><input type= textarea length= width= name= body ></p><p><input type= submit value= 确定 ><input type= reset value= 清除 ></p></form ></body ></ > 在Delphi中新建一个基于ISAPI的Web Server Application 手动增加nm *** tp query pageproducer 其中 pageproducer 的file属性为c:＼inetpub＼ root＼qd nm *** tp 的host(发送邮件服务器的地址)在这里为 *** tp netease port: 全局变量为 sername:stringflag:boolean
增加一个路径为feedback的动作项 其代码如下
Var Count:integerS:string BeginQuery closeQuery sql clearS:= select count(username) from user dbswheresusername= S:=s+request contentfields values[ username ]+ S:=s+ and password= S:=s+request contentfields values[ psword ]+ Query sql add(S)Query openIf query count= then response content:= <><head><title></title><body>用户名 密码不正确 请重新输入</body></>Else Username:=request contentfields values[ username ]Response content:=pageproducer contentEnd 再增加一个路径为Sendmail的动作项 它的程序代码如下
Var body:stringBeginFlag:=truebody:=request contentfields values[ body ]Pageproducer doc clearPageproducer doc add( <><body >)Nm *** tp postmessage clearNm *** tp postmessage fromaddress:=username+ @netease Nm *** tp postmessage from:=usernameNm *** tp postmessage body add(body)Nm *** tp postmessage toaddress add(request contentfields values[ toaddress ])Nm *** tp postmessage subject:=request contentfields values[ subject ] Nm *** tp connectIf flag=true then beginNm *** tp sendmailnm *** tp disconntentendpageproducer doc add( </body></>)response content:=pageproducer contentend 增加nm *** tp 的OnConnect事件添加如下代码
lishixinzhi/Article/program/Delphi/201311/24974使用Delphixe网页在Apache下的步骤如下：
1.安装Apache：首先，需要安装Apache HTTP服务器，可以从Apache官方网站下载安装程序，或者使用 *** 作系统自带的包管理器安装Apache。
2.配置Apache：安装完成后，需要对Apache进行配置，主要设置服务器的端口号，网站目录，文件夹权限等。
3.安装Delphixe：需要从Delphixe官方网站下载安装包，根据安装说明安装Delphixe程序。
4.配置Delphixe：安装完成后，需要配置Delphixe，设置网站的域名，文件夹权限，数据库连接，等等。
5.设置Apache网站：需要在Apache配置文件中设置网站的相关参数，如端口号，服务器名，网站目录，网站路径，等等。
6.重启Apache：配置完成后，需要重启Apache，使配置生效。
7.完成：完成以上步骤后，Delphixe就可以在Apache下使用了。
欢迎分享，转载请注明来源：内存溢出
微信扫一扫
支付宝扫一扫
评论列表（0条）