Форум программистов, компьютерный форум, киберфорум
Наши страницы

Delphi и сети

Войти
Регистрация
Восстановить пароль
 
plsap
-8 / 0 / 0
Регистрация: 26.10.2015
Сообщений: 82
#1

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

09.12.2016, 19:36. Просмотров 251. Ответов 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
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Пишет ошибку в html коде (Delphi):

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

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

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

Не могу найти ошибку в коде - Delphi
Нужно, чтобы программа показывала количество нечётных элементов массива. А у меня оно всё время выдаёт 1. program Project2; uses ...

Авторизация на сайте - найти ошибку в коде - Delphi
var i:Integer; s:string; html_tag:variant; begin html_tag:=wb1.OleObject.Document.Forms.item(0).elements; for i:=0 to...

Найти ошибку в коде ('Privileged instraction') - Delphi
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; ...

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

Нужно найти ошибку в маленьком коде - Delphi
В строчке где указывается диапазон цифр пишет ошибку,помогите её найти.Заранее спасибо) procedure TForm1. Edit1KeyPress(Sender: TObject; ...

Пустой ответ на GET-запрос. Исправить ошибку в коде - Delphi
Всем привет! Нужна помощь!!! Код: if HTTP.HTTPMethod('GET', 'http://mcskinsearch.com/browse/'+IntToStr(NP)) then begin ...

Исправить ошибку в приведенном коде (ошибка выдается на первое else) - Delphi
if y1=0 then y3:=1 and Edit11.Text:=IntToStr(z1)+IntToStr(x1)+IntToStr(c1)+IntToStr(v1)+IntToStr(b1)+IntToStr(n1)...

Компилятор выдает ошибку, но не пишет какую и не выделяет ее в коде - Free Pascal
Недавно скачала Free Pascal 2.6.2. Сначала он уточнял тип ошибки и показывал ее в коде. Сейчас он просто пишет, что компиляция фейлд. И...


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

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

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