当前位置: 源码素材网 » Delphi教程 » 详情页

Delphi输出网页的一个简单例子

  •   时间:2018-10-15
  • 概述:输出网页

Delphi制作一个网页,实例演示如何制作一个利用Delphi输出的网页。新建一个Web Server Application,就会自动创建一个WebModule1,它有一个Actions属性,为Actions属性添加一个新项WebActionItem1,为WebModule1的Actions属性中WebActionItem1项的OnAction事件添加响应代码如下,来输出网页:

procedure TWebModule1.WebModule1WebActionItem1Action(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var
html:string;
begin
html:='<html>';
html:=html+'<body>';
html:=html+'<h1>Hello,Delphi</h1>';
html:=html+'</body>';
html:=html+'</html>';
Response.Content:=html;
end;

程序代码如下:

unit Unit1;
interface
uses
SysUtils, Classes, HTTPApp;
type
TWebModule1 = class(TWebModule)
procedure WebModule1WebActionItem1Action(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
private
{ Private declarations }
public
{ Public declarations }
end;
var
WebModule1: TWebModule1;
implementation
{$R *.dfm}
procedure TWebModule1.WebModule1WebActionItem1Action(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var
html:string;
begin
html:='<html>';
html:=html+'<body>';
html:=html+'<h1>Hello,Delphi</h1>';
html:=html+'</body>';
html:=html+'</html>';
Response.Content:=html;
end;
end.

保存文件,选择菜单Project中的Build项生成文件,把生成的dll文件拷贝到Web站点的scripts目录中(如C:\Inetpub\scripts),然后在浏览器中输入dll文件的Web路径,如果是在Windows 2000环境中调试本实例程序,由于dll被使用后是由IIS接管的,所以IIS不重启,dll就不会被释放。为了避免每次调试都要重新启动计算机的麻烦,可以重新启动World Wide Web Publishing Service服务,那么dll就被释放,可以正常调试了。

    相关声明:

      若“Delphi输出网页的一个简单例子”有损您的权益,请告之我们删除内容。
      部分文章来源于网络,版权归原作者所有。