Runtime error 91 только на Win7 64. На остальных ОС порядок.

[Rody66]

Доброго дня.
Есть кусок кода (контекст немного запутанный:

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

Private Sub SetLevelInfo(ByRef Level As Levels)
    If IsFileExists(Level.Value) Then
        Select Case Right$(Level.Value, 4)
            Case "html", ".htm", ".chm": Level.ValueType = URL
            Case Else: Level.ValueType = File
        End Select
        Level.Content = ReadFile(Level.Value)
        Exit Sub
    End If
    If Left$(Level.Value, 7) = "http://" Then Level.ValueType = URL: Exit Sub
    Level.ValueType = Text
    Level.Content = Level.Value
End Sub


Который не работает только на Win 7 64 и выбрасывает рантайм 91. Если же убрать последнюю строку Level.Content = Level.Value, то всё начинает работать. На первый взгляд мистика какая-то...
Что бы это могло быть?

[Хакер]

Что, неужели не хватает сообразиловки поотлаживать на целевой платформе?

[Rody66]

А что там отлаживать? Ясно же, что ошибка на последней строке. Текст ошибки тоже есть. Не вижу нужды в отладке.

[iGrok]

Ясно же, что ошибка на последней строке.

Из чего ты сделал этот вывод? Из того, что всё начинает работать, если её убрать?
Так я тебя огорчу - совсем не обязательно дело именно в ней. Всё зависит от того, что такое Levels.

А учитывая, что никто кроме тебя тут этого не знает, единственный действительно нормальный вариант - отладка на целевой платформе.

[Rody66]

В модуле:

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

Public Type StartEnd
    Start As Long
    End As Long
End Type
Public Enum ValueType
    Text
    URL
    File
End Enum
Public Type Levels
    Caption As String
    Value As String
    Content As String
    Sublevel As StartEnd
    ValueType As ValueType
End Type


[ger_kar]

Отладка однако нужна. Без неё никак. При останове на проблемной строке в окне Locals Window посмотреть какие значения содержаться в полях структуры Levels. Ошибка "Ссылка на объект или блок оператора With не установлен", значит либо Level.Content недоступен, либо Level.Value. Что будет если попытаться в окне Immediate в режиме команд попытаться присвоить Level.Content текстовую константу, присвоится или нет.
Может промежуточную переменную ввести в которую значение Level.Value скидавать, а потом присваивать Level.Content = переменная и т.д.
Для тебя имею под рукой твой проект и отладчик выяснить все гораздо проще, так как остальные могут только гадать.
Тем более код в других ОС Работает. По коду источник проблемы без отладки определить вряд ли удастся.

[ark]

да код вроде как нормальный (для х86) выглядит. Я даже могу предположить, что в IDE на х64 может прокатить. Тут, похоже, дело не в коде, а в компилере и адресации строк в структуре. Возможно, компиляция на х64 решит проблему. Попробуй всякие разные режимы совместимости. Из области "А вдруг?" - попробуй вместо Level.XXX With...end with

[ger_kar]

Кто нибудь пробовал отладку обычного х86 - 32 битного кода в Win64, OlleDbg например. Будет этот отладчик вообще работать в 64 битной системе?
Тогда можно погонять код в этом отладчике и точно посмотреть что происходит.

[iGrok]

Кто нибудь пробовал отладку обычного х86 - 32 битного кода в Win64, OlleDbg например. Будет этот отладчик вообще работать в 64 битной системе?

Я не только пробовал, но и периодически практикую. А куда он денется-то? Конечно будет работать.

[Rody66]

попробуй вместо Level.XXX With...end with

Сперва так и было -- не работало. В скором времени опробую вариант с отладкой на целевой оси. Насчет совместимости тоже вариант не лучший, ибо даже если заработает, постоянно просить конечного пользователя поставить совместимость -- не самый практичный способ.

[ger_kar]

постоянно просить конечного пользователя поставить совместимость -- не самый практичный способ.

Так можно попробовать это проделать через манифест.

[Rody66]

Пробовал все варианты совместимости -- не помогло. Но, как выясняется, на другой Win 7 64 (не виртаульной) всё работает. Поэтому пока не будет жалоб на данную проблема, думаю, тема не актуальна. Всем благодарен за помощь.