В переменной Str_Data все строки
будут иметь вид: Name = Value
где
Name – имя поля; Value – значение поля.
Для проверки методов передачи данных надо проверить значения mtGET, mtPOST, mtHEAD, используя свойства MethodType объекта Request. 71
if Request.MethodType = mtPOST then
Request.ExtractContentFields (Str_Data)
else if Request.MethodType = mtGET then
Request.ExtractQueryFields (Str_Data) else
{
Str_Data.Free; Exit;
•Если ни один из двух методов не подошел, то мы очищаем память от этого объекта
} |
72 |
|
•Для извлечения значений полей
надо применять свойства
Str_Data.Values[‘Name’] = ‘Значение’
Здесь Str_Data.Values[‘Name’] выделяет значение поля или кнопки по имени поля Name,
‘Значение’ – с чем надо сравнивать.
73
Для помещения данных при
формировании ответа применяется переменные объекта Response.
•Для вида ответа: Response.ContentType := ‘text/html’; (или text/plain).
Для самого ответа свойство Content, которое будет содержать полный текст выходного документа. Здесь можно использовать вспомогательные документы и переменные. 74
Response.Content :=
“<html><head><title>” + ”Это CGI скрипт на Delphi” + “</title></head>” +
<body> Текст ответа” + Str1 + “Еще текст </body></html>”;
•В конце модуля должна быть очистка памяти от мусора
Str_Data.Free;
75