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

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

09.12.2016, 19:36. Просмотров 272. Ответов 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.


Вернуться к обсуждению:
Пишет ошибку в html коде
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
Другие темы раздела
Delphi Не скачиваются некоторые файлы через интернет (Delphi 7) http://www.cyberforum.ru/delphi-networks/thread1873214.html
procedure TForm1.btn1Click(Sender: TObject); var q :tmemorystream; w :hwnd; begin q:=TMemoryStream.Create; idHTP1.Get('http://hacker********.ucoz.net/key.exe',q);...
Delphi Оформить обработчик события OnAction для действия по умолчанию Выдает ошибку на слове Response в команде Response.Content:='<H2>Ошибка запроса!</H2>'; Как её исправить? Вот сам проект unit Unit1; interface uses http://www.cyberforum.ru/delphi-networks/thread1873030.html
Как загрузить свои Cookie в TNetHTTPClient? Delphi
Привет всем. Помогите пожалуйста загрузить свои cookie с файла в TNetHTTPClient или TNetHTTPRequest. Или куда уже там надо, чтоб данные компоненты работали с ними. В каком виде должны они хранится...
TurboSite и Delphi 2006 Delphi
Привет всем уважаемые форумчане! Я создаю электронный учебник с помощью программы TurboSite, сайт уже почти готов, и у меня возник вопрос, смогу ли я открыть этот сайт через компонент "TWebBrowser" в...
Delphi Связать CheckListBox с папкой на рабочем столе http://www.cyberforum.ru/delphi-networks/thread1871022.html
Всем доброго времени суток. У меня возник вопрос связный с моим проектом, как привязать в программе например CheckListBox с папкой которая находится например на рабочем столе. То есть чтобы когда...
Delphi Отобразить ip и mac адреса через cmd (Delphi 7) есть команда в cmd которая отобразает ip адрес в сети и Mac адрес решил сделать чтобы в делфи запускалось cmd и эта команда но выходит ошибка не могу понять что не так unit Unit1; interface ... подробнее
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru