📄 unit1.pas

📁 Java实例入门

💻 PAS

字号:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, HTTPApp;

type
  TWebModule1 = class(TWebModule)
    procedure WebModule1WebActionItem1Action(Sender: TObject;
      Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
    procedure WebModule1WebActionItem2Action(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
   Page: TStringList;
begin
   Page := TStringList.Create;
   try
     with Page do
     begin
          Add('<HTML>');
          Add('<HEAD>');
	  Add('<TITLE>Web Server Application -- Basic Sample</TITLE>');
          Add('</HEAD>');
          Add('<BODY>');
          Add('<B>This page was created on the fly by Delphi 3.0</B><P>');
          Add('<HR>');
          Add('See how easy it was to create a page on the fly with Delphi''s Web Extensions?');
          Add('</BODY>');
          Add('</HTML>');
     end;
          Response.Content := Page.Text;
   finally
     Page.Free;
   end;
   Handled := True;
end;

procedure TWebModule1.WebModule1WebActionItem2Action(Sender: TObject;
  Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
begin
    Response.Content := 'Default Action';
end;

end.

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -