Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi: Сети
Войти
Регистрация
Восстановить пароль
 
plsap
-8 / 0 / 0
Регистрация: 26.10.2015
Сообщений: 100
#1

Пишет ошибку в html коде

09.12.2016, 19:36. Просмотров 269. Ответов 0
Метки нет (Все метки)

Выводит ошибку во всем html коде. Что делать?

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
unit Unit1;
 
interface
 
uses
  SysUtils, Classes, HTTPApp, DB, DBTables, DBBdeWeb, DBWeb, HTTPProd, DSProd,Graphics;
 
type
  TWebModule1 = class(TWebModule)
    Table1: TTable;
    DataSetTableProducer1: TDataSetTableProducer;
    PageProducer1: TPageProducer;
    procedure WebModule1initialAction(Sender: TObject;
      Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
    procedure WebModule1defaultAction(Sender: TObject;
      Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
    procedure DataSetTableProducer1FormatCell(Sender: TObject; CellRow,
      CellColumn: Integer; var BgColor: THTMLBgColor;
      var Align: THTMLAlign; var VAlign: THTMLVAlign; var CustomAttrs,
      CellData: String);
    procedure WebModule1fullAction(Sender: TObject; Request: TWebRequest;
      Response: TWebResponse; var Handled: Boolean);
    procedure DataSetPageProducer1HTMLTag(Sender: TObject; Tag: TTag;
      const TagString: String; TagParams: TStrings;
      var ReplaceText: String);
    procedure WebModule1PhotoAction(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 }
  public
    { Public declarations }
  end;
 
var
  WebModule1: TWebModule1;
 
implementation
 
{$R *.dfm}
 
procedure TWebModule1.WebModule1initialAction(Sender: TObject;
  Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
begin
    Response.Content:=DataSetTableProducer1.Content;
end;
 
procedure TWebModule1.WebModule1defaultAction(Sender: TObject;
  Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
begin
   Response.Content:='<H2>Ошибка запроса!</H2>';
   Response.Content:=Response.Content+'<a href=../dstr2.exe><h2>Назад</h2></a>';
end;
 
procedure TWebModule1.DataSetTableProducer1FormatCell(Sender: TObject;
  CellRow, CellColumn: Integer; var BgColor: THTMLBgColor;
  var Align: THTMLAlign; var VAlign: THTMLVAlign; var CustomAttrs,
  CellData: String);
begin
   if (CellRow>0)and(CellColumn=0) then
     Celldata:='<a href=dstr2.exe\full?EventNo='+
        table1.Fields[0].AsString+'>'+Celldata+'</A>';
end;
 
procedure TWebModule1.PageProducer1HTMLTag(Sender: TObject; Tag: TTag;
  const TagString: string; TagParams: TStrings; var ReplaceText: string);
begin
<html>
<head>
<title>Обзор спортивного состязания</title>
</head>
<Table Width="100%" Border=1 BgColor="Silver"><Caption>Заказ билетов на спортивные соревнования</Caption>
<TR><TH Align="Right">Номер по порядку</TH>
<TH Align="Left"><#EventNo></TH></TR>
<TR><TH Align="Right">Название состязания</TH>
<TH Align="Left"><#Event_Name></TH></TR>
<TR><TH Align="Right">Дата проведения</TH>
<TH Align="Left"><#Event_Date></TH></TR>
<TR><TH Align="Right">Время провендения</TH>
<TH Align="Left"><#Event_Time></TH></TR>
<TR><TH Align="Right">Цена билета</TH>
<TH Align="Left"><#Ticket_price></TH></TR>
</Table>
<br><br>
<#Event_Description>
<br><br>
<#Event_Photo>
<br><br>
<a href="../dstr2.exe">Вернуться назад</a>
</body>
</html>
end;
 
procedure TWebModule1.WebModule1fullAction(Sender: TObject;
  Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var
   q1:string;
   options:TLocateOptions;
begin
   q1:=Request.QueryFields.Values['EventNo'];
   Table1.Locate('EventNo',q1,options);
   Response.Content:=DataSetPageProducer1.Content;
end;
 
procedure TWebModule1.DataSetPageProducer1HTMLTag(Sender: TObject;
  Tag: TTag; const TagString: String; TagParams: TStrings;
  var ReplaceText: String);
begin
   if CompareText(TagString,'Event_Photo')=0 then
      ReplaceText:='<img src=Photo?EventNo='+table1.Fields[0].AsString+'>';
    if CompareText(TagString,'Event_Description')=0 then
      ReplaceText:=Table1.FieldByName('Event_Description').AsString;
end;
 
procedure TWebModule1.WebModule1PhotoAction(Sender: TObject;
  Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var
  B:TBitmap;
  S:TMemoryStream;
  q1:string;
  options:TLocateOptions;
begin
   q1:=Request.QueryFields.Values['EventNo'];
   Table1.Locate('EventNo',q1,options);
   B:=TBitmap.Create;
   B.Assign(Table1.FieldByName('Event_Photo'));
   S:=TMemoryStream.Create;
   B.SaveToStream(S);
   S.Position:=0;
   Response.ContentType:='image/x-xbitmap';
   Response.ContentStream:=S;
   B.Free;
end;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.12.2016, 19:36
Ответы с готовыми решениями:

найти ошибку в коде
Помогите найти ошибку в коде. нужно чтобы через кнопки загрузить и сохранить в...

Нужно исправить ошибку коде
var idHTTP, idHTTP1: TIdHTTP; Cache, title, img, classN, s, fileName,...

Помогите найти ошибку в коде!
Procedure Print_points (a:matr;i:integer;result:integer); Var j:integer;...

Не могу найти ошибку в коде
Нужно, чтобы программа показывала количество нечётных элементов массива. А у...

Найти ошибку в коде ('Privileged instraction')
unit Unit1; interface uses Windows, Messages, SysUtils, Variants,...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.12.2016, 19:36

Нужно найти ошибку в маленьком коде
В строчке где указывается диапазон цифр пишет ошибку,помогите её найти.Заранее...

Авторизация на сайте - найти ошибку в коде
var i:Integer; s:string; html_tag:variant; begin ...

Пустой ответ на GET-запрос. Исправить ошибку в коде
Всем привет! Нужна помощь!!! Код: if HTTP.HTTPMethod('GET',...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru