VPF::переносимость. commondialog - Форум программистов

suvorr

Дата 14.10.2006, 10:28 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 111
Регистрация: 28.1.2006
Где: SPb

Репутация: нет
Всего: нет

Уже писал про это (и не только я) но никак не могу получить окончательного удовлетворения!
Для открытия файлов использую CommonDialog (а как еще?)
CommonDialog сидит в cmdlg32.dll которого на многих машинах нет (кстати кто его ставит -Windows или VB?). В результате чего юзеры теряются!
Уже давно смирился. Но тут попал на машину где cmdlg нет и вдруг IE на команду "открыть файл" выдает то самое окошко!
Вопрос -КАААК? Спасибо

Тутанхамец

Дата 14.10.2006, 14:59 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 612
Регистрация: 10.10.2005
Где: в пирамидЕ!

Репутация: 4
Всего: 6

cmdlg.ocx - это просто объектная оболочка для APIшных функций GetOpenFileName, GetSaveFileName и пр.

Это сообщение отредактировал(а) Тутанхамец - 14.10.2006, 15:00

--------------------

Мой блог / Мои фотки / Моё Skolkobudet.ru

JusTalionis

Дата 16.10.2006, 14:33 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 576
Регистрация: 11.7.2006

Репутация: 6
Всего: 17

Вместо Common Dialog пользуйся для этого API.
Как воспользоваться, я подробно объяснял в своем ответе вот на этот топик: http://www.forum.vingrad.ru/index.php?showtopic=104868
В этом методе будет использован файл comdlg32.dll, входящий в состав Виндов, им и пользуются остальные проги.

suvorr

Дата 17.10.2006, 08:53 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 111
Регистрация: 28.1.2006
Где: SPb

Репутация: нет
Всего: нет

Hi, JusTalionis! Весьма спасибо! Твой код работает. Но возник странный такой трабл - если перед вызовом GetOpenFileName загнать в FileBox.lpstrfile некоторый файл предлагаемый юзеру "по умолчанию", а он его не захочет и выберет более длинный, то она, собака, режет его до длины предложенного! Несмотря на filebox.nmaxfile=255! Не наступал ли ты на это ?

JusTalionis

Дата 17.10.2006, 12:38 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 576
Регистрация: 11.7.2006

Репутация: 6
Всего: 17

FileBox.lpstrfile - это и есть буфер для ввода имени файла: оно вводится конкретно в тело заданной строки. Если данные длиннее ее, конечно усекутся. У меня написано: space(255) - это строка из 255 пробелов. А ты ее заменил просто своим именем? надо было дополнить пробелами в конце до 255 знаков.

Это сообщение отредактировал(а) JusTalionis - 17.10.2006, 14:39

suvorr

Дата 1.11.2006, 11:40 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 111
Регистрация: 28.1.2006
Где: SPb

Репутация: нет
Всего: нет

ХА-ХА! Вы конечно будете смеяться, но под Windows XP код не работает !!!! Пишет RunTime Error 5 -неправильный вызов функции !!! За что боролись ??? А под 98 работает! Короче поставил я простой InputBox и прошу юзера набирать ручками !!! Хотя фонарею при этом - такая элементарная вещь -выбор файла - и никак не сделать что бы везде работало !!

mihanik

Дата 1.11.2006, 11:45 (ссылка)

(нет голосов)

Загрузка ...

-=Белый Медведь=-

Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 11
Всего: 109

Ты здесь читал - http://forum.vingrad.ru/s/f21d0a7d04b29129...pic-118488.html ?

Код


Option Explicit

''''''''''''''''''''
' Модуль для выбора ПОЛНОГО ИМЕНИ ФАЙЛА
'
' Используемые аргументы
'   strIniFolder - начальная папка
'
' Используемые API-функции
'   GetOpenFileName
'
''''''''''''''''''''

' Определяем структуру/тип для вызова API-функции
Type OPENFILENAME
    lStructSize         As Long
    hwndOwner           As Long
    hInstance           As Long
    lpstrFilter         As String
    lpstrCustomFilter   As String
    nMaxCustFilter      As Long
    nFilterIndex        As Long
    lpstrFile           As String
    nMaxFile            As Long
    lpstrFileTitle      As String
    nMaxFileTitle       As Long
    lpstrInitialDir     As String
    lpstrTitle          As String
    flags               As Long
    nFileOffset         As Integer
    nFileExtension      As Integer
    lpstrDefExt         As String
    lCustData           As Long
    lpfnHook            As Long
    lpTemplateName      As String
