Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Скачиваний:
23
Добавлен:
03.03.2016
Размер:
349.18 Кб
Скачать

В переменной 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

Тут вы можете оставить комментарий к выбранному абзацу или сообщить об ошибке.

Оставленные комментарии видны всем.

Соседние файлы в папке Лекции