Подякувати Студентському архіву довільною сумою
Admin
26.02.2023 12:38
Дякуємо, що користуєтесь нашим архівом!
Створення ужитку з використанням WEB-технологій.
Інформація про навчальний заклад
ВУЗ:
Національний університет Львівська політехніка
Інститут:
Не вказано
Факультет:
Не вказано
Кафедра:
Автоматизовані Системи Управління
Інформація про роботу
Рік:
2009
Тип роботи:
Лабораторна робота
Предмет:
Об’єктно-орієнтоване програмування
Група:
КН-32
Частина тексту файла (без зображень, графіків і формул):
Міністерство освіти та науки України
Національний університет “Львівська Політехніка”
Кафедра АСУ
Лабораторна робота №5
з предмету
HYPERLINK "http://uk.wikipedia.org/wiki/%D0%9E%D0%B1'%D1%94%D0%BA%D1%82%D0%BD%D0%BE-%D0%BE%D1%80%D1%96%D1%94%D0%BD%D1%82%D0%BE%D0%B2%D0%B0%D0%BD%D0%B5_%D0%BF%D1%80%D0%BE%D0%B3%D1%80%D0%B0%D0%BC%D1%83%D0%B2%D0%B0%D0%BD%D0%BD%D1%8F" Об'єктно-орієнтоване програмування
на тему:
Створення ужитку з використанням WEB-технологій
Виконав:
ст. гр. КН-32
___________________
Перевірив:
______________________
___________________
Львів – 2009
Мета роботи: Вивчення можливостей системи програмування Delphi 5 по створенню динамічних HTML-сторінок.
Порядок роботи:
Ознайомитись з теоретичними відомостями по роботі.
Створити проект Delphi, який реалізує наведений у тексті приклад.
Змінити текст програми так, щоб він відповідав індивідуальному завданню.
Оформити звіт для захисту лабораторної роботи за зразком
назва роботи
мета роботи
порядок роботи
короткі теоретичні відомості
алгоритм розв’язку задачі
тексти відповідних модулів проекту
аналіз отриманих результатів та висновки
Індивідуальне завдання №12
Створити Web-ужиток який формує динамічні HTML-сторінки для виконання наступних задач:
Визначення можливості побудови трикутника за трьома сторонами
Тексти модулів проекту.
program mult;
{$APPTYPE CONSOLE}
uses
WebBroker,
CGIApp,
Unit1 in 'Unit1.pas' {WebModule1: TWebModule};
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TWebModule1, WebModule1);
Application.Run;
end.//------Unit1.pas---------
unit Unit1;
interface
uses
SysUtils, Classes, HTTPApp, HTTPProd;
type
TWebModule1 = class(TWebModule)
PageProducer1: TPageProducer;
procedure PageProducer1HTMLTag(Sender: TObject; Tag: TTag;
const TagString: String; TagParams: TStrings;
var ReplaceText: String);
procedure WebModule1WebActionItem2Action(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
procedure WebModule1WebActionItem1Action(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
private
{ Private declarations }
public
{ Public declarations }
end;
var
WebModule1: TWebModule1;
Num1,Num2,Num3:integer;
implementation
{$R *.dfm}
procedure TWebModule1.WebModule1WebActionItem1Action(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
Begin
if(((StrToInt(Request.ContentFields.Values['num1'])+StrToInt(Request.ContentFields.Values['num2']))>StrToInt(Request.ContentFields.Values['num3'])))and
(((StrToInt(Request.ContentFields.Values['num1'])+StrToInt(Request.ContentFields.Values['num3']))>StrToInt(Request.ContentFields.Values['num2'])))and
(((StrToInt(Request.ContentFields.Values['num2'])+StrToInt(Request.ContentFields.Values['num3']))>StrToInt(Request.ContentFields.Values['num1'])))
then
Response.Content:=
'<b>Вiтаю!!!</b><p><p>З такими сторонами ви можете побудувати трикутник!'
else
Response.Content:=
'Ці довжини сторін не дозволяють побудувати трикутник<p>'+
'<a HREF="//127.0.0.1/cgi-bin/mult.exe">'+
'<p>Спробуйте ще раз</a></p>';
Handled:=True;
end;
procedure TWebModule1.WebModule1WebActionItem2Action(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
begin
// генеруємо два множники
Randomize;
Num1:=Random(8)+1; // змінні Num1 та Num2 оголошуються як глобальні !
Num2:=Random(8)+1;
Num3:=Random(8)+1;
Response.Content:=PageProducer1.Content;
Handled:=True;
end;
procedure TWebModule1.PageProducer1HTMLTag(Sender: TObject; Tag: TTag;
const TagString: String; TagParams: TStrings; var ReplaceText: String);
begin
if (TagString='TNum1') then
ReplaceText:=IntToStr(Num1)
else
if (TagString='TNum2') then
ReplaceText:=IntToStr(Num2)
else
if (TagString='TNum3') then
ReplaceText:=IntToStr(Num3);
end;
end.
Код сторінки
<html>
<head>
<title>Володя Ништа!</title>
</head>
<body>
<h1>Це моя програма!</h1>
<p>Натиснiть кнопку "Push"
<form method="POST" action="http://127.0.0.1/cgi-bin/mult.exe/1">
<table>
<tr><td><input type="text" name="num1" size="1" value="<#TNum1>"</td>
<td><input type="text" name="num2" size="1" value="<#TNum2>"</td>
<td><input type="text" name="num3" size="1" value="<#TNum3>"</td>
<td><input type="submit" name="post" value="Push"></td>
</tr>
</table>
</form>
<form method="POST" action="http://127.0.0.1/cgi-bin/mult.exe">
<p><input type="submit" value="Refresh" name="New"></p>
</form>
</body>
</html>
Вигляд сторінки:
Тест програми:
Програма генерує 3 випадкових числа і перевіряє чи можна з такими довжинами побудувати трикутник.
Висновок.
На цій лабораторній роботі я вивчив можливості системи програмування Delphi 5 по створенню динамічних HTML-сторінок
Ділись своїми роботами та отримуй миттєві бонуси!
0%
Оголошення від адміністратора