unit1.~pas

来自「《Delphi 7应用编程150例》源码（全）」· ~PAS 代码 · 共 39 行

~PAS

39 行

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>你好，这里是一个示范用的网页</h1>';
    html:=html+'<p>这个程序编写的时间是2000年八月</p>';
    html:=html+'</body>';
    html:=html+'</html>';
    response.content:=html;
end;
end.

unit1.~pas - 源码说明

本页面展示了「《Delphi 7应用编程150例》源码（全）」中的 unit1.~pas 源码文件，采用 ~PAS 编程语言编写，共 39 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与Delphi相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?