End Type

' определяем API-функцию
Declare Function GetOpenFileName Lib "comdlg32.dll" _
                 Alias "GetOpenFileNameA" (pOPENFILENAME As OPENFILENAME) As Long

' Описываем непосредственно саму функцию получения имени файла
Function strFileName(ByVal strIniFolder As String) As String

    ' Определяем переменные
    Dim OpenFile As OPENFILENAME
    Dim sFilter As String

    ' Заполним структуру для вызова функции GetOpenFileName
    OpenFile.lStructSize = Len(OpenFile)
    OpenFile.hwndOwner = 0
    OpenFile.hInstance = 0
    
    ' Определяем маску для отображаемых файлов
    sFilter = "Text Files " & Chr$(0) & "*.txt" & Chr$(0) & _
              "MS Word Files " & Chr$(0) & "*.doc" & Chr$(0) & _
              "All files " & Chr$(0) & "*.*" & Chr$(0)
              
    ' Продолжаем заполнение структуры
    OpenFile.lpstrFilter = sFilter
    OpenFile.nFilterIndex = 1
    OpenFile.lpstrFile = String$(255, 0)
    OpenFile.nMaxFile = Len(OpenFile.lpstrFile) - 1
    OpenFile.lpstrFileTitle = OpenFile.lpstrFile
    OpenFile.nMaxFileTitle = OpenFile.nMaxFile
    OpenFile.lpstrInitialDir = "strIniFolder"
    OpenFile.lpstrTitle = "Open..."
    OpenFile.flags = 0
    
    ' Вызываем API-функцию
    GetOpenFileName OpenFile

    ' Получаем полное имя afqkf
    strFileName = OpenFile.lpstrFile
    
End Function

--------------------

Программистами не рождаются, - это родовая травма...

JusTalionis

Дата 1.11.2006, 16:00 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 576
Регистрация: 11.7.2006

Репутация: 6
Всего: 17

Цитата(suvorr @ 1.11.2006, 11:40

)

фонарею при этом - такая элементарная вещь -выбор файла - и никак не сделать что бы везде работало !!

По сему лично я сижу пока на 98, и по ХП проверить, к сожалению, не могу.
Благодарности - Биллу Г. !

suvorr

Дата 1.11.2006, 22:28 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 111
Регистрация: 28.1.2006
Где: SPb

Репутация: нет
Всего: нет

Mihanik-y. Что ты имеешь в виду ? По моему твой код аналогичен коду JusTalionis-a Я на основе него сделал ппростенький код

Код


Public Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" _
(pOpenfilename As OPENFILENAME) As Long
Public Type OPENFILENAME
        lStructSize As Long
        hwndOwner As Long
        hInstance As Long
        lpstrFilter As String
        lpstrCustomFilter As String
        nMaxCustFilter As Long
        nFilterIndex As Long
        lpstrFile As String
        nMaxFile As Long
        lpstrFileTitle As String
        nMaxFileTitle As Long
        lpstrInitialDir As String
        lpstrTitle As String
        flags As Long
        nFileOffset As Integer
        nFileExtension As Integer
        lpstrDefExt As String
        lCustData As Long
        lpfnHook As Long
        lpTemplateName As String
End Type
Public Function GetFile(titl As String, defl As String) As String
Dim ff As OPENFILENAME, aa As Long
ff.lStructSize = Len(ff)  ' размер структуры
ff.lpstrTitle = titl  ' текст для заголовка диалогового окна
ff.lpstrFile = defl + Space(200) ' создаем буфер для приема пути и имени файла
ff.nMaxFile = 200  ' длина буфера
aa = GetOpenFileName(ff)
G = Trim(ff.lpstrFile):  GetFile = Left(G, Len(G) - 1)
End Function

он нормально пашет на 98 а на XP Run Time Error !!! Invalid function call !!! Я думаю в 98 и в ХП эта GetOPenFileName разная !
Или я чего не понял в твоем коде ?

mihanik

Дата 2.11.2006, 08:13 (ссылка)

(нет голосов)

Загрузка ...

-=Белый Медведь=-

Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 11
Всего: 109

Странно...

У меня и на XP, и на XP SP1, и на XP SP2 этот код пашет нормально...

Даже на 2000 SP4 пашет...
smile

--------------------

Программистами не рождаются, - это родовая травма...

Тутанхамец

Дата 2.11.2006, 10:54 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 612
Регистрация: 10.10.2005
Где: в пирамидЕ!

Репутация: 4
Всего: 6

