unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, HTTPApp;
type
TWebModule1 = class(TWebModule)
procedure WebModule1dlllstaticAction(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
private
{ Private declarations }
public
{ Public declarations }
end;
var
WebModule1: TWebModule1;
implementation
{$R *.DFM}
procedure TWebModule1.WebModule1dlllstaticAction(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var HTML:string;
begin
HTML:='<HTML>';
HTML:=HTML+'<BODY>';
HTML:=HTML+'<H1>HELLO WORLD WIDE WEB</H1>';
HTML:=HTML+'<P>This is test program for ISAPI</P>';
HTML:=HTML+'</BODY>';
HTML:=HTML+'</HTML>';
Response.Content:=HTML;
end;
end.