Я схожу с ума?

[Хакер]

У меня есть код, который вызывает некоторую функцию и, в зависимости от того, что она возвратит - 0 или код ошибки, либо делает некоторые действия, либо сообщеает об ошибке.

И тут мой код вдруг стал возвращать иногда (в 1 из 3 случаев) какой-то (судя по описанию ошибки) неизвестный код.

Непредусмотренная ситуация. Ошибка при создании InfoProvider

Дай, думаю, посмотрю, что за код:

Код: Выделить всё

hRes = НекотораяФунция(.......)
Select Case hRes
    Case HRESULTS.S_OK   ' Константа SULTS.S_OK = 0, если что
          '''''''''''   ВЫРЕЗАНО.
          ' ТУТ СОВЕРШАЮТСЯ НЕКОТОРЫЕ ДЕЙСТВИЯ.
          ' НЕВАЖНО КАКИЕ.




    Case HRESULTS.E_OUTOFMEMORY
        MsgBox "Не удаётся совершить операцию: недостаточно памяти!", vbCritical, "Критическая ошибка"
    Case CLASS_E_CLASSNOTAVAILABLE
        MsgBox "Не удаётся совершить операцию: не удаётся создать объект указанного класса", vbCritical, "Критическая ошибка"
    Case HRESULTS.E_INVALIDARG
        MsgBox "Ошибка во время совершения операции: неверные аргументы!", vbCritical, "Ошибка"
    Case Else
        MsgBox "Непредусмотренная ситуация. Ошибка при создании InfoProvider (hresult: 0x" + Right("00000000" + Hex$(hRes), 8) + ")", vbCritical, "Критическая ошибка"
End Select

Видите, я добавил (hresult: 0x" + Right("00000000" + Hex$(hRes), 8) + ")" в код, чтобы в следующий раз при возникновении ошибки я мог узнать значение переменной hRes (т.е. код ошибки в 16-ричном представлении).

Запускаем, и видим следующий шедевр:

Непредусмотренная ситуация. Ошибка при создании InfoProvider (hresult: 0x00000000)

Думаем: если hRes = 0, то почему начинает выполняться Case Else, тогда как должен выполняться Case HRESULTS.S_OK ?

[Sebas]

какой VB?

если NET + hRes as long

то легко.

выведи hres чистоганом

[Хакер]

VB6. Другого быть не может.

[BV]

А что происходит под отладкой? Поставь бряк на вызов функции, посмотри в Watch значение hRes, далее иди шагами по F8 и смотри, куда перекинет конструкция Select Case. Кстати, кинь сюда работающий пример, или результирующий asm-код.

[Debugger]

А ты поставь красную точку на Select Case и на сам Case. Если они значения hRes и HRESULTS.S_OK совпадут, то ты вероятно, сходишь с ума.
А кто сказал, что в VB отлажены все-все баги?

[Хакер]

BV
При отладке в среде разработки словить такой баг не удалось.

[Хакер]

Положим конец безумию?

Код: Выделить всё

MsgBox "Непредусмотренная ситуация. Ошибка при создании InfoProvider (hresult: 0x" + Right("00000000" + Hex$(hRes), 8) + ") " + CStr(hRes = S_OK) + ". Does " + CStr(hRes) + " equals " + CStr(S_OK) + "? -- " + CStr(S_OK = hRes) + " Сумма = " + CStr(S_OK + hRes), vbCritical, "Критическая ошибка"

Ответ был весьма оригинальным:

Непредусмотренная ситуация. Ошибка при создании InfoProvider (hresult: 0x00000000) False. Does 0 equals
1367072? -- False Сумма = 0"

Из синего текста делаем вывод, что S_OK не 0 (хотя ведь 0 - Edanmo же не конченый псих декларировать S_OK с таким значением, как у меня, да и Object Browser заверяет меня в том, что она всё-таки 0), а 1367072. Ой А может уже и True не True, а, скажем, vbYesNo ?

Ладно. Допустим, что S_OK всё-таки 1367072.
Тогда CStr(S_OK = hRes) действительно будет False.
Но, чёрт возьми, почему тогда CStr(S_OK + hRes) будет 0?

Я в шоке

[BV]

Кстати, кинь сюда работающий пример, или результирующий asm-код.

[Хакер]

Исключено.

[BV]

По каким причинам?

[Хакер]

По многим.
Во-первых, проект (теперь) с закрытым исходным кодом. Во-вторых, коду нужен специальный файл, который генерируется другим кодом. В-третьих, коду нужна DLL-библиотека, специальным образом сгенерированная.

[Хакер]

Ы!

Код: Выделить всё

If hRes = 0 Then
                    MsgBox "hres равен нулю"
                Else
                    MsgBox "hres НЕ равен нулю"
                End If
                Select Case hRes
                    Case Is = 0
                      ' Ы
                      ' Ы
                      ' Ы
                    Case HRESULTS.E_OUTOFMEMORY
                        MsgBox "Не удаётся совершить операцию: недостаточно памяти!", vbCritical, "Критическая ошибка"
                    Case CLASS_E_CLASSNOTAVAILABLE
                        MsgBox "Не удаётся совершить операцию: не удаётся создать объект указанного класса", vbCritical, "Критическая ошибка"
                    Case HRESULTS.E_INVALIDARG
                        MsgBox "Ошибка во время совершения операции: неверные аргументы!", vbCritical, "Ошибка"
                    Case Else
                        MsgBox "Непредусмотренная ситуация. Ошибка при создании InfoProvider (hresult: 0x" + Right("00000000" + Hex$(hRes), 8) + ") " + CStr(hRes = S_OK) + ". Does " + CStr(hRes) + " equals " + CStr(S_OK), vbCritical, "Критическая ошибка"
                End Select

видите If-блок. Угадайте с трёх раз какое сообщение я увидел.

[BV]

А что мешает привести asm-код?

[Хакер]

какой asm-код?

[BV]

Машинный, тот, который компилятор пишет в obj-файлы. С добрым утром.

[Хакер]

А. опять я думал, что BV умнее, чем мне кажется. Опять я переспрашивал у него, и получал хамский ответ, показыющий, что моё мнение насчёт него было ошибочным. Ты хочешь, чтобы я сюда выложил огромную простныю из 72 кб asm-кода, да? Нет? Прикрепить файл с кодом, да? Это чем-то лучше, чем выкладывание самого файла?