Подякувати Студентському архіву довільною сумою
Admin
26.02.2023 12:38
Дякуємо, що користуєтесь нашим архівом!
Інформація про навчальний заклад
ВУЗ:
Національний університет Львівська політехніка
Інститут:
Не вказано
Факультет:
Не вказано
Кафедра:
Не вказано
Інформація про роботу
Рік:
2010
Тип роботи:
Звіт
Предмет:
Об’єктно-орієнтоване програмування
Група:
КН-30
Частина тексту файла (без зображень, графіків і формул):
МІНІСТЕРСТВО ОСВІТИ І НАУКИ УКРАЇНИ
Національний університет «Львівська політехніка»
Кафедра АСУ
Звіт
до лабораторної роботи №8
з курсу “Об'єктно орієнтоване програмування”
Варіант 8
Львів 2010 Тема: Створення ужитку з використанням WEB-технологій
Мета роботи: Вивчення можливостей системи програмування Delphi 5 по створенню динамічних HTML-сторінок.
Завдання
Створити Web-ужиток який формує динамічні HTML-сторінки для виконання наступних задач:
Індивідуальне завдання:
Визначення чи число є простим.
Текст програми:
unit Unit1;
interface
uses
SysUtils, Classes, HTTPApp, HTTPProd, IniFiles;
type
TWebModule1 = class(TWebModule)
PageProducer1: TPageProducer;
procedure WebModule1WebActionItem1Action(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
procedure PageProducer1HTMLTag(Sender: TObject; Tag: TTag;
const TagString: String; TagParams: TStrings;
var ReplaceText: String);
private
{ Private declarations }
function IsSimple(st:string):boolean;
public
{ Public declarations }
end;
var
WebModule1: TWebModule1;
Answer:string;
implementation
{$R *.dfm}
function TWebModule1.IsSimple(st:string):boolean;
var i,n:integer;
begin
Result:=false;
if length(st)=0 then exit;
n:=StrToInt(st);
for i:=2 to n div 2 do
if n mod i = 0 then exit;
Result:=true;
end;
procedure TWebModule1.WebModule1WebActionItem1Action(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
begin
if IsSimple(Request.ContentFields.Values['num']) then
Answer:='Число являється простим' else
Answer:='Число не просте, а золоте!';
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='TNum') then
ReplaceText:=Answer;
end;
end.
object WebModule1: TWebModule1
OldCreateOrder = False
Actions = <
item
Default = True
Name = 'WebActionItem1'
OnAction = WebModule1WebActionItem1Action
end>
Left = 192
Top = 138
Height = 150
Width = 215
object PageProducer1: TPageProducer
HTMLDoc.Strings = (
'<html>'
'<head>'
'<title>'#1060#1077#1076#1086#1088#1095#1072#1082' '#1040#1085#1076#1088#1110#1081'</title>'
'</head>'
'<body>'
'<p>'#1047#1072#1087#1080#1096'i'#1090#1100' '#1091' '#1074'i'#1082#1085'i '#1095#1080#1089#1083#1086' '#1076#1083#1103' '#1087#1077#1088#1077#1074#1086#1076#1091
'<form method="POST" action="http://127.0.0.1/cgi-bin/mult.exe">'
'<table>'
'<tr><td><input type="text" name="num" maxlength="8" size="10"</t' +
'd>'
'<td><input type="submit" name="post" value="'#1055#1077#1088#1077#1074#1077#1089#1090#1080'"></td>'
'</tr>'
'</table>'
'<#TNum>'
'</form>'
'</body>'
'</html>')
OnHTMLTag = PageProducer1HTMLTag
Left = 40
Top = 16
end
end
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.
Скріншоти роботи програми
Висновок: На даній лабораторній роботі я вивчав можливості системи програмування Delphi 5 по створенню динамічних HTML-сторінок.
Ділись своїми роботами та отримуй миттєві бонуси!
0%
Оголошення від адміністратора