Start(Var Value: Variant);
Value. Данные или запрос, отправляемые сетевому ресурсу для обработки.
Метод Start инициализирует отправку указанного запроса сетевому ресурсу.
При выполнении POST-запросов в параметре Value указывается SOAP-запрос, который будет обработан сервером.
При выполнении GET-запросов в параметре Value может быть передана пустая строка, а параметры выполнения указываются в строке адреса сетевого ресурса.
При завершении выполнения запроса результат выполнения будет доступен в свойстве Result.
Для выполнения примера предполагается наличие развёрнутого BI-сервера «Форсайт. Аналитическая платформа».
Добавьте ссылку на системную сборку Net.
Sub UserProc;
Var
Service: INetHttpService;
Cmd: INetCommand;
HttpCmd: INetHttpCommand;
Request: Variant;
Response, Id: string;
Begin
Service := New NetHttpService.Create;
Service.Url := "http://localhost:9090/axis2/services/PP.SOM.Som";
Cmd := Service.Connect;
HttpCmd := Cmd As INetHttpCommand;
HttpCmd.Command := NetHttpCommandType.Post;
HttpCmd.AcceptLanguage := "ru";
Request := "<OpenMetabase>" +
"<tDef><id>griva_p5</id></tDef>" +
"<tCreds><user><id>sa</id></user><pass>Qwerty1</pass></tCreds>" +
"</OpenMetabase>" ;
Cmd.Start(Request);
Response := Cmd.Result As String;
Id := Response.SubString(Response.IndexOf("<id>") + 4, Response.IndexOf("</id>") - Response.IndexOf("<id>") - 4);
Debug.WriteLine(Id);
Request := "<CloseMetabase><tMb><id>" + id + "</id></tMb></CloseMetabase>";
Cmd.Start(Request);
End Sub UserProc;
При выполнения примера осуществляется подключение к BI-серверу. BI-серверу будет направлен запрос на открытие соединения с репозиторием, полученный моникёр соединения будет выведен в консоль среды разработки. После этого отправляется запрос на закрытие соединения с репозиторием.
См. также: