Помогите начать писать Web-приложения.
Я скачал Denver. Установил его C:\WebServers\ .
Теперь запускаю Delphi (у меня 6 версия) -> Web Server Application ->
Apache Shared Module (DLL).
Далее открывается проект с классом TWebModule.
Добавляю в Actions Item и присваиваю его свойству PathInfo значение '/test'.
Добавляю событие OnAction.
Пишу такой код:
Код:
procedure TMyWebModule.MyWebModuleWebActionItem1Action(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var
Page: TStringList;
begin
Page := TStringList.Create;
try
Page.Add('<html>');
Page.Add('<head>');
Page.Add('<title>Создание Web приложений на Delphi</title>');
Page.Add('</head>');
Page.Add('<body bgcolor="#000066 text="#ffff00"">');
Page.Add('<h2>Эта страница сгенерирована с помощью Delphi.</h2>');
Page.Add('</body>');
Page.Add('</html>');
Response.Content := Page.Text;
finally
Page.Free;
end;
Handled := True;
end;
Компилирую и получаю DLL.
Код:
library MyWeb;
uses
WebBroker,
ApacheApp,
MyWebUnit in 'MyWebUnit.pas' {MyWebModule: TWebModule};
{$R *.res}
exports
apache_module name 'Project1_module';
begin
Application.Initialize;
Application.CreateForm(TMyWebModule, MyWebModule);
Application.Run;
end.
Копирую DLL в каталог C:\WebServers\home\localhost\www\
Запускаю IE и в адресной строке пишу:
http://localhost/MyWeb.dll/test
И ничего - Not Found. Что я делаю не так, где моя ошибка?
Почему IE не отабражает страницу, которую я сгенерировал в DLL?