Win32API GetOpenFileName - filter problem

ruby-talk
1

Hi, I have found this script but the filtering doesn't work. I can see
all files instead I defined in the @ofn[:lpstrFilter]. Any idea what
mistake I made?
Thank you! Szabolcs

require 'dl'

$comdlg32 = DL.dlopen('comdlg32.dll')

class TOpenFileDialog

        OFN_READONLY = 0x00000001
        OFN_OVERWRITEPROMPT = 0x00000002
        OFN_HIDEREADONLY = 0x00000004
        OFN_NOCHANGEDIR = 0x00000008
        OFN_SHOWHELP = 0x00000010
        OFN_ENABLEHOOK = 0x00000020
        OFN_ENABLETEMPLATE = 0x00000040
        OFN_ENABLETEMPLATEHANDLE = 0x00000080
        OFN_NOVALIDATE = 0x00000100
        OFN_ALLOWMULTISELECT = 0x00000200
        OFN_EXTENSIONDIFFERENT = 0x00000400
        OFN_PATHMUSTEXIST = 0x00000800
        OFN_FILEMUSTEXIST = 0x00001000
        OFN_CREATEPROMPT = 0x00002000
        OFN_SHAREAWARE = 0x00004000
        OFN_NOREADONLYRETURN = 0x00008000
        OFN_NOTESTFILECREATE = 0x00010000
        OFN_NONETWORKBUTTON = 0x00020000
        OFN_NOLONGNAMES = 0x00040000
        OFN_EXPLORER = 0x00080000
        OFN_NODEREFERENCELINKS = 0x00100000
        OFN_LONGNAMES = 0x00200000
        OFN_ENABLEINCLUDENOTIFY = 0x00400000
        OFN_ENABLESIZING = 0x00800000
        OFN_DONTADDTORECENT = 0x02000000
        OFN_FORCESHOWHIDDEN = 0x10000000
        OFN_EX_NOPLACESBAR = 0x00000001

        PROTOTYPE = 'LIISSLLSLSLSSLHHSIPS'
        MAX_PATH = 260

        def initialize

                @ofn = DL.malloc(DL.sizeof(PROTOTYPE))
                @ofn.struct!(PROTOTYPE,
                        :lStructSize,
                        :hwndOwner,
                        :hInstance,
                        :lpstrFilter,
                        :lpstrCustomFilter,
                        :nMaxCustFilter,
                        :nFilterIndex,
                        :lpstrFile,
                        :nMaxFile,
                        :lpstrFileTitle,
                        :nMaxFileTitle,
                        :lpstrInitialDir,
                        :lpstrTitle,
                        :Flags,
                        :nFileOffset,
                        :nFileExtension,
                        :lpstrDefExt,
                        :lCustData,
                        :lpfnHook,
                        :lpTemplateName
                )
                @ofn[:lStructSize] = DL.sizeof(PROTOTYPE)
                @ofn[:hwndOwner] = 0
                @ofn[:lpstrFile] = DL.malloc(1024)
                @ofn[:lpstrFile] = "\0"
                @ofn[:nMaxFile] = MAX_PATH
                @ofn[:lpstrFilter] = "(*.rb)\0*.rb\0"
                @ofn[:nFilterIndex] = 1
                @ofn[:lpstrFileTitle] = "\0"
                @ofn[:nMaxFileTitle] = 0
                @ofn[:lpstrInitialDir] = "\0"

                @ofn[:Flags] = OFN_PATHMUSTEXIST | OFN_FILEMUSTEXIST

                @GetOpenFileName = $comdlg32['GetOpenFileName','IP']
        end

        def execute
                @GetOpenFileName.call(@ofn)[0]
        end

        def filenames
                @ofn[:lpstrFile].to_s
        end
end

if __FILE__ == $0
        dlg = TOpenFileDialog.new
        if dlg.execute then
                puts dlg.filenames
        end
end

···

--
Posted via http://www.ruby-forum.com/.

2

Hi,

···

2008/10/13 Szabolcs Toth <toth@kw.gbm.ihost.com>:

Hi, I have found this script but the filtering doesn't work. I can see
all files instead I defined in the @ofn[:lpstrFilter]. Any idea what
mistake I made?
Thank you! Szabolcs

require 'dl'

$comdlg32 = DL.dlopen('comdlg32.dll')

class TOpenFileDialog

       OFN_READONLY = 0x00000001
       OFN_OVERWRITEPROMPT = 0x00000002
       OFN_HIDEREADONLY = 0x00000004
       OFN_NOCHANGEDIR = 0x00000008
       OFN_SHOWHELP = 0x00000010
       OFN_ENABLEHOOK = 0x00000020
       OFN_ENABLETEMPLATE = 0x00000040
       OFN_ENABLETEMPLATEHANDLE = 0x00000080
       OFN_NOVALIDATE = 0x00000100
       OFN_ALLOWMULTISELECT = 0x00000200
       OFN_EXTENSIONDIFFERENT = 0x00000400
       OFN_PATHMUSTEXIST = 0x00000800
       OFN_FILEMUSTEXIST = 0x00001000
       OFN_CREATEPROMPT = 0x00002000
       OFN_SHAREAWARE = 0x00004000
       OFN_NOREADONLYRETURN = 0x00008000
       OFN_NOTESTFILECREATE = 0x00010000
       OFN_NONETWORKBUTTON = 0x00020000
       OFN_NOLONGNAMES = 0x00040000
       OFN_EXPLORER = 0x00080000
       OFN_NODEREFERENCELINKS = 0x00100000
       OFN_LONGNAMES = 0x00200000
       OFN_ENABLEINCLUDENOTIFY = 0x00400000
       OFN_ENABLESIZING = 0x00800000
       OFN_DONTADDTORECENT = 0x02000000
       OFN_FORCESHOWHIDDEN = 0x10000000
       OFN_EX_NOPLACESBAR = 0x00000001

       PROTOTYPE = 'LIISSLLSLSLSSLHHSIPS'
       MAX_PATH = 260

       def initialize

               @ofn = DL.malloc(DL.sizeof(PROTOTYPE))
               @ofn.struct!(PROTOTYPE,
                       :lStructSize,
                       :hwndOwner,
                       :hInstance,
                       :lpstrFilter,
                       :lpstrCustomFilter,
                       :nMaxCustFilter,
                       :nFilterIndex,
                       :lpstrFile,
                       :nMaxFile,
                       :lpstrFileTitle,
                       :nMaxFileTitle,
                       :lpstrInitialDir,
                       :lpstrTitle,
                       :Flags,
                       :nFileOffset,
                       :nFileExtension,
                       :lpstrDefExt,
                       :lCustData,
                       :lpfnHook,
                       :lpTemplateName
               )
               @ofn[:lStructSize] = DL.sizeof(PROTOTYPE)
               @ofn[:hwndOwner] = 0
               @ofn[:lpstrFile] = DL.malloc(1024)
               @ofn[:lpstrFile] = "\0"
               @ofn[:nMaxFile] = MAX_PATH
               @ofn[:lpstrFilter] = "(*.rb)\0*.rb\0"
               @ofn[:nFilterIndex] = 1
               @ofn[:lpstrFileTitle] = "\0"
               @ofn[:nMaxFileTitle] = 0
               @ofn[:lpstrInitialDir] = "\0"

               @ofn[:Flags] = OFN_PATHMUSTEXIST | OFN_FILEMUSTEXIST

               @GetOpenFileName = $comdlg32['GetOpenFileName','IP']
       end

       def execute
               @GetOpenFileName.call(@ofn)[0]
       end

       def filenames
               @ofn[:lpstrFile].to_s
       end
end

if __FILE__ == $0
       dlg = TOpenFileDialog.new
       if dlg.execute then
               puts dlg.filenames
       end
end

Modify the line
        @ofn[:lpstrFilter] = "(*.rb)\0*.rb\0"
to
        @ofn[:lpstrFilter] = "(*.rb)\0*.rb\0".to_ptr

Regards,

Park Heesob

3

Heesob Park wrote:

Hi,

Modify the line
        @ofn[:lpstrFilter] = "(*.rb)\0*.rb\0"
to
        @ofn[:lpstrFilter] = "(*.rb)\0*.rb\0".to_ptr

Regards,

Park Heesob

Perfect! Thanks a lot!
Szabolcs

···

--
Posted via http://www.ruby-forum.com/\.