fpWeb Tutorial/ru: what changed

Revision 2 to 3. Removed lines have a minus sign; added lines have a plus sign.

Old	New		Line
1		-	` Первоначально основано на учебнике fcl-web (в формате PDF) пользователя форума `[`Leledumbo`](https://forum.lazarus.freepascal.org/index.php?action=profile;u=7523)`.`
	1	+	```text
	2	+	Первоначально основано на учебнике fcl-web (в формате PDF) пользователя форума Leledumbo.
	3	+	```
2	4
3	5		## Введение
4	6
5	7		fpWeb - это фреймворк веб-приложений, поставляемый FPC в своем дистрибутиве по умолчанию как часть пакета fcl-web. Сам фреймворк построен на основе функций fcl-web. Фреймворк построен с мыслью о RAD, чтобы эффективно использовать компонентность при создании динамического контента. Предоставляется пакет Lazarus, который может использовать фреймворк методом перетаскивания для управления сеансами и создания контента. В этом руководстве мы попытаемся охватить основные функции fpWeb, чтобы с его помощью можно было создать обычное веб-приложение. Обратите внимание, что это руководство не пытается научить вас HTTP-протоколу, HTML, CSS, JavaScript или манипуляциям с базой данных, поскольку владение протоколом и клиентскими языками должно быть предварительным условием работы для каждого программиста веб-приложений, а манипуляции с базой данных не отличаются от десктопной реализации.
6	8
7	9		## Архитектура (ПОЖАЛУЙСТА, прочтите)
8	10
9	11		Перед тем, как начать, необходимо знать архитектуру и поток приложения, чтобы избежать путаницы, когда определенные вещи не работают или работают неожиданно. Поэтому, пожалуйста, потратьте немного времени на чтение этого раздела.
10	12
11	13		### Приложение
12	14
13	15		Под приложением здесь понимается протокол, который будет реализовывать ваше приложение. fpWeb с радостью переключится с CGI, FCGI, с модуля Apache на встроенный сервер и т.д., если fcl-web реализует еще что- нибудь в будущем. Каждое приложение реализовано в своем собственном модуле, поэтому для переключения с одного приложения на другое, за исключением модуля Apache, нужно просто изменить соответствующий идентификатор в разделе uses. В настоящее время (по состоянию на 3.0.0 / 3.1.1) это:
14	16
15	17		- fpCGI -\> CGI
16	18		- fpFCGI -\> FastCGI
17	19		- fpApache (также требуется httpd) -\> модуль Apache
18	20		- fpHttpApp -\> встроенный сервер
19	21		- microhttpapp -\> встроенный сервер с использованием библиотеки GNU libmicrohttp.
20	22		- fphttpsys -\> поддержка системой Windows протокола HTTP.
21	23
22	24		В этом руководстве мы будем использовать встроенный сервер для простоты, потому что вам не придется иметь дело с настройкой виртуального сервера и путаницей со сложным файлом конфигурации и управлением службами. Ваше приложение будет единым переносным бинарным веб-приложением! Другая причина может заключаться в том, что существует больше, чем одно приложение веб-сервера, и каждое имеет свой способ настройки. Было бы излишним пытаться охватить их всех, пока их документация уже выполняет свою работу. Модуль Apache реализован как (динамическая) библиотека, тогда как другие протоколы являются обычным приложением. Каждое приложение может иметь определенные свойства (например, порт), доступные и значимые только для этого приложения. Вот почему, если вы посмотрите на примеры fcl-web, пары .lpi / .lpr для каждого протокола помещаются в свои собственные каталоги, только веб-модули являются общими.
23	25
24	26		### Веб-модули
25	27
26	28		![](/wiki-images/5/50/FpWeb-overview.png)
27	29
28	30		Приложения fpWeb состоят из веб-модулей, которые фактически создают контент. Веб-модуль может содержать веб-действия, которые могут еще больше разделить функциональность. Например, веб-модуль аутентификации может иметь веб-действия входа и выхода. Хотя модуль about web может вообще не нуждаться в действии и обслуживает только один контент. Веб-модуль интегрирован с fpTemplate, который можно использовать для создания динамического контента из файла шаблона. Это примерно похоже на то, что делает PHP, только разрыв между логикой и представлением скорее вынужденный, чем предполагаемый. Некоторые говорят, что fpTemplate реализует пассивное представление, в то время как PHP по умолчанию реализует шаблон проектирования активного представления.
29	31
30	32		## Установка
31	33
32	34		Пакет fpWeb для Lazarus по умолчанию не установлен (но идет в стандартной поставке). Чтобы включить fpWeb:
33	35
34	36		1. Откройте Lazarus и выберите Package-\>Install/Uninstall Package
35	37		2. В списке Available (Доступно) для установки найдите weblaz и нажмите Install selection (Установить выбранное). Нажмите Save and rebuild IDE(Сохранить и пересобрать IDE) и подтвердите, нажав Continue(Продолжить).
36	38		3. Позвольте IDE пересобраться и перезапуститься. Если все пойдет хорошо, у вас должна появиться вкладка fpWeb на палитре компонентов, как показано ниже:
37	39
38	40
39	41
40	42		![](/wiki-images/5/55/Fpwebtutorial_inst.png)
41	43
42	44		## Специализированные модули
43	45
44	46		КлассTFPWebModule (используемый ниже) - это простой пример модуля fpWEB, который можно использовать для всех видов HTTP-запросов.
45	47
46	48		Однако fpWEB поставляется с некоторыми специализированными модулями, которые имеют дополнительную поддержку для специализированных задач:
47	49
48	50		- Класс TSimpleFileModule в модуле fpwebfile.pp можно использовать для отправки файлов. Вы указываете ему каталог, и он делает все остальное.
49	51		- Класс TFPHTMLModule в модуле fphtml.pp можно использовать для создания HTML.
50	52		- Класс TProxyWebModule в модуле fpwebproxy.pp - это готовый прокси для пересылки.
51	53		- Класс TFPWebProviderDataModule в модуле fpwebdata.pp обслуживает данные в формате JSON, которые могут использоваться хранилищами ExtJS.
52	54		- Класс TSQLDBRestModule в модуле sqldbrestmodule.pp реализует полноценный сервер REST, поддерживаемый SQLDB. См. дополнительную информацию в [[SQLDBRestBridge]].
53	55		- Класс TJSONRPCModule в модуле webjsonrpc.pp реализует службу JSON-RPC.
54	56		- Класс TExtDirectModule в модуле fpextdirect.pp реализует вариант Ext.Direct службы JSON-RPC.
55	57
56	58		## Hello, World!
57	59
58	60		Создадим простое веб-приложение. Как обычно преподают при изучении программирования: "Hello, World!" будет нашим первым приложением.\
59	61
60	62		1\. Откройте Lazarus и выберите Project-\>New Project, затем выберите HTTP server Application
61	63
62	64
63	65		![Создать новое приложение HTTP-сервера](/wiki-images/5/57/Fpwebtutorial_create_app.png)\
64	66
65	67		2\. Появится другое диалоговое окно для обслуживания статических файлов, выбора порта и многопоточности. Просто используйте порт по умолчанию 8080.
66	68
67	69
68	70		``` pascal
69	71		You may skip the static files serving (go to tips and tricks section if you want to know it more).
70	72		```
71	73
72	74		(Вы можете пропустить обслуживание статических файлов (перейдите в раздел советов и рекомендаций, если хотите узнать больше))
73	75
74	76
75	77		![](/wiki-images/e/e6/Fpwebtutorial_port_selection.PNG)
76	78
77	79		:ВАЖНО!:
78	80
79	81
80	82		Если вы решите использовать потоки на *nix, не забудьте добавить cthreads в качестве первого модуля в разделе uses .lpr, в противном случае будет создан RTE 232. При запуске с консоли должно отображаться сообщение:
81	83
82	84		``` pascal
83	85		This binary has no thread support compiled in. Recompile the application with a thread-driver in the program uses clause before other units using thread.
84	86		```
85	87
86	88		(В этом двоичном файле не скомпилирована поддержка потоков. Перекомпилируйте приложение с драйвером потока в программе using предложение перед другими модулями, использующими поток)\
87	89
88	90		3\. С 14 января 2017г. (или FPC 3.0.4) вам может потребоваться открыть .lpr и добавить следующую строку в основной текст, если ее еще там нет:
89	91
90	92
91	93		``` pascal
92	94		Application.LegacyRouting := true;
93	95		```
94	96
95	97		причина будет объяснена в главе [[fpWeb Tutorial/ru\|Маршрутизация]].
96	98
97	99		4\. Что бы вы ни выбрали, нажмите "OK", и вы будете представлены в приложении fpWeb с одним модулем по умолчанию.\
98	100		5\. Переместите фокус на модуль и перейдите в Object Inspector. Не стесняйтесь переименовывать модуль, если хотите.\
99	101		6\. Выберите вкладку Events и нажмите кнопку справа от второго столбца в строкеOnRequest, чтобы создать обработчик событий.
100	102
101	103
102	104		![Создание обработчика OnRequest веб-модуля в object inspector](/wiki-images/8/8d/Fpwebtutorial_on_request.png)\
103	105
104	106
105	107		Вы будете перенаправлены в редактор исходного кода со следующим кодом:
106	108
107	109		:
108	110
109	111		``` pascal
110	112		procedure TFPWebModule1.DataModuleRequest(Sender: TObject; ARequest: TRequest;
111	113		AResponse: TResponse; var Handled: Boolean);
112	114		begin
113	115		\|
114	116		end;
115	117		```
116	118
117	119
118	120		Заполните событие:
119	121
120	122		:
121	123
122	124		``` pascal
123	125		procedure TFPWebModule1.DataModuleRequest(Sender: TObject; ARequest: TRequest;
124	126		AResponse: TResponse; var Handled: Boolean);
125	127		begin
126	128		AResponse.Content := 'Hello, World!';
127	129		Handled := true;
128	130		end;
129	131		```
130	132
131	133		7\. Теперь запустите приложение (или нажмите F9).\
132	134		8\. Откройте браузер и введите:
133	135
134	136
135	137		<http://localhost:8080/>\
136	138
137	139		9\. Вы должны увидеть отображающееся "Hello, World!".\
138	140
139	141		Если это не так, проверьте ниже:
140	142
141	143		- Фреймворк выполняет много операций по обработке исключений, и отладчик IDE может их поймать и прервать работу вашего приложения. Можно добавить большинство исключений в список игнорирования, чтобы вы могли больше сосредоточиться на потоке приложения. Продолжайте пропускать и продолжайте, пока не перестанет появляться диалоговое окно и браузер не покажет результат.
142	144
143	145		- Handled := true - это способ, которым мы сообщаем фреймворку, что запрос был обработан. Если вы не установите его (или установите для него значение false), вместо этого будет отображаться страница с ошибкой. На данный момент это не влияет на поток запросов, но будет позже. Так что держите это так, пока не придет время, чтобы использовать его с пользой.
144	146
145	147		- другой трек: тест без брандмауэра, загруженного в ОЗУ (как приложение, как сервис или демон, или как оба).
146	148
147	149		## Чтение данных GET и POST
148	150
149	151		Динамический контент, скорее всего, будет запускаться из пользовательского ввода, либо через формы, предоставляя значения в URL-адресе, и т. Д. Эти данные отправляются вместе с запросом, который представлен в методе как ARequest параметр типа TRequest.
150	152
151	153		### Чтение GET
152	154
153	155		Данные GET предоставляются как ARequest.QueryFields, который является потомком TStrings. Короче говоря, все, что вы обычно делаете с TStrings, применимо здесь, например, доступ к данным в стиле карты через свойство Values.
154	156
155	157		Повторно используя приведенный выше код, замените тело метода на:
156	158
157	159		``` pascal
158	160		procedure TFPWebModule1.DataModuleRequest(Sender: TObject; ARequest: TRequest;
159	161		AResponse: TResponse; var Handled: Boolean);
160	162		var
161	163		LName: String;
162	164		begin
163	165		LName := ARequest.QueryFields.Values['Name'];
164	166		if LName = EmptyStr then
165	167		with AResponse.Contents do
166	168		begin
167	169		Add('<form action="' + ARequest.URI + '" method="GET"');
168	170		Add('<label for="name">Please tell me your name:</label>');
169	171		Add('<input type="text" name="name" id="name" />');
170	172		Add('<input type="submit" value="Send" />');
171	173		Add('</form>');
172	174		end
173	175		else
174	176		AResponse.Content := 'Hello, ' + LName + '!';
175	177		Handled := true;
176	178		end;
177	179		```
178	180
179	181		ARequest.URI - это просто ссылка на текущий URI, поэтому даже когда вы меняете зарегистрированный модуль или имя действия, этот код остается прежним.
180	182
181	183		Обратите внимание, что, как и в Паскале, обращение к данным осуществляется без учета регистра.
182	184
183	185		Теперь вы можете попробовать запросить /, который отобразит
184	186
185		-	~~` Please tell me your name`~~
	187	+	```text
	188	+	Please tell me your name
	189	+	```
186	190
187	191		и /?name=\<напишите здесь что угодно, например: Bob\>, который отобразит
188	192
189		-	~~` Hello, Bob!`~~
	193	+	```text
	194	+	Hello, Bob!
	195	+	```
190	196
191	197		### Чтение POST
192	198
193	199		POST на самом деле не сильно отличается от GET, отличается только тем, к какому свойству получить доступ. Если доступ к GET осуществляется через ARequest.QueryFields, доступ к POST осуществляется через ARequest.ContentFields. Стиль POST предыдущего кода:
194	200
195	201		``` pascal
196	202		procedure TFPWebModule1.DataModuleRequest(Sender: TObject; ARequest: TRequest;
197	203		AResponse: TResponse; var Handled: Boolean);
198	204		var
199	205		LName: String;
200	206		begin
201	207		LName := ARequest.ContentFields.Values['Name'];
202	208		if LName = EmptyStr then
203	209		with AResponse.Contents do
204	210		begin
205	211		Add('<form action="' + ARequest.URI + '" method="POST"');
206	212		Add('<label for="name">Please tell me your name:</label>');
207	213		Add('<input type="text" name="name" id="name" />');
208	214		Add('<input type="submit" value="Send" />');
209	215		Add('</form>');
210	216		end
211	217		else
212	218		AResponse.Content := 'Hello, ' + LName + '!';
213	219		Handled := true;
214	220		end;
215	221		```
216	222
217	223		### Чтение загружаемых файлов
218	224
219	225		Единственное исключение - чтение полей multipart/form-data, то есть файлов. Оно доступно в ARequest.Files как экземпляр TUploadedFiles, который является потомком TCollection. Ниже приведен общедоступный интерфейс TUploadedFiles, который вы можете использовать для доступа к файлам:
220	226
221	227		``` pascal
222	228		TUploadedFiles = Class(TCollection)
223	229		...
224	230		public
225	231		Function First: TUploadedFile;
226	232		Function Last: TUploadedFile;
227	233		Function IndexOfFile(AName: String) : Integer;
228	234		Function FileByName(AName: String) : TUploadedFile;
229	235		Function FindFile(AName: String) : TUploadedFile;
230	236		Property Files[Index: Integer] : TUploadedFile read GetFile Write SetFile; default;
231	237		end;
232	238		```
233	239
234	240		Каждый TUploadedFile сам по себе имеет несколько свойств:
235	241
236	242		``` pascal
237	243		TUploadedFile = Class(TCollectionItem)
238	244		...
239	245		Public
240	246		Destructor Destroy; override;
241	247		Property FieldName: String Read FFieldName Write FFieldName;
242	248		Property FileName: String Read FFileName Write FFileName;
243	249		Property Stream: TStream Read GetStream;
244	250		Property Size: Int64 Read FSize Write FSize;
245	251		Property ContentType: String Read FContentType Write FContentType;
246	252		Property Disposition: String Read FDisposition Write FDisposition;
247	253		Property LocalFileName: String Read FLocalFileName Write FLocalFileName;
248	254		Property Description: String Read FDescription Write FDescription;
249	255		end;
250	256		```
251	257
252	258		Они должны быть достаточно информативными, за исключением FileName и LocalFileName. FileName - это name исходного файла, загружаемого с клиента, LocalFileName - это путь к файлу на сервере, где файл временно хранится. Обратите внимание на разницу, выделенную жирным шрифтом выше.
253	259
254	260		Опять же, повторное использование того же обработчика запросов:
255	261
256	262		``` pascal
257	263		procedure TFPWebModule1.DataModuleRequest(Sender: TObject; ARequest: TRequest;
258	264		AResponse: TResponse; var Handled: Boolean);
259	265		var
260	266		n: Integer;
261	267		f: TUploadedFile;
262	268		i: Integer;
263	269		begin
264	270		n := ARequest.Files.Count;
265	271		if n = 0 then
266	272		with AResponse.Contents do
267	273		begin
268	274		Add('<form id="form" action="' + ARequest.URI + '" method="POST" enctype="multipart/form-data">');
269	275		Add('<label for="name">Drag n drop or click to add file:</label>');
270	276		Add('<input type="file" name="input" />');
271	277		Add('<input type="submit" value="Send" />');
272	278		Add('</form>');
273	279		end
274	280		else
275	281		begin
276	282		f := ARequest.Files[0];
277	283		AResponse.Contents.LoadFromStream(f.Stream);
278	284		end;
279	285		Handled := true;
280	286		end;
281	287		```
282	288
283	289		перетащите и бросьте файл (желательно текстовый, так как он будет отображаться как текст) в поле входного файла (или нажмите соответствующую кнопку), затем нажмите кнопку Send' (Отправить). Должно отобразиться содержимое файла.
284	290
285	291		## Cookies
286	292
287	293		### Отправка
288	294
289	295		![Концепция «cookie», изобретенная Netscape в 1994 году, позволяет HTTP-серверу идентифицировать всех своих клиентов.](/wiki-images/5/5c/Cookie_session_Object_Pascal.png)\
290	296		Файлы cookie - небольшой фрагмент данных, отправленный веб-сервером и хранимый на компьютере пользователя. Веб-клиент (обычно веб-браузер) всякий раз при попытке открыть страницу соответствующего сайта пересылает этот фрагмент данных веб-серверу в составе HTTP-запроса ([Wiki](https://ru.wikipedia.org/wiki/Cookie)). AResponse.Cookies содержит список отправляемых файлов cookie. Это потомок TCollection, соответственно содержащийся TCookie является потомком TCollectionItem. Следовательно, вы можете использовать TCollection как способ управления элементами для управления ими.
291	297
292	298		Вот пример:
293	299
294	300		``` pascal
295	301		procedure TFPWebModule1.DataModuleRequest(Sender: TObject; ARequest: TRequest;
296	302		AResponse: TResponse; var Handled: Boolean);
297	303		var
298	304		C: TCookie;
299	305		begin
300	306		C := AResponse.Cookies.Add;
301	307		C.Name := 'mycookie';
302	308		C.Value := 'somevalue';
303	309		Handled := true;
304	310		end;
305	311		```
306	312
307	313		Вы не увидите никаких результатов в своем браузере. Но если вы используете какие-то инструменты разработчика (в Chrome есть встроенный) можно увидеть заголовок ответа:
308	314
309	315		![](/wiki-images/6/69/Fpwebtutorial_cookie_set.png)
310	316
311	317		Обратите внимание, что файл cookie имеет атрибуты, поэтому вы можете установить не только имя и значение. Просмотрите интерфейс TCookie, чтобы узнать, какие свойства поддерживаются.
312	318
313	319		### Получение
314	320
315	321		Как только вы укажете выше заголовок Set-Cookie, последующий запрос на ваш сайт будет содержать дополнительный заголовок, содержащий значение, которое вы просили установить ранее:
316	322
317	323		![](/wiki-images/9/93/Fpwebtutorial_cookie_get.png)
318	324
319	325		К счастью, способ чтения не отличается от данных GET и POST. Связанное свойство - ARequest.CookieFields. Чтобы прочитать ранее отправленный файл cookie:
320	326
321	327		``` pascal
322	328		procedure TFPWebModule1.DataModuleRequest(Sender: TObject; ARequest: TRequest;
323	329		AResponse: TResponse; var Handled: Boolean);
324	330		begin
325	331		AResponse.Contents.Add('<p>Cookie get: ' + ARequest.CookieFields.Values['mycookie'] + '</p>');
326	332		Handled := true;
327	333		end;
328	334		```
329	335
330	336		## Сессии
331	337
332	338		TFPWebModule является потомком TSessionHTTPModule, поэтому имеет возможность управления сессией. Сессия основана на модулях, поэтому каждый модуль может выбирать, использовать или не использовать управление сессией.
333	339
334	340		Сессия реализована абстрактно. По умолчанию реализация не предусмотрена. Один пример реализации с использованием файлов .ini приведен в модуле iniwebsession. Вы должны иметь этот модуль в своем проекте или реализовать его, чтобы управление сессией работало. Если вы решите реализовать один из них, в основном вам необходимо расширить и реализовать абстрактные методы в классах TCustomSession и 'TSessionFactory'.
335	341
336	342		### Активация
337	343
338	344		Чтобы активировать управление сессией, установите для свойства CreateSession в значение true. Сессия будет запущена до обработки запроса. В случае новой сессией будет вызвано OnNewSession. Здесь инициализируйте переменные сессии.
339	345
340	346		### Управление переменными сессии
341	347
342	348		Переменные сессии представлены как Session.Variables (примечание: объект сессии является эквивалентом массива \$ _SESSION, используемого в Php). Это строка для сопоставления строк, подобная структуре, поэтому вы можете читать / писать так:
343	349
344	350		``` pascal
345	351		Session.Variables['myvar'] := myvar; // записываем
346	352		...
347	353		myvar := Session.Variables['myvar']; // читаем
348	354		```
349	355
350	356		Задание переменной пустой строки НЕ удаляет ее. Если вы действительно хотите удалить переменную, вместо этого вызовите Session.RemoveVariable.
351	357
352	358		### Завершение
353	359
354	360		Вызывайте Session.Terminate всякий раз, когда вы хотите завершить сессию (например, выход пользователя из системы). Сессия также автоматически истечет, если следующий запрос поступит после Session.TimeOutMinutes с момента последнего запроса. Когда сессия завершается, будет вызван OnSessionExpired. Сделайте там все, что вам нужно.
355	361
356	362		## Маршрутизация
357	363
358	364		Начиная с FPC 3.0.4, был реализован новый механизм маршрутизации. Вместо сохранения обратной совместимости решено, что по умолчанию будет использоваться новая маршрутизация. Таким образом, любой старый код (или новый код в зависимости от старой маршрутизации) необходимо перенести, добавив:
359	365
360	366		``` pascal
361	367		Application.LegacyRouting := true;
362	368		```
363	369
364	370		в *.lpr файле.
365	371
366	372		### Старый способ
367	373
368	374		#### Использование нескольких модулей
369	375
370	376		В вашем приложении может быть несколько модулей. Щелкните меню "File", затем щелкните "New...". В появившемся диалоговом окне выберите "Web Module" в дереве выбора модулей.
371	377
372	378		![](/wiki-images/e/e5/Fpwebtutorial_new_module.png)
373	379
374	380		затем нажмите OK.
375	381
376	382		Поскольку в вашем приложении существует несколько модулей, вы больше не можете делать запрос (request) только с использованием `/`. Платформа не сможет волшебным образом выбрать, какой модуль должен обслуживать ответ (response), поэтому есть два способа указать, какой модуль вы хотите вызвать:
377	383
378	384		- /\<module name\>
379	385		- /?module=\<module name\>
380	386
381	387		Во втором формате вы можете изменить "module" (который является значением по умолчанию) на любой допустимый ключ строки запроса, изменив Application.ModuleVariable.
382	388
383	389		#### С использованием Actions
384	390
385	391		До сих пор мы использовали только веб-модули с обработчиком единого запроса. Это не сильно масштабируется, поскольку ваше веб-приложение становится все более и более сложным. Более того, некоторые функции могут иметь общие свойства и могут быть лучше логически сгруппированы, например:
386	392
387	393		- Account module
388	394		- Login action
389	395		- Logout action
390	396		- Register action
391	397		- Product module
392	398		- Create action
393	399		- Update action
394	400		- Delete action
395	401		- Details action
396	402
397	403		##### Поток обработки запросов (request)
398	404
399	405		Прежде, чем использовать действие (action), важно знать, как обрабатывается запрос fpWeb. В противном случае ваше действие (action) может оказаться бесполезным, потому что ваш модуль данных всегда обрабатывает запрос. Как такое могло случится? Возвращаясь немного назад, вспомните Handled := true, которое мы всегда делали раньше? Теперь в игру вступает параметр Handled.
400	406
401	407		Каждый запрос сначала будет проходить через модуль OnRequest, независимо от запрошенного действия. Только если для этого не установлено значение Handled, выполняется OnRequest веб-действия.
402	408
403	409		В общем, поток запросов:
404	410
405	411		![](/wiki-images/e/ea/Fpwebtutorial_request_flow.png)
406	412
407	413		Обратите внимание на окошко "Our Concern" (наша озабоченность), это то, на что мы собираемся обратить наше внимание.
408	414
409	415		##### Добавление действий в веб-модули
410	416
411	417		Чтобы добавить действие, выберите веб-модуль и перейдите в инспектор объектов. На вкладке свойств выберите "Actions" и нажмите кнопку во втором столбце.
412	418
413	419		![](/wiki-images/9/95/Fpwebtutorial_manage_actions.png)
414	420
415	421		Появится всплывающее окно, в котором вы можете добавлять, удалять и изменять порядок действий.
416	422
417	423		![](/wiki-images/d/db/Fpwebtutorial_edit_actions.png)
418	424
419	425		Нажмите "Add", в списке появится новое действие. Выберите его, затем перейдите в инспектор объектов. В настоящее время он будет показывать свойства и события этого вновь созданного действия. Переименуйте свойство Name (это будет имя, которое вы напишете в URL-адрес, поэтому дайте ему короткое, простое, но описательное имя) как вы желаете, я выберу "Hello". Двигаемся дальше на вкладку событий, сделайте то же самое, что и OnRequest для модуля, нажмите кнопку справа от строки OnRequest, чтобы создать обработчик запросов.
420	426
421	427		![](/wiki-images/2/2e/Fpwebtutorial_action_onrequest.png)
422	428
423	429		Вы будете представлены в том же интерфейсе OnRequest, но этот обрабатывает веб-действие вместо веб-модуля. Все, что вы можете сделать в OnRequest веб-модуля, можно сделать и здесь. Скопируйте тело метода из 'Hello, World!' раздела.
424	430
425	431		Не забудьте удалить Handled := true из тела OnRequest предыдущего веб-модуля (или полностью удалить событие), чтобы действие позаботилось об обработке запроса.
426	432
427	433		Запустите свой проект и запустите браузер. Теперь, поскольку обработка запросов делегирована веб-действию, вы больше не можете просто запрашивать /, но вам нужно / \<action name\> или \<свойство ActionVar модуля\>=\<action name\>. Обратите внимание, что \<свойство ActionVar модуля\> по умолчанию имеет значение пустой строки, в отличие от Application.ModuleVariable, для которого "модуль" является значением по умолчанию. Итак, по умолчанию вы можете использовать только /\<action name\> формы.
428	434
429	435		Если у вас несколько модулей, то у вас есть множество вариантов:
430	436
431	437		- /\<module name\>/\<action name\>
432	438		- /\<module name\>?action=\<action name\>
433	439		- /\<action name\>?module=\<module name\>
434	440		- /?module=\<module name\>&action=\<action name\>
435	441
436	442		Обратите внимание, что как только у модуля есть хотя бы одно действие, /\<module или action name\> по умолчанию сопоставляется с /\<action name\>. Чтобы изменить поведение таким образом, чтобы по умолчанию оно отображалось как /\<module name\>, установите для параметра Application.PreferModuleName значение true. В случае нескольких модулей, если имя модуля не указано, модуль по умолчанию будет обрабатывать данное действие. Чтобы изменить поведение таким образом, что имя модуля задавалось явно, установите для Application.AllowDefaultModule значение false.
437	443
438	444		Следующие таблицы обобщают то, что произойдет на основе двух свойств:
439	445
440	446		<thead>
441	447
442	448		</thead>
443	449		<tbody>
444	450
445	451		</tbody>
446	452
447	453		##### Действие по умолчанию
448	454
449	455		Помните предыдущую диаграмму, "Delegate request handling to actions" (Делегировать обработку запросов действиям) на самом деле не так просто, но если мы расширим эту диаграмму, изображение будет слишком большим, чтобы поместиться. Итак, вот схема этой части:
450	456
451	457		![](/wiki-images/4/44/Fpwebtutorial_request_delegation_flow.png)
452	458
453	459		Две важные вещи из потока: DefActionWhenUnknown и действие по умолчанию. Первое является свойством веб-модуля, а второе соответствует свойству Default действия. В последнем случае, если имеется более двух действий, для которых свойство Default установлено в значение `true`, порядок действий (то, как он отображается во всплывающем окне управления действиями) будет учитываться для определения того, какое действие является действием по умолчанию. Эти два свойства определяют, что должно делать приложение, если для данного запроса не найдено подходящего действия.
454	460
455	461		Следующие таблицы обобщают то, что произойдет на основе двух свойств:
456	462
457	463		<thead>
458	464
459	465		</thead>
460	466		<tbody>
461	467
462	468		</tbody>
463	469
464	470		<thead>
465	471
466	472		</thead>
467	473		<tbody>
468	474
469	475		</tbody>
470	476
471	477		В случае приведенного выше ответа об ошибке должна следовать трассировка стека с информацией о номере строки, если вы создаете свое приложение с параметром `-gl`. Позже мы увидим, как создать собственный обработчик для этого (трассировка стека не годится для производства). Но пока убедитесь, что вы понимаете концепцию веб-модуля и веб-действия, особенно поток запросов. Играйте, пока не решите, что готовы к следующему разделу.
472	478
473	479		### Новый механизм
474	480
475	481		Новый механизм чрезвычайно гибок и работает даже без модулей данных (старый механизм работает только с модулями данных).
476	482
477	483		Выделенный модуль для этой маршрутизации предоставляется как httproute (добавьте его в пункт использования программы/модуля, где вы хотите зарегистрировать маршруты). Модуль содержит функцию HTTPouter, которая возвращает одноэлементный объект, отвечающий за управление маршрутом приложения, и имеет метод RegisterRoute для регистрации вашего маршрута.
478	484
479	485		#### Синтаксис маршрута
480	486
481	487		Первый параметр HTTPouter.RegisterRoute — это маршрут, который будет сопоставляться с входящим запросом. Это может быть как простое *** выше, что означает 0 или более путей или просто любые пути, так и сложное, как /api/v1/:resource/*, что означает, что заголовок REQUEST_URI должен начинаться с /api/v1/**, за которым следует что-то еще, что будет привязано к переменной с именем resource и заканчиваться 0 или более путями. Он будет соответствовать:
482	488
483	489		- /api/v1/products
484	490		- /api/v1/products/1
485	491		- /api/v1/products/1/clone
486	492		- /api/v1/products/something/else/that/is/really/long/and/silly
487	493
488	494		но не:
489	495
490	496		- /api/v1
491	497		- /excuse/me/api/v1/products
492	498
493	499		В основном есть только 3 специальных символа:
494	500
495	501		- * обозначает 0 или более путей
496	502
497	503		-
498	504		param обозначающий часть
499	505
500	506		- / обозначающий разделитель частей
501	507
502	508		ваш маршрут будет состоять из этих 3 символов, а также всего остального, из чего состоит маршрут.
503	509
504	510		#### Регистрация маршрута
505	511
506	512		2-й, 3-й или 4-й параметр (в зависимости от того, хотите ли вы обрабатывать конкретный метод HTTP и/или передавать ему дополнительные данные) HTTPRouter.RegisterRoute перегружен несколькими возможностями:
507	513
508	514		- Процедура обратного вызова
509	515
510	516		``` pascal
511	517		TRouteCallback = Procedure(ARequest: TRequest; AResponse);
512	518		```
513	519
514	520		- Событие обратного вызова
515	521
516	522		``` pascal
517	523		TRouteEvent = Procedure(ARequest: TRequest; AResponse) of object;
518	524		```
519	525
520	526		- Объект, удовлетворяющий интерфейсу (CORBA)
521	527
522	528		``` pascal
523	529		IRouteInterface = Interface ['{10115353-10BA-4B00-FDA5-80B69AC4CAD0}']
524	530		Procedure HandleRequest(ARequest: TRequest; AResponse: TResponse);
525	531		end;
526	532		```
527	533
528	534		- Объект, расширяющий абстрактный класс маршрутизатора
529	535
530	536		``` pascal
531	537		TRouteObject = Class(TObject, IRouteInterface)
532	538		Public
533	539		Procedure HandleRequest(ARequest: TRequest; AResponse: TResponse); virtual; abstract;
534	540		end;
535	541
536	542		TRouteObjectClass = Class of TRouteObject;
537	543		```
538	544
539	545		По умолчанию, если второй параметр не является TRouteMethod, будут совпадать все методы HTTP. Используйте один из rmUnknown, rmAll, rmGet, rmPost, rmPut, rmDelete, rmOptions, rmHead, rmTrace, чтобы соответствовать только определенному методу HTTP.
540	546
541	547		Порядок регистрации имеет значение. Если есть два или более маршрута, соответствующих текущему запросу, его обработает ранее зарегистрированный.
542	548
543	549		В этом новом механизме автономнаяй "Hello, World!"-программа может быть такой простой, как:
544	550
545	551		``` pascal
546	552		uses
547	553		fphttpapp, httpdefs, httproute;
548	554		procedure DoHello(ARequest:TRequest; AResponse : TResponse);
549	555		begin
550	556		AResponse.Content:='<html><body><h1>Hello,World!</h1></body></html>'
551	557		end;
552	558
553	559		begin
554	560		HTTPRouter.RegisterRoute('*', @DoHello);
555	561		Application.Port := 9000;
556	562		Application.Initialize;
557	563		Application.Run;
558	564		end.
559	565		```
560	566
561	567		#### Пример веб-сервера
562	568
563	569		Это пример простого кроссплатформенного многопоточного веб-сервера.
564	570
565	571		``` pascal
566	572		program webserver;
567	573
568	574		{$mode objfpc}{$H+}
569	575
570	576		uses
571	577		{$ifdef UNIX}
572	578		cthreads, cmem,
573	579		{$endif}
574	580		fphttpapp, httpdefs, httproute;
575	581
576	582		procedure route1(aReq: TRequest; aResp: TResponse);
577	583		begin
578	584		aResp.content:='<html><body><h1>Route 1 The Default</h1></body></html>'
579	585		end;
580	586
581	587		procedure route2(aReq: TRequest; aResp: TResponse);
582	588		begin
583	589		aResp.content:='<html><body><h1>Route 2</h1></body></html>'
584	590		end;
585	591
586	592		begin
587	593		HTTPRouter.registerRoute('/', @route1, true);
588	594		HTTPRouter.registerRoute('/route2', @route2);
589	595		Application.port := 8080;
590	596		Application.threaded := true;
591	597		Application.initialize;
592	598		Application.run;
593	599		end.
594	600		```
595	601
596	602		## Использование шаблонов
597	603
598	604		fpWeb имеет встроенную поддержку FPTemplate, универсального движка шаблонов Free Pascal. Его не обязательно использовать из контекста веб-приложения, но с интегрированной поддержкой все будет немного проще. По крайней мере, управление памятью можно игнорировать, так как об этом позаботится модуль.
599	605
600	606		Есть два уровня, на которых можно использовать шаблоны: действие и модуль. Полная поддержка RAD до конца не реализована, поэтому в некоторых моментах вам нужно перейти к ручному кодированию.
601	607
602	608		Существует два режима работы: непараметризованный и параметризованный. Активный режим управляется свойством AllowTagParams, которое должно быть достаточно очевидным, какое значение относится к какому режиму.
603	609
604	610		Строка шаблона может быть передана из файла через свойство FileName или прямая строка через свойство Template. `Template.Template` - я знаю, это звучит странно :) Если оба заполнены, то FileName будет иметь приоритет.
605	611
606	612		Два свойства: StartDelimiter и EndDelimiter определяют, как механизм должен распознавать тег шаблона. Например, если у вас есть:
607	613
608	614		- StartDelimiter = '{+'
609	615		- EndDelimiter = '+}'
610	616
611	617		затем строка '{+title+}' определяет тег шаблона с именем 'title'. Обратите внимание, что пробелы важны, поэтому '{+ title +}' определяет тег шаблона с именем ' title ', а не просто 'title'.
612	618
613	619		Специальные для параметризованного режима дополнительные три свойства: ParamStartDelimiter, ParamEndDelimiter и ParamValueSeparator определяют, как движок должен распознавать параметр тега шаблона. Например, если у вас есть:
614	620
615	621		- ParamStartDelimiter = '\[-'
616	622		- ParamEndDelimiter = '-\]'
617	623		- ParamValueSeparator = '='
618	624
619	625		тогда строка '{+data \[-p=v-\]\[-a=b-\] +}' определяет тег шаблона с именем 'data' с параметром 'p' значения 'v' и параметром 'a' значения ' б'. Это можно использовать для передачи параметра уровня шаблона, такого как ожидаемый формат даты, заголовок-строка-нижний колонтитул для настраиваемого выходного представления, имя файла и т. д., как вы решите.
620	626
621	627		Как следствие другого способа работы, основное событие, в котором работает шаблон, также отличается. Непараметризованный будет использовать OnGetParam, а параметризованный будет использовать OnReplaceTag. У них, конечно, другой интерфейс:
622	628
623	629		``` pascal
624	630		Type
625	631		// OnGetParam: только для поддержки простого тега шаблона (напр: {Name})
626	632		TGetParamEvent = Procedure(
627	633		Sender: TObject;
628	634		Const ParamName: String;
629	635		Out AValue: String
630	636		) Of Object;
631	637		// OnReplaceTag: для тегов с поддержкой параметров
632	638		TReplaceTagEvent = Procedure(
633	639		Sender: TObject;
634	640		Const TagString: String;
635	641		TagParams: TStringList;
636	642		Out ReplaceText: String
637	643		) Of Object;
638	644		```
639	645
640	646		В OnGetParam вы проверяете ParamName, а затем соответственно назначаете AValue, т. е. если вы хотите, чтобы тег 'title' был заменен на 'My App', тогда заполните метод следующим образом:
641	647
642	648		``` pascal
643	649		// используйте Trim(), если вы хотите, чтобы пробелы вокруг тега были незначительными
644	650		case Trim(ParamName) of
645	651		'title': AValue := 'My App';
646	652		else
647	653		AValue := 'UNKNOWN';
648	654		end;
649	655		```
650	656
651	657		В OnReplaceTag вы проверяете TagString и, возможно, TagParams, а затем соответственно назначаете ReplaceText, т.е., если вы хотите, чтобы тег 'datetime' был заменен текущим временем с параметром 'datetimeformat', чтобы указать, как следует форматировать дату и время, заполните метод следующим образом:
652	658
653	659		``` pascal
654	660		// используйте Trim(), если вы хотите, чтобы пробелы вокруг тега были незначительными
655	661		case Trim(TagString) of
656	662		'datetime': AValue := FormatDateTime(TagParams.Values['datetimeformat'],Now);
657	663		else
658	664		AValue := 'UNKNOWN';
659	665		end;
660	666		```
661	667
662	668		### На уровне действий
663	669
664	670		Создайте/выберите действие, затем перейдите в инспектор объектов. Вы увидите свойство подкомпонента с именем Template(Шаблон). Этот шаблон является обычным экземпляром TFPTemplate. Разверните его и заполните свойства, как описано выше. Теперь перейдите на вкладку Events(События), снова разверните Template, вы увидите два события. Заполните тот, который основан на вашем значении свойства AllowTagParams.
665	671
666	672		> Note: Если ваш Lazarus не может автоматически заполнять событие, попробуйте ввести имя вручную в поле редактирования, а затем нажмите кнопку "...". Это ошибка в текущем Lazarus, которая может быть исправлена в будущем.
667	673
668	674		На этом уровне шаблон с содержимым не устанавливается автоматически в качестве обработчика запроса. Это может измениться в будущем, но давайте разберемся с его текущим состоянием. Заполните событие OnRequest действия, затем заполните его:
669	675
670	676		``` pascal
671	677		with Actions.CurrentAction as TFPWebAction do
672	678		begin
673	679		AResponse.Content := Template.GetContent;
674	680		end;
675	681		Handled := true;
676	682		```
677	683
678	684		Приведение необходимо, поскольку CurrentAction имеет тип TCustomWebAction вместо TFPWebAction. Без него мы не сможем получить доступ к свойству Template.
679	685
680	686		### На уровне модуля
681	687
682	688		На уровне модуля вам в настоящее время придется делать это вручную, поскольку поддержка RAD не реализована. Связанным свойством является ModuleTemplate. Однако это не обычный экземпляр TFPTemplate, а специальный класс TFPWebTemplate, являющийся его потомком.
683	689
684	690		Идея здесь состоит в том, чтобы модуль предоставлял макет, а действия предоставляли контент с возможностью предоставления дополнительных переменных. Поэтому рекомендуется оставить AllowTagParams как есть и назначить событие OnGetParam только модуля. НЕ назначайте OnGetParam для ModuleTemplate, так как он никогда не будет вызываться.
685	691
686	692		Тег шаблона с именем 'content' будет автоматически заменен содержимым, созданным действием, все остальное заменяется либо из внутренних переменных шаблона, либо из OnGetParam.
687	693
688	694		### Использование отдельного шаблона
689	695
690	696		Несмотря на несколько неполную интеграцию, ничто не мешает вам использовать fpTemplate (или любые другие решения для шаблонов) вручную, вне встроенной поддержки. В некоторых случаях это может быть даже лучше, поскольку оно будет модульным.
691	697
692	698		## Использольвание html Producer object
693	699
694	700		Предполагая, что существует TWebAction с именем act_get_my_html, вы должны попросить написать в AResponse возврат внутреннего потока байтов: при ответе с помощью решения html Producer objects мы должны использовать методы писателя. Он управляет потоком памяти с целью ускорения. Здесь нет строкового типа, как в приведенном выше решении fpTemplate, которое использует обработку текста строки, как обычно в Php. Producer записывает в AResponse рекурсивную итерацию " foreach ", которая проходит по дереву полиморфных объектов HTML Dom, состоящему из иерархии классов `THtmlCustomElement = Class(TDOMElement)`(см. модуль `htmlelements.pp`). Итак, AResponse пишется параметром aWriter, со следующим вызовом:
695	701
696	702		``` pascal
697	703		procedure TFPWebModule1.act_get_my_htmlRequest(Sender: TObject; ARequest: TRequest; AResponse: TResponse; var Handled: Boolean);
698	704		begin
699	705		(* спрашиваем у HTMLEntityProducer1 содержимое своих html-элементов DOM: *)
700	706		HTMLEntityProducer1.HandleRequest(ARequest, AResponse, Handled);
701	707		Handled := True;
702	708		end;
703	709		```
704	710
705	711		Повторим еще раз, что работа Producer заключается в преобразовании потока внутренней памяти в текст в объекте ответа: именно так был разработан этот шаблон, хотя существует метод рендеринга text-html с именем ProduceContent только для целей отладки. Вы можете переопределить этот метод, если вы пишете или отлаживаете компонент Producer.
706	712
707	713		Вот пример с html-объектом Producer, позволяющий создать веб-приложение «способом RAD», то есть с помощью перетаскивания компонента HTMLEntityProducer из палитры:
708	714
709	715		``` pascal
710	716		procedure TFPWebModule1.HTMLEntityProducer1WriteEntity(Sender: THTMLContentProducer; aWriter: THTMLWriter);
711	717		begin
712	718
713	719		aWriter.startHeader;
714	720		aWriter.Meta('','Content-Type','text/html; charset=UTF-8');
715	721		aWriter.title('My web page');
716	722		aWriter.link('stylesheet','stylesheet.css','text/css','screen');
717	723		aWriter.EndHeader;
718	724
719	725		aWriter.Startbody;
720	726		aWriter.Startparagraph;
721	727		aWriter.heading2('Hello, world from inside §1:');
722	728		aWriter.Text('Here is text written inside the current paragraph.');
723	729		aWriter.Endparagraph;
724	730		aWriter.paragraph('This is another text written inside a self "started and ended" paragraph.');
725	731		aWriter.Startparagraph;
726	732		aWriter.heading2('Hello, world from inside §2:');
727	733		aWriter.Text('Here is the final text.');
728	734		aWriter.Image.src := 'logo.png';
729	735		AnotherProducer.WriteContent(aWriter);
730	736		aWriter.Endparagraph;
731	737		aWriter.Endbody;
732	738
733	739		end;
734	740		```
735	741
736	742		Свойство TWebAction.ContentProducer позволяет связать THTTPContentProducer с его веб-действием, предоставляемым через URI в сети.
737	743
738	744		\[ToDo: нет официальной документации о компонентах «способ RAD» fpWeb (html producer, html provider, html adapter, html formatter и т.д.)\]
739	745
740	746		## Советы и хитрости
741	747
742	748		### Возврат другого кода ответа HTTP
743	749
744	750		По умолчанию fpWeb возвращает HTTP 200 OK, чтобы указать на успешную обработку запроса. Это, конечно, не всегда так, поскольку пользовательский ввод может быть не таким, как мы ожидали. Для этого установите для параметра AResponse.Code в обработчике запроса код, который вы хотите вернуть.
745	751
746	752		### Перенаправление запроса на другой URL
747	753
748	754		Обычная практика после успешного входа в систему — перенаправление пользователя на страницу его учетной записи. Это можно сделать, вызвав AResponse.SendRedirect в обработчике запросов, указав URL-адрес для перенаправления запроса.
749	755
750	756		### Обслуживание статических файлов (встроенный веб-сервер)
751	757
752	758		Помните диалоговое окно в разделе [[fpWeb Tutorial/ru\|Hello, World!]] после выбора приложения HTTP-сервера? Если вы отметите "Register location to serve files from"(Зарегистрировать местоположение для обслуживания файлов), вы можете заполнить "Location"(Расположение) (сегмент URI, не должен содержать слэшей) и "Directory"(Каталог) (физический каталог на вашем компьютере, должен существовать во время выполнения), то мастер просто добавит:
753	759
754	760		``` pascal
755	761		RegisterFileLocation('<Location>','<Directory>');
756	762		```
757	763
758	764		в начало вашего .lpr-файла и добавит модуль fpwebfile* в раздел uses. Вы можете сделать это вручную в любое время, а также зарегистрироваться несколько раз для разных местоположений/каталогов. После этого вы можете запросить /\<Location\>/\<любое имя файла в Directory\>, и оно будет предоставлено автоматически. Обратите внимание, что mimetype файла определяется fpmimetypes. Вызовите MimeTypes.LoadFromFile с вашим файлом mime.types, чтобы указать правильный тип mimetype на основе его расширения. В противном случае файл всегда будет обслуживаться как application/octet-stream, что означает, что браузер загрузит его, а не интерпретирует (особенно важно для файлов JavaScript и CSS).
759	765
760	766		Вы можете получить полные mime.types [здесь](http://svn.apache.org/viewvc/httpd/httpd/trunk/docs/conf/mime.types?&view=co).
761	767
762	768		В Lazarus 2.0.6 или новее вы должны добавить в начало своей программы полный путь к файлу mime.types.
763	769
764	770		``` pascal
765	771		begin
766	772		MimeTypesFile := Application.Location + 'mime.txt';
767	773		```
768	774
769	775		Примите во внимание, что путь по умолчанию, идущий с проектом, это - lib\\\$(TargetCPU)-\$(TargetOS)
770	776
771	777		Например: httpproject\lib\i386-win32\mime.txt
772	778
773	779		### Централизованное управление конфигурацией и модулями
774	780
775	781		По умолчанию программный файл (.lpr) содержит модуль протокола. Это ограничивает возможность использования объекта Application из других контекстов, таких как веб-модули. К счастью, нетрудно провести рефакторинг, чтобы получить то, что мы хотим. Мы удаляем вызовы RegisterHTTPModule из веб-модулей и не будем использовать .lpr для очистки основного блока с единственным идентификатором модуля в разделе uses, назовем его: брокер. Содержимое модуля:
776	782
777	783		``` pascal
778	784		unit Brokers;
779	785
780	786		{$mode objfpc}{$H+}
781	787
782	788		interface
783	789
784	790		{ $define cgi}
785	791		{ $define fcgi}
786	792		{$define httpapp}
787	793
788	794		uses
789	795		CustWeb;
790	796
791	797		function GetApp: TCustomWebApplication; inline;
792	798
793	799		implementation
794	800
795	801		uses
796	802		{$ifdef cgi}fpcgi{$endif}
797	803		{$ifdef fcgi}fpfcgi{$endif}
798	804		{$ifdef httpapp}fphttpapp{$endif}
799	805		,webmodule1
800	806		,webmodule2
801	807		;
802	808
803	809		function GetApp: TCustomWebApplication;
804	810		begin
805	811		Result := Application;
806	812		end;
807	813
808	814		initialization
809	815		RegisterHTTPModule('wm1', TWebModule1);
810	816		RegisterHTTPModule('wm2', TWebModule2);
811	817		{$ifndef cgi}
812	818		Application.Port := 2015;
813	819		{$endif}
814	820		Application.Initialize;
815	821		Application.Run;
816	822		end.
817	823		```
818	824
819	825		Таким образом, мы можем управлять регистрацией веб-модуля, а также предоставлять API для получения объекта Application (представленного как TCustomWebApplication), в то же время легко переключаясь между реализациями протокола в одном месте.
820	826
821	827		### Элегантное завершение (FastCGI / встроенный веб-сервер)
822	828
823	829		Вместо нажатия `Ctrl`+`C` в вашем приложении есть способ корректно завершить работу вашего приложения, выполнив необходимую очистку, вызвав Application.Terminate. Возможно, вам придется использовать предыдущий трюк, чтобы легко получить доступ к объекту Application. Распространенной реализацией является предоставление определенного защищенного паролем модуля/действия, которое вызывает метод Terminate. Впрочем, вы можете выбрать любой способ.
824	830
825	831		### Пользовательский обработчик исключений
826	832
827	833		\[отредактировано 1 мая 2020г =\> переход от указателя метода к простой процедуре..\]
828	834
829	835		Чтобы переопределить обработчик исключений по умолчанию, который выдает трассировку стека всякий раз, когда возникает исключение (например, по HTTP 404 или 500), и, следовательно, не подходит для производства, вы должны задать Application.OnShowRequestException.
830	836
831	837		Это метод, поэтому вам нужно будет предоставить свою процедуру, реализующую метод, и присвоить ее с помощью объекта, т.е.: если у вас есть MyExceptionHandler как объект TMyExceptionHandler, который имеет метод MyShowRequestException, вы можете назначить его посредством:
832	838
833	839		``` pascal
834	840		Application.OnShowRequestException := @MyExceptionHandler.MyShowRequestException;
835	841		```
836	842
837	843		не забудьте .Create() MyExceptionHandler ПЕРЕД назначением выше, иначе вы получите EAccessViolation!
838	844
839	845		Вы должны предоставить свою глобальную процедуру, которая реализует ваш собственный обработчик исключений (в рабочей среде рекомендуется заменить стек вызовов кодом состояния HTTP и его объяснением). Затем вы можете переопределить обработчик исключений по умолчанию, назначив его следующим образом:
840	846
841	847		``` pascal
842	848		Application.OnShowRequestException := @MyShowRequestException;
843	849		```
844	850
845	851		### Чисто ручное кодирование (дизайнер форм не требуется)
846	852
847	853		Нет необходимости использовать конструктор форм Lazarus для написания fpWeb-приложения. Вы можете использовать технику чисто ручного кодирования, чтобы написать его. Секрет кроется в третьем параметре RegisterHTTPModule: SkipStreaming. Если для этого параметра установлено значение true, fpWeb не будет искать ресурс .lfm. Поэтому все должно обрабатываться вручную: настройки свойств, обработчики событий, регистрация действий и т.д.
848	854
849	855		Обратите внимание, что логично делать то, что обычно делается через инспектор объектов в переопределенном конструкторе. Внутри него вызовите унаследованный конструктор, передав в качестве параметров AOwner и CreateMode. После этого вы можете установить свойства, назначить обработчики событий и т.д. Пример:
850	856
851	857		``` pascal
852	858		type
853	859		THelloWorldModule = class(TFPWebModule)
854	860		constructor CreateNew(AOwner: TComponent; CreateMode: Integer); override;
855	861		procedure Request(Sender: TObject; ARequest: TRequest;
856	862		AResponse: TResponse; var Handled: Boolean);
857	863		end;
858	864
859	865		constructor THelloWorldModule.CreateNew(AOwner: TComponent; CreateMode: Integer);
860	866		begin
861	867		inherited CreateNew(AOwner,CreateMode);
862	868		OnRequest := @Request;
863	869		end;
864	870
865	871		procedure THelloWorldModule.Request(Sender: TObject; ARequest: TRequest;
866	872		AResponse: TResponse; var Handled: Boolean);
867	873		begin
868	874		AResponse.Content := 'Hello, World!';
869	875		Handled := true;
870	876		end;
871	877		```
872	878
873	879		## См.также
874	880
875	881		- [Lazarus для Интернета (учебник)](https://www.freepascal.org/~michael/articles/#web1)
876	882		- [Lazarus для Интернета: сеансы и шаблоны (учебник))](https://www.freepascal.org/~michael/articles/#web2) В этой статье описывается класс TSQLDBSession, который управляет подключением SQL, которое наследуется от веб-сеанса (для управления историями переменных веб-сеанса в рамках сеанса подключения к базе данных, имеющей возможности блокировки строк).
877	883		- примеры - чтение текстовых файлов - в вашем каталоге ...\fpc\x.x.x\source\packages\fcl-web\examples.\
878	884
879	885		![](/wiki-images/c/c0/Cgi-listrecords.png)
880	886
881	887		- XML или JSON на ExtJS: если вы хотите использовать более или менее сложный движок, который очень «продвинут» в отношении аспекта рендеринга объектов Javascript на стороне браузера, в дополнение к их функциональным возможностям (например, ExtJS для отображения сетка с поддержкой базы данных, динамическая графика и т. д.), для такого решения очень часто требуется файл XML или JSON. Существуют классы Adapter и Formatter (например, классы TExtJSXMLWebdataInputAdaptor, TExtJSJSONDataFormatter).
882	888
883	889		В целом, классы Adapter адаптируют узлы входящего jSon или XML к отображению своих полей базы данных TField. А классы Formatter сопоставляют каждую запись TField с ее узлом в формате jSon или XML перед отправкой в браузер.\
884	890		* [Форматы веб-данных в Lazarus/FPC](https://www.freepascal.org/~michael/articles/#webdata)
885	891
886	892		- [Практическое построение GUI в ExtJS](https://www.freepascal.org/~michael/articles/#extjs1)
887	893		- [Смешивание веб-приложений ExtJS и Pascal: ExtPascal](https://www.freepascal.org/~michael/articles/#extpascal)
888	894
889	895		---
890	896		From the Free Pascal wiki, page "fpWeb Tutorial/ru", as it stood on 2022-06-07 after a change by Zoltanleo, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's [[Licensing]] page. If you have concerns about this material, [message the admin](/wiki-contact).

Back to history