Задание 4: Создание запроса

В этом задании вы создадите экземпляр класса Credentials, который содержит учётные данные пользователя PAS for OpenEdge, затем создадите запрос.

• Опишите переменную oCredentials типа Credentials в блоке Preprocessor Definitions:

define variable oCredentials as Credentials no-undo.

• Опишите переменную oRequest типа IHttpRequest в блоке Preprocessor Definitions:

define variable oRequest as IHttpRequest no-undo.

• Создайте экземпляр учетных данных, используя следующие данные, и присвойте его к oCredentials: Tomcat Manager Application в качестве домена; tomcat в качестве имени пользователя; tomcat в качестве пароля. Добавьте следующий код в файл процедуры в блок Main block:

oCredentials = new Credentials('Tomcat Manager Application','tomcat', 'tomcat').

• Создайте экземпляр IHttpRequest, используя класс RequestBuilder со следующими данными: GET в качестве метода; oURI в качестве URI; oCredentials в качестве Credentials с базовой аутентификацией; JSON как ожидаемый результат. Добавьте следующий код в файл процедуры в блок Main block:

oRequest = RequestBuilder:Build('GET', oURI)
     :usingBasicAuthentication(oCredentials)
     :Request.

• Сохраните изменения.