Sorry your browser is not supported!

Open File Dialog("Heads\", "*.PNG", "Face One")

Open File Dialog("Heads\", "(*.PNG)", "Face One")

Function _open_save(filter As String,initdir As String,dtitle As String,defext As String,open As Boolean)
   `Examples for parameters
   `filter = "Text Documents ( *.txt )|*.txt|All Files ( *.* )|*.*|"
   `  each item in the filter must be terminated by a "|", the description and extension
   `  must also be seperated by a "|"
   `initdir = "C:\"
   `dtitle = "Open ~ Test"
   `defext = "txt"
   `  This is the default extension appended to a file when saved if none is inputed by user
   `open = 1 For Open Dialogue, 0 for save dialogue

   `Get DLL numbers
   comdlg32 As Integer
   user32 As Integer

   `Load in required DLL's
   comdlg32 = _find_free_dll()
   Load DLL "comdlg32.dll",comdlg32

   user32 = _find_free_dll()
   Load DLL "user32.dll",user32


   `Get handle ( unique ID ) to the calling ( this ) window
   hwnd As DWord
   hwnd = Call DLL(user32,"GetActiveWindow")


   `Get the Memblock Number
   OPENFILENAME As Integer
   OPENFILENAME = _find_free_memblock()
   `Make The Memblock containing the OPENFILENAME structure
   Make MemBlock OPENFILENAME,76


   `Get the pointer to the just created Structure
   lpofn As DWord
   lpofn = Get MemBlock Ptr(OPENFILENAME)


   `Write all the info to the Structure for the API call to handle it.
   RemStart : C++ Structure Lay-out
   typedef struct tagOFN {
     DWORD         lStructSize;
     HWND          hwndOwner;
     HINSTANCE     hInstance;
     LPCTSTR       lpstrFilter;
     LPTSTR        lpstrCustomFilter;
     DWORD         nMaxCustFilter;
     DWORD         nFilterIndex;
     LPTSTR        lpstrFile;
     DWORD         nMaxFile;
     LPTSTR        lpstrFileTitle;
     DWORD         nMaxFileTitle;
     LPCTSTR       lpstrInitialDir;
     LPCTSTR       lpstrTitle;
     DWORD         Flags;
     WORD          nFileOffset;
     WORD          nFileExtension;
     LPCTSTR       lpstrDefExt;
     LPARAM        lCustData;
     LPOFNHOOKPROC lpfnHook;
     LPCTSTR       lpTemplateName;
   #if (_WIN32_WINNT >= 0x0500)
     void *        pvReserved;
     DWORD         dwReserved;
     DWORD         FlagsEx;
   #endif // (_WIN32_WINNT >= 0x0500)
   } OPENFILENAME, *LPOPENFILENAME;
   RemEnd

   `Declare temp variables to hold data for OPENFILENAME structure
   size As Integer
   filebuffer As String
   filebufferptr As DWord
   flags As DWord

   `Fix up strings so that they are "NULL" terminated ( "|" is replaced with NULL )
   filter = filter + "|"
   initdir = initdir + "|"
   dtitle = dtitle + "|"
   defext = defext + "|"

   `Set up internal parameters for the API call
   filebuffer = "|" + Space$(255) + "|"
   filebufferptr = _get_str_ptr(filebuffer)
   flags = 0x00001000 || 0x00000004 || 0x00000002
   size = 0

   Write MemBlock DWord OPENFILENAME,0,76                     : `lStructSize
   Write MemBlock DWord OPENFILENAME,4,hwnd                   : `hwndOwner
   `Write MemBlock DWord OPENFILENAME,8,NULL                  : `hInstance
   Write MemBlock DWord OPENFILENAME,12,_get_str_ptr(filter)  : `lpstrFilter
   `Write MemBlock DWord OPENFILENAME,16,0                    : `lpstrCustomFilter
   `Write MemBlock DWord OPENFILENAME,20,NULL                 : `nMaxCustFilter
   Write MemBlock DWord OPENFILENAME,24,1                     : `nFilterIndex
   Write MemBlock DWord OPENFILENAME,28,filebufferptr         : `lpstrFile
   Write MemBlock DWord OPENFILENAME,32,256                   : `nMaxFile
   `Write MemBlock DWord OPENFILENAME,36,0                    : `lpstrFileTitle
   `Write MemBlock DWord OPENFILENAME,40,NULL                 : `nMaxFileTitle
   Write MemBlock DWord OPENFILENAME,44,_get_str_ptr(initdir) : `lpstrInitialDir
   Write MemBlock DWord OPENFILENAME,48,_get_str_ptr(dtitle)  : `lpstrTitle
   Write MemBlock DWord OPENFILENAME,52,flags                 : `Flags
   `Write MemBlock Word OPENFILENAME,56,NULL                  : `nFileOffset
   `Write MemBlock Word OPENFILENAME,58,NULL                  : `nFileExtension
   Write MemBlock DWord OPENFILENAME,60,_get_str_ptr(defext)  : `lpstrDefExt
   `Write MemBlock DWord OPENFILENAME,64,NULL                 : `lCustData
   `Write MemBlock DWord OPENFILENAME,68,NULL                 : `lpfnHook
   `Write MemBlock DWord OPENFILENAME,72,0                    : `lpTemplateName


   `Call the Command to open/save dialouge
   retval As DWord
   If open
      retval = Call DLL(comdlg32,"GetOpenFileNameA",lpofn)
   Else
      retval = Call DLL(comdlg32,"GetSaveFileNameA",lpofn)
   EndIf

   `Check if it was sucecfull
   If retval <> 0
      code$ = _strip_space(1,_strip_space(2,_get_str(filebufferptr,256)))
   Else
      retval = Call DLL(comdlg32,"CommDlgExtendedError")
      Select retval
         Case 0xFFFF : code$ = "The dialog box could not be created. The common dialog box function's call to the DialogBox function failed. For example, this error occurs if the common dialog box call specifies an invalid window handle." : EndCase
         Case 0x0006 : code$ = "The common dialog box function failed to find a specified resource." : EndCase
         Case 0x0004 : code$ = "The ENABLETEMPLATE flag was set in the Flags member of the initialization structure for the corresponding common dialog box, but you failed to provide a corresponding instance handle." : EndCase
         Case 0x0002 : code$ = "The common dialog box function failed during initialization. This error often occurs when sufficient memory is not available." : EndCase
         Case 0x000B : code$ = "The ENABLEHOOK flag was set in the Flags member of the initialization structure for the corresponding common dialog box, but you failed to provide a pointer to a corresponding hook procedure." : EndCase
         Case 0x0008 : code$ = "The common dialog box function failed to lock a specified resource." : EndCase
         Case 0x0003 : code$ = "The ENABLETEMPLATE flag was set in the Flags member of the initialization structure for the corresponding common dialog box, but you failed to provide a corresponding template." : EndCase
         Case 0x0007 : code$ = "The common dialog box function failed to load a specified string." : EndCase
         Case 0x0001 : code$ = "The lStructSize member of the initialization structure for the corresponding common dialog box is invalid." : EndCase
         Case 0x0005 : code$ = "The common dialog box function failed to load a specified string." : EndCase
         Case 0x3003 : code$ = "The buffer pointed to by the lpstrFile member of the OPENFILENAME structure is too small for the file name specified by the user. The first two bytes of the lpstrFile buffer contain an integer value specifying the size, in TCHARs, required to receive the full name." : EndCase
         Case 0x0009 : code$ = "The common dialog box function was unable to allocate memory for internal structures." : EndCase
         Case 0x3002 : code$ = "A file name is invalid." : EndCase
         Case 0x000A : code$ = "The common dialog box function was unable to lock the memory associated with a handle." : EndCase
         Case 0x3001 : code$ = "An attempt to subclass a list box failed because sufficient memory was not available." : EndCase
         Case Default : code$ = "WHOOPS!" : EndCase
      EndSelect
   EndIF

   Delete DLL comdlg32
   Delete DLL user32


EndFunction code$



Function _get_str_ptr(pstr As String)
   `pstr$ should be a "|" ( NULL ) seperated string.

   memnum As Integer
   strlen As Integer
   char As Byte
   memptr As DWord
   strptr As DWord

   memnum = _find_free_memblock()
   strlen = Len(pstr)

   Make MemBlock memnum,strlen

   For i = 1 To strlen
      If Mid$(pstr,i) = "|"
         char = 0
      Else
         char = Asc(Mid$(pstr,i))
      EndIf
      Write MemBlock Byte memnum,(i - 1),char
   Next i

   memptr = Get MemBlock Ptr(memnum)

   strptr = Make Memory(strlen)

   Copy Memory strptr,memptr,strlen

   Delete MemBlock memnum


EndFunction strptr



Function _get_str(strptr As DWord,strsize As Integer)
   `strptr is the pointer returned by _get_str_ptr()
   `strsize is the Integer length of the string specified by the pointer

   memnum As Integer
   memptr As DWord
   str As String
   char As String

   memnum = _find_free_memblock()

   Make MemBlock memnum,strsize

   memptr = Get MemBlock Ptr(memnum)

   Copy Memory memptr,strptr,strsize

   For i = 1 To strsize
      str = str + Chr$(MemBlock Byte(memnum,i - 1))
   Next i

   Delete MemBlock memnum


EndFunction str



Function _strip_space(part As Integer,sstr As String)


   `str is the string to be striped.
   `part can be 1, 2 or 3.
      `1 to strip space at the start of the string
      `2 to strip space at the end of the string
      `3 to strip all space in the string

   strlen = Len(sstr)
   tmpstr$ = ""

   If part = 1
      For i = 1 To strlen
         If Mid$(sstr,i) <> " "
            tmpstr$ = Right$(sstr,strlen - i + 1)
            ExitFunction tmpstr$
         EndIf
      Next i
   EndIf

   If part = 2
      For i = strlen To 1 Step -1
         If Mid$(sstr,i) <> " "
            tmpstr$ = Left$(sstr,i)
            ExitFunction tmpstr$
         EndIf
      Next i
   EndIf

   If part = 3
      For i = 1 To strlen
         If Mid$(sstr,i) <> " "
            tmpstr$ = tmpstr$ + Mid$(sstr,i)
         EndIf
      Next i
      ExitFunction tmpstr$
   EndIf


EndFunction "Error"



Function _find_free_dll()
   Repeat
      Inc i
   Until DLL Exist(i) = 0
EndFunction i



Function _find_free_memblock()
   Repeat
      Inc i
   Until MemBlock Exist(i) = 0
EndFunction i

Sync On : Sync Rate 0

mystr As String

mystr = _open_save("Text Documents ( *.txt )|*.txt|All Files ( *.* )|*.*|","C:\","Open ~ Test","txt",1)

Do
   Text 0,0,"Opened " + mystr
Sync
Loop