GetOpenFileName в Windows 7

[bvg_666]

Здравствуйте!
Работаю на VB6. Вопрос следующий: как из приложения на VB6, установленного на Windows7, выбрать файл. Стандартный контрол Common Dialog ругается при выполнении метода ShowOpen, а API-функция GetOpenFileName тоже не работает (приложение просто закрывается).

[Antonariy]

Работает.

[NeverGone]

Работает.

+1, проверено на х86 и х64

[Денис]

Стандартный контрол Common Dialog ругается при выполнении метода ShowOpen, а API-функция GetOpenFileName тоже не работает (приложение просто закрывается).

Проверьте версии рантайма (msvbvm6.dll) в семерке. Как правило, бывает, что какая-нибудь "кулхацкерская тулза" пихает в system32 свою версию библиотеки, несовместимую с остальными, нормальными программами (я на таком подкалывался).
Ну и сервиспак шестой на студию поставьте, если еще не установлен.

[alibek]

Переношу.

tag_warning

[Antonariy]

Тут скорее нужно проверять радиус кривизны рук автора путем предоставления им неработающего кода.

[bvg_666]

sp6 на VS стоит, тестирование проходит на виртуалке с Windows7, где больше ничего не установлено
фрагмент кода:
1. Common Dialog
cdOpenFile.FileName = ""
cdOpenFile.ShowOpen - зависание
2. GetOpenFileName
Dim OpenFile As OpenFileName
Dim lReturn As Long
Dim sFilter As String
OpenFile.lStructSize = Len(OpenFile)
OpenFile.hwndOwner = hWnd
OpenFile.hInstance = App.hInstance
sFilter = ""
OpenFile.lpstrFilter = sFilter
OpenFile.nFilterIndex = 1
OpenFile.lpstrFile = String(1000, 0)
OpenFile.nMaxFile = Len(OpenFile.lpstrFile) - 1
OpenFile.lpstrFileTitle = String(257, 0)
OpenFile.nMaxFileTitle = Len(OpenFile.lpstrFileTitle) - 1
OpenFile.lpstrInitialDir = CurDir
OpenFile.lpstrTitle = Title
OpenFile.Flags = flag Or OFN_EXPLORER
lReturn = GetOpenFileName(OpenFile) - приложение вылетает

[Хакер]

Хочешь оказаться наказанным?

[bvg_666]

Проверьте версии рантайма (msvbvm6.dll) в семерке. Как правило, бывает, что какая-нибудь "кулхацкерская тулза" пихает в system32 свою версию библиотеки, несовместимую с остальными, нормальными программами (я на таком подкалывался).
Ну и сервиспак шестой на студию поставьте, если еще не установлен.

sp6 на VS стоит, тестирование проходит на виртуалке с Windows7, где больше ничего не установлено
фрагмент кода:
Common Dialog

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

cdOpenFile.FileName = ""
cdOpenFile.ShowOpen


- зависание

ф-ция GetOpenFileName

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

Dim OpenFile As OpenFileName
Dim lReturn As Long
Dim sFilter As String
OpenFile.lStructSize = Len(OpenFile)
OpenFile.hwndOwner = hWnd
OpenFile.hInstance = App.hInstance
sFilter = ""
OpenFile.lpstrFilter = sFilter
OpenFile.nFilterIndex = 1
OpenFile.lpstrFile = String(1000, 0)
OpenFile.nMaxFile = Len(OpenFile.lpstrFile) - 1
OpenFile.lpstrFileTitle = String(257, 0)
OpenFile.nMaxFileTitle = Len(OpenFile.lpstrFileTitle) - 1
OpenFile.lpstrInitialDir = CurDir
OpenFile.lpstrTitle = Title
OpenFile.Flags = flag Or OFN_EXPLORER
lReturn = GetOpenFileName(OpenFile)


- приложение вылетает

[Antonariy]

Видимо глюк виртуалки. Нет ни одной разумной причины для того, чтобы GetOpenFileName (или CommonDialog, использующий ее же) не работало под семеркой.

[alibek]

hInstance в данном случае задавать не нужно.
И попробуй использовать W-функцию.

[bvg_666]

Видимо глюк виртуалки. Нет ни одной разумной причины для того, чтобы GetOpenFileName (или CommonDialog, использующий ее же) не работало под семеркой.

У всех наших пользователей под W7 ошибка при открытии файла.
Доп.информация(может это важно): программа собирается на компьютере-сборщике с W2003ServerSP2(все необходимые сервис-паки для Windows и VB установлены). Исходный код тест-программы во вложении (несколько строк). Что не так?

FileSystem.rar

(2.98 Кб) Скачиваний: 76

[bvg_666]

Есть какие-нибудь соображения по проблеме? Подскажите хотя-бы, в каком направлении двигаться

[bvg_666]

После того как я выложил проект мне никто не отвечает. Что произошло?
Как мне решить эту проблему с Win 7?

[Antonariy]

Современной науке это не известно. Этот проект у меня на семерке работает.