Дмитрий Г (Автор тем)

Очистка памяти при выполнении макроса

Пользователь

Сообщений: 6 Регистрация: 16.07.2020

09.12.2020 11:23:56

Всем привет.

Столкнулся с проблемой нехватки памяти и решил, что я умнее всех и пытался очистить ее следующим образом: Set oResponse = Nothing. Но это не работает, оперативная память не освобождается, пока не произойдет выход из цикла. Пример кода:

Код

Dim oRequestList As Collection
Dim oRequest As ServerXMLHTTP60
Dim oResponse as Object

'создание асинхронных http-запросов и добавление их в oRequestList

For Each oRequest In oRequestList
    oRequest.waitForResponse
    Set oResponse = JsonConverter.ParseJson(oRequest.responseText)

    'обработка json ответа

    Set oResponse = Nothing
Next oRequest

Иногда json-ответ, преобразованный в структуру для VBA может занимать 400 и более Мб памяти, также количество запросов варьируется. Были случаи, когда суммарно Excel начинал "поедать" 8 Гб памяти, что может быть страшным для некоторых ПК. Строкой Set oResponse = Nothing я думал память, выделенная под json-ответ, высвобождается, но это не так. Она высвобождается автоматически, когда происходит выход из цикла, а хотелось бы поддерживать эти ~400 Мб занятой памяти на протяжении работы всего цикла. Это как-то возможно сделать?

Ну и на самом деле я все равно не верил, что это поможет, ведь каждую итерацию в oResponse присваивается ссылка на другой объект, что, по идее, должно уничтожать объект по предыдущей ссылке.

Перейти

Отправка запроса к API с использованием сертификата

Дмитрий Г

Пользователь

Сообщений: 6 Регистрация: 16.07.2020

16.07.2020 08:14:50

Приветствую всех.

Возникла проблема с отправкой запроса к API Яндекс Директ.
Выложил ссылки на справку по Яндексу на всякий, потому что проблема возникает при отправке запросов именно к нему (в приложенном файле, а то местный антиспам не дает отправить сообщение). Тех. поддержка Яндекса может читать только общедоступную справку и давать консультации только теми словами, что уже и так написано в справке. Собственно они мне так и ответили, что если бы я писал на cURL или питоне, то они бы подсказали. Хотя я даже в этом случае сомневаюсь в их компетентности...
Попробовал отправить запросы этим же кодом к API Youtube, запрос улетел без капризов и был получен ответ.

При отправке запроса к API Яндекс Директ получаю следующие ошибки (в зависимости от опции WinHttpRequestOption_SecureProtocols):

при включенных SSL 2/3 - Ошибка 80072f7d: Ошибка поддержки безопасных каналов.
при включенном TLS 1.0 - Ошибка 80072f99: В сертификате клиента отсутствовали учетные данные.

По коду:
Строки с закомментированными опциями - все то, что я пробовал, чтобы запрос улетел.
Строки с закомментированными заголовками - все заголовки, которые были добавлены Rest Api Client'ом (кроме Host, это отсебятина). Основные, что требуются - это Authorization, Client-Login, Content-Type и Accept-Language.
Также пробовал использовать XMLHTTP2 v6.0 для отправки запроса, ошибки аналогичные, только их коды другие.

Возможно, Excel действительно не предназначен для таких запросов, но хочется верить, что все получится

Если есть замечания по обработке статусов http или еще чему, принимаю критику, но первостепенная задача - отправка запроса, а дальше уже ~~гори оно огнем~~ дело техники.

Скрытый текст

Код

Public Function jsonQuery(url As String, data As Dictionary, auth As auth, oldApi As Boolean) As Dictionary
  Dim token, login, payload As String
  Dim httpRequest As WinHttpRequest
  Dim httpResponse As String
  
  Set httpRequest = New WinHttpRequest
  token = auth.token
  login = auth.login
  
  With httpRequest
    '.Option(WinHttpRequestOption_RevertImpersonationOverSsl) = False
    .Open "POST", url, False
    .SetAutoLogonPolicy AutoLogonPolicy_Always
    '.Option(WinHttpRequestOption_UserAgentString) = "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/83.0.4103.116 Safari/537.36"
    '.Option(WinHttpRequestOption_SslErrorIgnoreFlags) = 13056
    '.Option(WinHttpRequestOption_SelectCertificate) = "LOCAL_MACHINE\Root\" '"LOCAL_MACHINE\Root\Certum CA"
    '.Option(WinHttpRequestOption_SecureProtocols) = 8 + 32 '8 - SSL 2.0, 32 - SSL 3.0, 128 - TLS 1.0
    '.Option(WinHttpRequestOption_EnablePassportAuthentication) = True
    '.Option(WinHttpRequestOption_EnableCertificateRevocationCheck) = True
    '.SetProxy HTTPREQUEST_PROXYSETTING_PROXY, "https://127.0.0.1:1120", ""
    
    .SetRequestHeader "Content-Type", "application/json; charset=utf-8"
    .SetRequestHeader "Accept-Language", "ru"
    '.setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/83.0.4103.116 Safari/537.36"
    '.setRequestHeader "Accept", "*/*"
    '.setRequestHeader "Host", "api.direct.yandex.com"

    If oldApi Then
      data.Add "token", token
    Else
      .SetRequestHeader "Authorization", "Bearer " & token
      .SetRequestHeader "Client-Login", login
    End If
    payload = JsonConverter.ConvertToJson(data)
    Debug.Print payload
    .Send payload   '<==== Строка, в которой происходит ошибка
    .WaitForResponse
    Debug.Print .Status & .StatusText
    httpResponse = .ResponseText
    Debug.Print httpResponse
    Set jsonQuery = JsonConverter.ParseJson(httpResponse)
  End With
  Set httpRequest = Nothing
End Function

Перейти