Нечего хаять Билла.
Имхо, в этом коде ты не правильно (не полностью) заполняешь структуру. Поэтому у тебя не срабатывает GetOpenFileName и возвращает FALSE. И не отображает диалоговое окно. А ран-тайм еррор 5 возникает, когда ты пытаешь отрезать Left'ом часть строки, в которой нет ни одного символа. Откуда там сивмолы, если GetOpenFileName запоролась? Ты бы поставил брекпойнт на процедуру и посмотрел, где возникает ошибка.

--------------------

Мой блог / Мои фотки / Моё Skolkobudet.ru

mihanik

Дата 2.11.2006, 11:23 (ссылка)

(нет голосов)

Загрузка ...

-=Белый Медведь=-

Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 11
Всего: 109

Заметил маленькую ошибку в своём коде...

Вместо

Код


OpenFile.lpstrInitialDir = "strIniFolder"

надо писать

Код


OpenFile.lpstrInitialDir = strIniFolder

--------------------

Программистами не рождаются, - это родовая травма...

suvorr

Дата 2.11.2006, 22:18 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 111
Регистрация: 28.1.2006
Где: SPb

Репутация: нет
Всего: нет

Тутанхамцу
- Спасибо, понял, исправлюсь !
- Ну посмотреть то я не мог поскольку у меня ХП нет, мне просто юзер с ХП сообщил что там происходит.
- А всеж таки выходит что ХП тупее 98 !

suvorr

Дата 4.11.2006, 13:59 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 111
Регистрация: 28.1.2006
Где: SPb

Репутация: нет
Всего: нет

Тутанхамцу: Так вот же нет !!!
Взял я полный код Механика с учетом его поправки, но за минусом маски

Код


Public Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" _
(pOpenfilename As OPENFILENAME) As Long
Public Type OPENFILENAME
        lStructSize As Long
        hwndOwner As Long
        hInstance As Long
        lpstrFilter As String
        lpstrCustomFilter As String
        nMaxCustFilter As Long
        nFilterIndex As Long
        lpstrFile As String
        nMaxFile As Long
        lpstrFileTitle As String
        nMaxFileTitle As Long
        lpstrInitialDir As String
        lpstrTitle As String
        flags As Long
        nFileOffset As Integer
        nFileExtension As Integer
        lpstrDefExt As String
        lCustData As Long
        lpfnHook As Long
        lpTemplateName As String
End Type
Public Function GetFile(titl As String, defl As String) As String
Dim OpenFile As OPENFILENAME
    OpenFile.lStructSize = Len(OpenFile)
    OpenFile.hwndOwner = 0
    OpenFile.hInstance = 0
    sFilter = "*.*"
    OpenFile.lpstrFilter = sFilter
    OpenFile.nFilterIndex = 1
    OpenFile.lpstrFile = String$(255, 0)
    OpenFile.nMaxFile = Len(OpenFile.lpstrFile) - 1
    OpenFile.lpstrFileTitle = OpenFile.lpstrFile
    OpenFile.nMaxFileTitle = OpenFile.nMaxFile
    OpenFile.lpstrInitialDir = strIniFolder
    OpenFile.lpstrTitle = titl
    OpenFile.flags = 0
GetOpenFileName OpenFile
GetFile = Trim(OpenFile.lpstrFile):
MsgBox GetFile + "L":
End Function

И он вроде как работает (под 98) но приплюснутое "L" не печатает !!!
То есть в GetFile меня не строка а черт те что!
Что потом индуцирует ошибки
А что уж там в ХП получится ....

Модератору (если увидит) -какого... мне стали каждый раз писать что я не имею права добавлять реплики в мой собственный топик и прогонять через вход? Раньше вроде как автоматом входил ?

Тутанхамец

Дата 4.11.2006, 14:15 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 612
Регистрация: 10.10.2005
Где: в пирамидЕ!

Репутация: 4
Всего: 6

Со входом на форум - у тебя на компе небось кукисы не срабатывают.

А что касается диалога, то смотри:

Код


...
GetOpenFileName OpenFile
GetFile = Trim(OpenFile.lpstrFile)
If Right$(GetFile, 1) = Chr(0) Then MsgBox "на конце ноль"
MsgBox GetFile + "L"
End Function

GetOpenFileName возвращает в выделенный буфер строку, оканчивающуюся нулем, то есть chr(0). Этот ноль воспринимается как конец строки. Можно прибавить после него хоть "L", хоть что и сколько угодно, но строка всё равно будет оканчиваться там, где ноль.

Если хочешь что-то прибавить к строке, то сначала отрежь ноль. smile

