Den lettest tilgængelige metode er at lave exe-filer.Disse kræver 'næsten' at man har rettigheder til sin egen IIS eller lign.
et eks:
unit U1;
interface
uses
Windows, Messages, 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:tStringList;
begin
HTML:=TStringList.create; {These are easier to use than strings}
try
HTML.Add('<html>');
HTML.Add(' <head>');
HTML.Add(' <title>Web Programming in Delphi - Project 1</title>');
HTML.Add(' </head>');
HTML.Add(' <body>');
HTML.Add(format(' <h1>%s</h1>',[Paramstr(0)]));
HTML.Add('<p>Hello and welcome from CGI-LAND');
HTML.Add(' </body>');
HTML.Add('</html>');
Response.Content:=HTML.Text;
Handled:=TRUE;
finally
HTML.Free;
end;
end;
end.
hentet fra
http://www.209software.com/books/wpid/hvor du selv kan læse mere (E-bog)