|
|
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
 |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
26.12.2010, 21:05
|
|||
|
|||
TWebModule. Не могу получить ответ от сервера
Помогите начать писать 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;Код:
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.Запускаю IE и в адресной строке пишу: http://localhost/MyWeb.dll/test И ничего - Not Found. Что я делаю не так, где моя ошибка? Почему IE не отабражает страницу, которую я сгенерировал в DLL? |
Линейный вид