Добавлено @ 14:20
А в остальном твоя функция нормально работает под ХР.

--------------------

Мой блог / Мои фотки / Моё Skolkobudet.ru

suvorr

Дата 4.11.2006, 21:38 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 111
Регистрация: 28.1.2006
Где: SPb

Репутация: нет
Всего: нет

Да, точняк, у JusTalionisa это предусмотрено!

Тутанхамец

Дата 5.11.2006, 08:38 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 612
Регистрация: 10.10.2005
Где: в пирамидЕ!

Репутация: 4
Всего: 6

Не забудь предусмотреть ситуацию, когда юзер не выберет файл. Нажмет "Отмена" или крестик. Тогда у тебя опять же не будет строки, с которой ты оперируешь.

--------------------

Мой блог / Мои фотки / Моё Skolkobudet.ru

suvorr

Дата 5.11.2006, 09:28 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 111
Регистрация: 28.1.2006
Где: SPb

Репутация: нет
Всего: нет

Спасибо!
Но возник еще вопрос - эта фигня насчет необходимости заполнения всех параметров и вообще насчет разницы претензий со стороны 98 и ХП -она для всех апишек актуальна или это только GetOpenFile так развлекается ?
В частности чисто конкретно меня интересует семейство waveIn... Правда пока на них никто не жаловался, но с другой стороны они у меня в таком закоулочке, что наверно немногие и добираются.

Тутанхамец

Дата 5.11.2006, 11:35 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 612
Регистрация: 10.10.2005
Где: в пирамидЕ!

Репутация: 4
Всего: 6

Цитата

она для всех апишек актуальна или

Боюсь, что это тебе придется устанавливать исключительно чувственным опытом smile

Имхо лучше строго следовать документации. Даже если что-то непредусмотренное документацией работает под 98 и ХР, нет гарантии, что будет работать под висту. Чел по имени Стефан Цвейг сказал, что "формальность - это гарантия". smile

Хотя был бы он программистом, добавил бы: "чаще всего" или "обычно". smile

--------------------

Мой блог / Мои фотки / Моё Skolkobudet.ru

JusTalionis

Дата 3.10.2007, 11:15 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 576
Регистрация: 11.7.2006

Репутация: 6
Всего: 17

Поскольку переносимость - моя больная мозоль, вот раскопал какую инфу:

Цитата

Компания LANDesk Software по договору с фирмой Thinstall будет предлагать под маркой LANDesk Application Virtualization разработанную той технологию виртуализации приложений, позволяющую "упаковать" любую программу в единственный .exe-файл, который может работать на ПК с привилегиями пользовательского уровня даже если программе требуется доступ к реестру и системным файлам. При этом не нужно устанавливать никаких дополнительных серверных либо клиентских приложений: "упакованная" программа доставляется по сети на пользовательский ПК (или переносится на USB-накопителе) и запускается в изолированной от основной системы среде, формирование которой обеспечивается 400-килобайтным кодом, добавляемым к .exe-файлу. Процесс упаковки каждого приложения занимает относительно немного времени и предусматривает его инсталляцию и дополнение "виртуальным реестром", который будет замещать системный в процессе исполнения. Программный продукт позволяет, например, запускать под управлением Windows Vista старые, не совместимые с новой ОС приложения, или пользоваться Internet Explorer 7 на одной машине с Internet Explorer 6.

( http://www.osp.ru/news/2007/0523/4196869/ )

Вот был бы блеск - упаковывать сделанные Бейсиком проги со всеми прилагающимися .ocx-ами и .dll-ами smile

Кто-нибудь слыхал - появилось это чудо в реале-то? Или так и затухло?

Тутанхамец

Дата 3.10.2007, 11:18 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 612
Регистрация: 10.10.2005
Где: в пирамидЕ!

Репутация: 4
Всего: 6

Еще под VB4 были такие упаковщики.

ЗЫ В смысле, которые упаковывают все dll и ocx в один exe.

Это сообщение отредактировал(а) Тутанхамец - 3.10.2007, 11:20

--------------------

Мой блог / Мои фотки / Моё Skolkobudet.ru

JusTalionis

Дата 3.10.2007, 11:25 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 576
Регистрация: 11.7.2006

Репутация: 6
Всего: 17

Да нет, ты понял в чем дело? Прога не только упаковывает, а устраняет необходимость инсталляции. Просто запускаешь экзешник, возможно прямо на флешке.
А после тех упаковщиков надо же было инсталлировать, в процессе чего всё это снова распаковывалось.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »