О создании Гостевой книгиDelphi , Интернет и Сети , ИнтернетО создании Гостевой книги
Оформил: DeeCo Автор: Евгений Акованцев Самый простой способ - использование класса TWebModule.Для этого из File|New выбираем Web Server Application, дальше тип: ISAPI/NSAPI, CGI или Win-CGI. Смотрим свойства TWebModule1 в Object Inspector и добавляем новое действие (action). Обработчик события OnAction выполняется при запросе вида http://www.yourhost.com/cgi-bin/web.exe/pathгде path определяется свойством PathInfo. Установка Default в True приведет к выполнению этого действия по умолчанию (если /path не задан или такое действие не найдено). В обработчик события передаются объекты Request и Response.
procedure TWebModule1.WebModule1WebActionItem1Action(Sender: TObject; Request: TWebRequest; Response: TWebResponse; var Handled: Boolean); begin PageProducer1.HTMLFile := 'test.html'; // Использовать результат работы PageProducer1 Response.Content := PageProducer1.Content; end; procedure TWebModule1.PageProducer1HTMLTag(Sender: TObject; Tag: TTag; const TagString: string; TagParams: TStrings; var ReplaceText: string); begin if TagString = 'FIRSTNAME' then // Если встретился тэг <#FIRSTNAME> заменить его на "Петров" ReplaceText := 'Петров'; if TagString = 'LASTNAME' then ReplaceText := 'Иван'; end;В результате работы этого cgi пользователь увидит файл test.html, в котором вместо тэгов <#FIRSTNAME> и <#LASTNAME> были подставлены значения "Иван" и "Петров" Статья О создании Гостевой книги раздела Интернет и Сети Интернет может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |