Старый плагин OCX не работает в Windows 2016 - PullRequest
0 голосов
/ 25 мая 2018

У нас есть старый компонент OCX, написанный на VB6, который должен работать на сервере Windows 2016, который дает некоторые странные поведения.Компонент работает в среде Windows 2008 R2 и Windows 2003.

Мы заметили одну вещь.

Dim fso As New FileSystemObject

Вызывает исключение, когда мы изменяем код на

 Dim fso As FileSystemObject
 Set fso = New FileSystemObject

исключение исчезает.

форма, которую мы запускаем, запускается из пользовательского элемента управлениясо следующим кодом

Public Function Initialize(Optional ByVal pstrMapIni As String, Optional ByVal lGuiAllowed As Boolean = True)
  GUIALLOWED = lGuiAllowed
  If right(pstrMapIni, 1) <> "\" Then
    pstrMapIni = pstrMapIni + "\"
  End If
  pstrMapIni = pstrMapIni + "map.ini"
  frmMain.SetMapIni (pstrMapIni)
  Load frmMain
End Function 

Загрузка frmMain завершается с ошибкой нулевого ref

, если кто-то имеет представление о том, в каком направлении мы должны искать ... мы вне их.

...