Delphi控件源码

开发平台：

Delphi

ApacheWm.pas：源码内容

							unit ApacheWm;
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);
begin
  Response.Content := '<h1>Apache1 module</h1><p>This is a test only'; 
end;
end.

						