Свойство ITSPRequest::HTTPStatus

Свойство HTTPStatus позволяет получить значение кода HTTP-статуса ответа сервера (после выполнения метода Send). При успешном выполнении запроса - 200. Свойство доступно только для чтения.

Возвращаемое значение имеет тип HRESULT. Значение S_OK означает успешное выполнение.

 HRESULT get_HTTPStatus(
   LONG* pVal
 );

Аргументы:

Аргумент	Описание
pVal	Указатель на возращаемое значение свойства.

HTTP-статус

 Property HTTPStatus As Boolean

Пример

 ' Объявление переменных
 Dim oRequest As TSPCOM.TSPRequest
 Dim oStamp As TSPCOM.TSPStamp
 Dim lHTTPStatus As Long

 ' Инициализация oRequest
 ' ...

 ' Создание, отправка запроса и получение штампа времени
 On Error Resume Next
 Set oStamp = oRequest.Send()
 If Err.Number = 0 Then
     ' Какие-либо действия со штампом времени
     ' ...
 Else
     lHTTPStatus = oRequest.HTTPStatus
     If lHTTPStatus <> 0 Then
         lHTTPStatus = oRequest.HTTPStatus
         ' Какие-либо действия со статусом HTTP
         ' Например, вывод на экран соответствующей информации
         ' ...
     Else
         ' Какие-либо действия для случая других ошибок
         ' ...
     End If
 End If