Проблемы с переносимостью

[Александр Андреев]

Делаю exe-шник под Win2000. Все работает.
Затем запускаю его под NT 4.0 т все валится. Ругается программа в API-функции GetClassName, которая определена вот так:

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

Declare Function GetClassName Lib "user32" _
Alias "GetClassNameA" (ByVal hwnd As Long, _
                       ByVal lpClassName As String, _
                       ByVal nMaxCount As Long) As Long

и находится в user32.dll.

Может кто знает как с этим бороться? Или по-крайней мере подскажите в какую сторону копать...

[Vitaliy]

В качестве информации для размышления:
А Вы свою (из WIN2000) DLL-ку на NT переносите? Попробуйте перенести и зарегистрировать, сохранив на всякий случай старую.

[Александр Андреев]

Это не подойдет
Похоже на взлом системы, мне этим не дадут заниматься.

[Sebas]

Что за ошибка?

может GetClassNameW или просто GetClassName ? Посмотри Депендсом дллку.

[Александр Андреев]

GetClassNameA, т.к. VB не может декларировать просто GetClassName. NT при упомянутой ошибке пишет здоровенный log, в котором все подробно излагает.
Есть еще одна проблема - ошибка 429 'ActiveX component can't create object'. Подобная проблема возникала у меня и на 2000, когда я пытался подключить какие-нибудь левые ocx-ы. Такое чувство, что они разрабатываются для специфической операционки.

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

[Sebas]

Ну, так проверяй версию системы и вперёд!

Declare Function GetClassNameNT Lib "user32" _
Alias "GetClassNameA" (ByVal hwnd As Long, _
ByVal lpClassName As String, _
ByVal nMaxCount As Long) As Long

Declare Function GetClassName2K Lib "user32" _
Alias "GetClassNameX" (ByVal hwnd As Long, _
ByVal lpClassName As String, _
ByVal nMaxCount As Long) As Long

[alibek]

Функция называется одинаково, просто в NT-системах большинство API-функций имеет два варианта реализации, с окончанием "A" для ANSI-варианта, и с окончанием "W" для Unicode-варианта.
Скорее всего ты не преобразовывал строку из Unicode в ANSI (StrConv(Var, vbFromUnicode)), когда передавал аргумент в функцию.
Попробуй делать так:
Декларация:

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

Declare Function GetClassName Lib "user32" _
Alias "GetClassNameA" (ByVal hWnd As Long, _
                       ByVal lpClassName As Long, _
                       ByVal nMaxCount As Long) As Long

Использование:

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

Dim CName As String, ret As Long
...
CName = Space$(1024)
ret = GetClassName(Me.hWnd, StrPtr(CName), Len(CName))


StrPtr (или PtrStr, не помню точно), это указатель на строку, правда это недокументированная и неподдерживаемая функция. В крайнем случае для получения указателя используй GlobalAlloc и GlobalLock.

[Александр Андреев]

Ок, спасибо, я попробую.
Тут еще обнаружилось, что эта ошибка плавает. Сейчас, например, я ее никак не могу получить

[Александр Андреев]

В общем, GetClassName я вообще исключил из программы, без него обхожусь.
Проблема с созданием ActiveX контрола возникает в следующем коде:

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

Dim fso As FileSystemObject
Set fso = New FileSystemObject

Сам fso располагается в библиотеке scrrun.dll, она под NT есть. Попытки переписать эту библиотеку из Win2000 тоже ничего не дали.
Что мне с этим делать, подскажите

[RayShade]

Может, просто

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

Set obj = createobject("Scripting.Filesystemobject")


[boevik]

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

Dim fso As FileSystemObject
Set fso = New FileSystemObject


или

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

Set obj = createobject("Scripting.Filesystemobject")


в run-time оба кода дадут одинаковый результат.
Первый код это Early binding (с проверкой properties и вызова функций на стадии компиляции)
Второй код это Late binding (с проверкой properties и вызова функций на стадии run-time)

[Александр Андреев]

Действительно, все одно и то же. Как бы я не конструировал FileSystemObject, программа генерирует ошибку 429.
Есть еще какие-нибудь соображения? Может быть что-то зарегистрировать надо...

[Sebas]

scrrun.dll разная в NT и 98
попробуй скачать у мс последнюю версию

[Александр Андреев]

Нет, у меня стоят абсолютно одинаковые версии 5.6.0.6626.