INetHttpCommand.Credential

Credential: INetHttpCommandCredential;

Отсутствует;

Sub UserProc;
Var
    Service: INetHttpService;
    Cmd: INetCommand;
    HttpCmd: INetHttpCommand;
    Rest: IDtRestProvider;
    Creds: INetHttpCommandCredential;
    Request, Response: Variant;
    MemStream: IIOStream;
    TReader: ITextReader;
Begin
    Service := New NetHttpService.Create;
    Service.Url := "http://www.sample.com/api/request?key=12345&id=Sample";
    Cmd := Service.Connect;
    HttpCmd := Cmd As INetHttpCommand;
    Rest := New DtRestProvider.Create;
    Rest.Timeout := 10000;
    //Учётные данные для аутентификации при подключении
    Creds := HttpCmd.Credential;
    Creds.Method := NetHttpCommandAuthentication.Basic;
    Creds.User := "user";
    Creds.Password := "password";
    //Дополнительные параметры выполнения запросов
    HttpCmd.Command := NetHttpCommandType.Get_;
    HttpCmd.AcceptLanguage := "ru";
    HttpCmd.OuterBody := True;
    HttpCmd.ConnectionTimeout := 10000;
    HttpCmd.Timeout := 10000;
    HttpCmd.Headers.Add("Accept: application/json");
    Request := "";
    //Выполнение GET-запроса
    Cmd.Start(Request);
    Response := Cmd.Result;
    If (Response.IsNull) Then
        Debug.WriteLine("Получен пустой ответ");
    Else
        If Response Is String Then
            Debug.WriteLine(Response As String);
        Else
            MemStream := New MemoryStream.Create;
            MemStream.CopyFrom(IOStream.FromVariant(Response), -1);
            MemStream.Position := 0;
            TReader := New TextReader.Create(MemStream);
            TReader.Encoding := CodePage.UTF8;
            TReader.ReadToEnd;
            //Дальнейшая работа с полученным потоком данных
        End If;
    End If;
End Sub UserProc;

Отсутствует.