Post by: SierraKen on August 22, 2019, 06:55:44 pm
In file included from qbx.cpp:2171:
..\\temp\\main.txt: In function 'void QBMAIN(void*)':
..\\temp\\main.txt:7:125: error: cast from 'HWND' {aka 'HWND__*'} to 'int' loses precision [-fpermissive]
*__LONG_HWND=( int32 )FindWindow(NULL,(char*)(qbs_add(qbs_new_txt_len("Open and Save Dialog demo",25),func_chr( 0 )))->chr);
^
compilation terminated due to -Wfatal-errors.
Here is the example from the Wiki Page if anyone wants to check it out. It's from here: http://www.qb64.org/wiki/Windows_Libraries
I have Windows 10 if that makes any difference.
Code: QB64: [Select]
- ' Dialog flag constants (use + or OR to use more than 1 flag value)
- CONST OFN_ALLOWMULTISELECT = &H200& ' Allows the user to select more than one file, not recommended!
- CONST OFN_CREATEPROMPT = &H2000& ' Prompts if a file not found should be created(GetOpenFileName only).
- CONST OFN_EXTENSIONDIFFERENT = &H400& 'Allows user to specify file extension other than default extension.
- CONST OFN_NODEREFERENCELINKS = &H100000& 'Returns path and file name of selected shortcut(.LNK) file instead of file referenced.
- CONST OFN_NOREADONLYRETURN = &H8000& ' Prevents selection of read-only files, or files in read-only subdirectory.
- '--------------------------------------------------------------------------------------------
- DEFINT A-Z
- TYPE FILEDIALOGTYPE
- ' Do the Open File dialog call!
- Filter$ = "Batch files (*.bat)|*.BAT|JPEG images (*.jpg)|*.JPG|All files (*.*)|*.*"
- Flags& = OFN_FILEMUSTEXIST + OFN_NOCHANGEDIR + OFN_READONLY ' add flag constants here
- OFile$ = GetOpenFileName$("YEAH! Common Dialogs in QB64!!!", ".\", Filter$, 1, Flags&, hWnd&)
- PRINT "Shame on you! You didn't pick any file..."
- PRINT "You picked this file: "
- PRINT OFile$
- Filter$ = "Basic files (*.bas)|*.BAS|All files (*.*)|*.*"
- Flags& = OFN_OVERWRITEPROMPT + OFN_NOCHANGEDIR ' add flag constants here
- SFile$ = GetSaveFileName$("Save will not create a file!!!", ".\", Filter$, 1, Flags&, hWnd&)
- PRINT "You didn't save the file..."
- PRINT "You saved this file: "
- PRINT SFile$
- ' Title$ - The dialog title.
- ' InitialDir$ - If this left blank, it will use the directory where the last opened file is
- ' located. Specify ".\" if you want to always use the current directory.
- ' Filter$ - File filters separated by pipes (|) in the same format as using VB6 common dialogs.
- ' FilterIndex - The initial file filter to use. Will be altered by user during the call.
- ' Flags& - Dialog flags. Will be altered by the user during the call.
- ' hWnd& - Your program's window handle that should be aquired by the FindWindow function.
- '
- ' Returns: Blank when cancel is clicked otherwise, the file name selected by the user.
- ' FilterIndex and Flags& will be changed depending on the user's selections.
- fFilter$ = Filter$
- NEXT R
- OpenCall.hwndOwner = hWnd&
- OpenCall.nFilterIndex = FilterIndex
- OpenCall.lpstrFileTitle = OpenCall.lpstrFile
- OpenCall.nMaxFileTitle = OpenCall.nMaxFile
- OpenCall.flags = Flags&
- Result = GetOpenFileNameA&(OpenCall) ' Do Open File dialog call!
- Flags& = OpenCall.flags
- FilterIndex = OpenCall.nFilterIndex
- ' Title$ - The dialog title.
- ' InitialDir$ - If this left blank, it will use the directory where the last opened file is
- ' located. Specify ".\" if you want to always use the current directory.
- ' Filter$ - File filters separated by pipes (|) in the same format as VB6 common dialogs.
- ' FilterIndex - The initial file filter to use. Will be altered by user during the call.
- ' Flags& - Dialog flags. Will be altered by the user during the call.
- ' hWnd& - Your program's window handle that should be aquired by the FindWindow function.
- ' Returns: Blank when cancel is clicked otherwise, the file name entered by the user.
- ' FilterIndex and Flags& will be changed depending on the user's selections.
- fFilter$ = Filter$
- NEXT R
- SaveCall.hwndOwner = hWnd&
- SaveCall.nFilterIndex = FilterIndex
- SaveCall.lpstrFileTitle = SaveCall.lpstrFile
- SaveCall.nMaxFileTitle = SaveCall.nMaxFile
- SaveCall.flags = Flags&
- Result& = GetSaveFileNameA&(SaveCall) ' Do dialog call!
- Flags& = SaveCall.flags
- FilterIndex = SaveCall.nFilterIndex
Post by: bplus on August 22, 2019, 07:34:36 pm
Never used it, too complicated. Are you trying to get a list of files in a directory to select from?
Post by: SierraKen on August 22, 2019, 07:46:59 pm
Post by: bplus on August 22, 2019, 08:08:32 pm
Post by: SMcNeill on August 22, 2019, 08:40:25 pm
_TITLE "FileOpen Common Dialog demo" 'set Title of program
hWnd& = FindWindow(0, "Open and Save Dialog demo" + CHR$(0)) 'get window handle using _TITLE string
Get the window handle, using the _TITLE string... Sounds lovely!
But WTH doesn't the string and the _TITLE text match???
To correct this issue, you need to make the two strings match:
_TITLE "FileOpen Common Dialog demo" 'set Title of program
hWnd& = FindWindow(0, "FileOpen Common Dialog demo" + CHR$(0)) 'get window handle using _TITLE string
At this point, I believe, the example should compile and run for you -- as long as you're running it with the 32-bit version of QB64.
When the sample was added, all QB64 offered was a 32-bit version, so the code is only tailored for 32-bit versions of QB64.
64-bit versions of QB64 aren't going to compile, at all, for this one line in particular:
DECLARE LIBRARY
FUNCTION FindWindow& (BYVAL ClassName AS _OFFSET, WindowName$) ' To get hWnd handle
END DECLARE
You can't take a 64-bit OFFSET and store it in a 32-bit value! The compiler simply *won't* allow it. This is a 100% crash, even before compilation. You can change it to the following, and get it to compile for you, at least:
DECLARE LIBRARY
FUNCTION FindWindow&& (BYVAL ClassName AS _OFFSET, WindowName$) ' To get hWnd handle
END DECLARE
BUT, it still won't work as intended... The next issue is probably:
DECLARE DYNAMIC LIBRARY "comdlg32" ' Library declarations using _OFFSET types
FUNCTION GetOpenFileNameA& (DIALOGPARAMS AS FILEDIALOGTYPE) ' The Open file dialog
FUNCTION GetSaveFileNameA& (DIALOGPARAMS AS FILEDIALOGTYPE) ' The Save file dialog
END DECLARE
It looks like we're trying to call a 32-bit windows library, when we probably need to actually call a 64-bit version. I'd imagine the offsets are off, and the program simply is returning a fail code to us when we attempt to call those functions. I'm not 100% certain this is the issue, as I quit digging at this point, but I've seen enough to make me say, "As the example currently exists, it's: 1) glitched with the _TITLE text and 2) only going to work for 32-bit QB64, without some serious tweaking/overhauling.
Post by: bplus on August 22, 2019, 08:50:35 pm
Post by: SMcNeill on August 22, 2019, 09:03:02 pm
Post by: SierraKen on August 22, 2019, 09:03:17 pm
B+, in my Mini MP3 Player you can change the directories by typing in any one you want, the DOS way using CHDIR, but I was just wondering if there was an easier Windows way using the Mouse. Oh well, thanks for your time guys.
Post by: bplus on August 22, 2019, 09:12:51 pm
Wow lots of problems, thank you SMcNeill, that's more than I needed. I run 64 bit and I did try your #1, keeping the TITLE and string the same earlier, but it still wouldn't work. Probably from being 64 bit. I'll just give up on this one.
B+, in my Mini MP3 Player you can change the directories by typing in any one you want, the DOS way using CHDIR, but I was just wondering if there was an easier Windows way using the Mouse. Oh well, thanks for your time guys.
Yes, for Windows you can, I am putting it together now, something I have been meaning to do for long time, thanks for reminder and sharing common need. I found the command line switch for directories only and the file output from pipe needed a little pruning, do you remember that ".." means go up in directories? ie CD ..
Post by: SMcNeill on August 22, 2019, 09:28:16 pm
Code: QB64: [Select]
- a$ = SelectFile$("*.*", 100, 100)
- PRINT "You selected:"; a$
- 'save some old values
- 'some variables
- LoadFile_BoxColor = &HFFAAAAFF
- LoadFile_FolderColor = &HFFFFFF00
- LoadFile_FileColor = &HFFFFFFFF
- FILE_get_current_dir LoadFile_Dir$
- LoadFile_Dir$ = LoadFile_Dir$ + LoadFile_Slash$
- 'LoadFile_Dir$ = "." + LoadFile_Slash$
- LoadFile_w = 639: LoadFile_h = 479
- LoadFile_last = 1
- FolderDeep = 1
- 'some error checking
- 'Copy background
- 'set workscreen
- 'Count our filetypes to display
- LoadFile_TypeCount = 0
- LoadFile_TypeCount = LoadFile_TypeCount + 1
- LoadFile_last = LoadFile_l + 1
- LoadFile_l = 640 / (LoadFile_TypeCount + 1)
- REDIM LoadFile_start(LoadFile_TypeCount), LoadFile_previous(LoadFile_TypeCount), LoadFile_more(LoadFile_TypeCount), LoadFile_Count(LoadFile_TypeCount)
- _LIMIT 30
- LoadFile_Count(i) = 0
- LoadFile_DirList(i, j) = ""
- 'Generate our updated directory listings.
- LoadFile_length = FILE_has_next_entry 'Get length of next entry
- FILE_get_next_entry LoadFile_nam$, LoadFile_flags, LoadFile_file_size 'Get the file's name, size, and 'flags'
- 'Check if it's a file or a directory
- LoadFile_Count(0) = LoadFile_Count(0) + 1
- LoadFile_DirList(0, LoadFile_Count(0)) = LoadFile_nam$
- ELSE 'We have a file
- LoadFile_Count(i) = LoadFile_Count(i) + 1
- LoadFile_Count(i) = LoadFile_Count(i) + 1
- LoadFile_DirList(i, LoadFile_Count(i)) = LoadFile_nam$
- FILE_close_dir
- updatelist:
- selection = 0
- counter = 0
- counter = counter + 1
- _PRINTSTRING (i * LoadFile_l + 5, (counter + 1) * 16 + 7), LEFT$(LoadFile_DirList(i, j), LoadFile_l / 8 - 2)
- COLOR &HFFFFFF00: _PRINTSTRING (i * LoadFile_l + (LoadFile_l - 8 * 11) / 2, 27 * 16 + 5), "SCROLL DOWN"
- COLOR LoadFile_FileColor
- COLOR LoadFile_FileColor
- change = 0
- _LIMIT 30
- LoadFile_LMB = 0 'This sets the left mouse button as unacceptable.
- a = _KEYHIT
- change = -1
- temp$ = LoadFile_Dir$ + temp$
- _FONT f
- _FONT f
- change = -1
- 'Note: we ignore LoadFile_LMB for the scroll bars, so we can just hold it down and scroll happily forever and ever...
- 'or until we get to the limit of our file list.
- 'We only check LoadFile_LMB when actually trying to select an item from our list. No more "OOP! I held it too long and did something I didn't want to do!"
- 'Now we click once to select, click again to accept that selection.
- IF _MOUSEBUTTON(2) OR (LoadFile_LMB AND MX > 626 + x AND MX < 638 + x AND MY > 1 + y AND MY < 19 + y AND _MOUSEBUTTON(1)) THEN
- 'restore those old values, and just exit. Right mouse is an escape
- _FONT f
- 'Check the 2 roLoadFile_ws for a click in the proper Y position
- LoadFile_start(j) = LoadFile_start(j) - 1
- change = -1: selection = 0: click = 0: temp$ = ""
- LoadFile_start(j) = LoadFile_start(j) + 1
- change = -1: selection = 0: click = 0: temp$ = ""
- row = j
- selection = LoadFile_start(j) + oldselection - 1
- change = -1
- click = -1
- 'We picked one!
- CASE "DIR"
- LoadFile_Dir$ = LoadFile_Dir$ + LoadFile_DirList(row, selection) + LoadFile_Slash$
- LoadFile_start(i) = 1
- selection = 0: temp$ = "": oldselection = 0
- _DELAY .05
- GOTO updatelist
- 'restore those old values
- _FONT f
- 'If you don't have a copy of direntry.h in your QB64 folder, then copy the following code into a new IDE window.
- 'Then remove the remarks.
- 'And save it as direntry.h
- 'direntry.h is required for this to work properly with the library files.
- 'I thought adding the code here would be a way to make certain that it'd be easy to recover the file
- 'in case something ever happened and it was accidently deleted off the drive for some reason.
- '#include <dirent.h>
- '#include <sys/stat.h>
- '#include <unistd.h>
- 'const int IS_DIR_FLAG = 1, IS_FILE_FLAG = 2;
- 'DIR *pdir;
- 'struct dirent *next_entry;
- 'struct stat statbuf1;
- 'char current_dir[FILENAME_MAX];
- '#ifdef QB64_WINDOWS
- ' #define GetCurrentDir _getcwd
- '#else
- ' #define GetCurrentDir getcwd
- '#endif
- 'int load_dir (char * path) {
- ' struct dirent *pent;
- ' struct stat statbuf1;
- '//Open current directory
- 'pdir = opendir(path);
- 'if (!pdir) {
- 'return 0; //Didn't open
- '}
- 'return -1;
- '}
- 'int has_next_entry () {
- ' next_entry = readdir(pdir);
- ' if (next_entry == NULL) return -1;
- ' stat(next_entry->d_name, &statbuf1);
- ' return strlen(next_entry->d_name);
- '}
- 'void get_next_entry (char * nam, int * flags, int * file_size) {
- ' strcpy(nam, next_entry->d_name);
- ' if (S_ISDIR(statbuf1.st_mode)) {
- ' *flags = IS_DIR_FLAG;
- ' } else {
- ' *flags = IS_FILE_FLAG;
- ' }
- ' *file_size = statbuf1.st_size;
- ' return ;
- '}
- 'void close_dir () {
- ' closedir(pdir);
- ' pdir = NULL;
- ' return ;
- '}
- 'int current_dir_length () {
- ' GetCurrentDir(current_dir, sizeof(current_dir));
- ' return strlen(current_dir);
- '}
- 'void get_current_dir(char *dir) {
- ' memcpy(dir, current_dir, strlen(current_dir));
- ' return ;
- '}
You'll need the direntry.h file in your QB64 folder when running it, so grab it from below, and see how it performs for you. This little routine should work with all our operating systems -- Windows, Linux, and Mac -- and is something I tossed together ages ago and have shared countless times with folks. You really won't find a much simpler file selection utility than one which tends to be:
a$ = SelectFile$("*.*", 100, 100)
PRINT "You selected:"; a$
Post by: bplus on August 22, 2019, 10:10:35 pm
Code: QB64: [Select]
- loadFA "*.*", myFiles()
- mySelection& = getArrayItemNumber&(5, 5, 90, 30, myFiles())
- PRINT "No Directory selected."
- INPUT "Press enter to continue navigator, any + enter to quit... "; done$
- _LIMIT 60
- 'SHELL _HIDE "DIR " + spec$ + " /b > " + TmpFile$
- 'SHELL _HIDE "DIR " + spec$ + " /b /s /o:gen> " + TmpFile$
- Index% = -1
- Index% = Index% + 1
- fa(Index%) = d$
- CLOSE #1
- KILL TmpFile$
- 'attempting use this 4 things (2018-12-30)
- ' 1. expects HELP sub that uses message and message box but easy to comment out
- ' 2. expects to be in graphics mode
- ' 3. chages color of screen
- ' 4. needs _KEYCLEAR 2 before calling of previous keyhits will interfere!!!
- '
- ' Future Help Message Box for the function.
- ' "*** Mouse and Key Instructions ***"
- '
- ' "Mouse, mouse wheel, and arrow keys should work as expected for item selection."
- ' "Press spacebar to select a highlighted item or just click it."
- ' "Use number(s) + enter to select an array item by it's index number,"
- ' "backspace will remove last number pressed, c will clear a number started."
- ' "Numbers started are shown in bottom right PgDn bar."
- ' "Enter will also select the highlighted item, if no number has been started."
- ' "Home starts you at lowest array index, End highlights then highest index."
- ' "Use PgUp and PgDn keys to flip through pages of array items."
- '
- ' "Escape returns -1719 to allow a Cancel function and signal no slection."
- 'Notes: locateRow, locateColumn for top right corner of selection box on screen in characters for LOCATE.
- 'boxWidth and boxHeight are in character units, again for locate and print at correct places.
- 'All displaying is restricted to inside the box, which has PgUP and PgDn as top and bottom lines in the display.
- 'save old settings to restore at end ofsub
- curRow = CSRLIN
- fg = _DEFAULTCOLOR
- bg = _BACKGROUNDCOLOR
- maxWidth = boxWidth ' number of characters in box
- maxHeight = boxHeight - 2 ' number of lines displayed of array at one time = 1 page
- page = 0
- hlite = 0 ' line in display ready for selection by spacebar or if no number is started, enter
- GOSUB update ' show the beginning of the array items for selection
- 'signal cancel selection process, exit sub with this unlikely index to signal canel
- choice = -1719 'primes 7 and 8, not likely to be a select index of an array
- DO 'until get a selection or demand exit
- 'handle the key stuff
- kh& = _KEYHIT
- 'IF CHR$(kh&) = "h" THEN HELP: _KEYCLEAR
- ELSE 'clear b$ to show some response to enter
- choice = hlite + page * maxHeight + lba 'must mean to select the highlighted item
- 'handle the mouse stuff
- 'clear mouse clicks
- WHILE mb 'OK!
- _LIMIT 100
- choice = my + page * maxHeight + lba - 1 'select item clicked
- ELSE 'PgUp bar clicked
- ELSE ' mouse over highlighting, only if mouse has moved!
- hlite = my - 1
- lastMX = mx: lastMY = my
- GOSUB update
- _LIMIT 200
- getArrayItemNumber& = choice
- COLOR fg, bg
- 'clear key presses
- LOCATE curRow, curCol
- 'clear mouse clicks
- WHILE mb 'OK!
- _LIMIT 100
- 'display of array sections and controls on screen
- update:
- 'fix hlite if it has dropped below last array item
- hlite = hlite - 1
- 'main display of array items at page * maxHeight (lines high)
- index = row + page * maxHeight + lba
- 'make page up and down bars to click, print PgUp / PgDn if available
- 'make exit sign for mouse click
- PRINT " X "
- 'if a number selection has been started show it's build = b$
- PRINT b$;
- _LIMIT 100
EDIT: remove unused sub
EDIT2; add title
Post by: SierraKen on August 22, 2019, 10:11:34 pm
Code: QB64: [Select]
- 'This program was made on August 21, 2019 by Ken G. with some help by Petr from the QB64.org forum.
- 'This program will make a temporary file called MyMusicFiles-Temp000.temp
- 'which is just a text file and can be opened by Notepad. It shows a list of
- 'the mp3 songs in that directory. The file is deleted once the music starts.
- _TITLE "Mini MP3 Player"
- begin:
- record = 0
- rec = 0
- oldp = 0
- p = 0
- PRINT " Mini MP3 Player"
- PRINT " By Ken G."
- '=== SHOW CURRENT DIRECTORY
- PRINT " (1) Change Directory"
- PRINT " (2) Play Song"
- PRINT " (3) Play Directory"
- PRINT " (4) Quit"
- directory:
- again:
- PRINT "Directory doesn't exist."
- PRINT "Try again, or Enter for Menu."
- GOTO again:
- CHDIR d$
- GOTO begin:
- song:
- 'FILES "*.mp3"
- again2:
- 'INPUT "Song: ", song$
- song$ = SelectFile$("*.*", 100, 100)
- 'PRINT "You selected:"; song$
- 'IF RIGHT$(song$, 3) <> "mp3" OR RIGHT$(song$, 3) <> "MP3" OR RIGHT$(song$, 3) <> "Mp3" OR RIGHT$(song$, 3) <> "mP3" THEN GOTO again2:
- 'fe% = _FILEEXISTS(song$)
- 'IF fe% <> -1 THEN GOTO again2:
- 'PRINT "Filename doesn't exist."
- 'PRINT "Try again, or Enter for Menu."
- 'GOTO again2:
- 'END IF
- a$ = INKEY$
- oldp = p
- GOTO begin:
- playdir:
- CLOSE #1
- PRINT "No mp3 songs on this folder."
- GOTO begin:
- file(record) = file$
- f$(record) = file$
- record = record + 1 'for next loop we needed array higher up to one
- CLOSE #1
- 'so now file(0) is first file from disk. file(3) is 4th file from disk. Try it:
- ready:
- a$ = INKEY$
- oldp = p
- more:
- rec = rec + 1
- GOTO ready:
- 'save some old values
- 'some variables
- LoadFile_BoxColor = &HFFAAAAFF
- LoadFile_FolderColor = &HFFFFFF00
- LoadFile_FileColor = &HFFFFFFFF
- FILE_get_current_dir LoadFile_Dir$
- LoadFile_Dir$ = LoadFile_Dir$ + LoadFile_Slash$
- 'LoadFile_Dir$ = "." + LoadFile_Slash$
- LoadFile_w = 639: LoadFile_h = 479
- LoadFile_last = 1
- FolderDeep = 1
- 'some error checking
- 'Copy background
- 'set workscreen
- 'Count our filetypes to display
- LoadFile_TypeCount = 0
- LoadFile_TypeCount = LoadFile_TypeCount + 1
- LoadFile_last = LoadFile_l + 1
- LoadFile_l = 640 / (LoadFile_TypeCount + 1)
- REDIM LoadFile_start(LoadFile_TypeCount), LoadFile_previous(LoadFile_TypeCount), LoadFile_more(LoadFile_TypeCount), LoadFile_Count(LoadFile_TypeCount)
- _LIMIT 30
- LoadFile_Count(i) = 0
- LoadFile_DirList(i, j) = ""
- 'Generate our updated directory listings.
- LoadFile_length = FILE_has_next_entry 'Get length of next entry
- FILE_get_next_entry LoadFile_nam$, LoadFile_flags, LoadFile_file_size 'Get the file's name, size, and 'flags'
- 'Check if it's a file or a directory
- LoadFile_Count(0) = LoadFile_Count(0) + 1
- LoadFile_DirList(0, LoadFile_Count(0)) = LoadFile_nam$
- ELSE 'We have a file
- LoadFile_Count(i) = LoadFile_Count(i) + 1
- LoadFile_Count(i) = LoadFile_Count(i) + 1
- LoadFile_DirList(i, LoadFile_Count(i)) = LoadFile_nam$
- FILE_close_dir
- updatelist:
- selection = 0
- counter = 0
- counter = counter + 1
- _PRINTSTRING (i * LoadFile_l + 5, (counter + 1) * 16 + 7), LEFT$(LoadFile_DirList(i, j), LoadFile_l / 8 - 2)
- COLOR &HFFFFFF00: _PRINTSTRING (i * LoadFile_l + (LoadFile_l - 8 * 11) / 2, 27 * 16 + 5), "SCROLL DOWN"
- COLOR LoadFile_FileColor
- COLOR LoadFile_FileColor
- change = 0
- _LIMIT 30
- LoadFile_LMB = 0 'This sets the left mouse button as unacceptable.
- a = _KEYHIT
- change = -1
- temp$ = LoadFile_Dir$ + temp$
- _FONT f
- _FONT f
- change = -1
- 'Note: we ignore LoadFile_LMB for the scroll bars, so we can just hold it down and scroll happily forever and ever...
- 'or until we get to the limit of our file list.
- 'We only check LoadFile_LMB when actually trying to select an item from our list. No more "OOP! I held it too long and did something I didn't want to do!"
- 'Now we click once to select, click again to accept that selection.
- IF _MOUSEBUTTON(2) OR (LoadFile_LMB AND MX > 626 + x AND MX < 638 + x AND MY > 1 + y AND MY < 19 + y AND _MOUSEBUTTON(1)) THEN
- 'restore those old values, and just exit. Right mouse is an escape
- _FONT f
- 'Check the 2 roLoadFile_ws for a click in the proper Y position
- LoadFile_start(j) = LoadFile_start(j) - 1
- change = -1: selection = 0: click = 0: temp$ = ""
- LoadFile_start(j) = LoadFile_start(j) + 1
- change = -1: selection = 0: click = 0: temp$ = ""
- row = j
- selection = LoadFile_start(j) + oldselection - 1
- change = -1
- click = -1
- 'We picked one!
- CASE "DIR"
- LoadFile_Dir$ = LoadFile_Dir$ + LoadFile_DirList(row, selection) + LoadFile_Slash$
- LoadFile_start(i) = 1
- selection = 0: temp$ = "": oldselection = 0
- _DELAY .05
- GOTO updatelist
- 'restore those old values
- _FONT f
- 'If you don't have a copy of direntry.h in your QB64 folder, then copy the following code into a new IDE window.
- 'Then remove the remarks.
- 'And save it as direntry.h
- 'direntry.h is required for this to work properly with the library files.
- 'I thought adding the code here would be a way to make certain that it'd be easy to recover the file
- 'in case something ever happened and it was accidently deleted off the drive for some reason.
- '#include <dirent.h>
- '#include <sys/stat.h>
- '#include <unistd.h>
- 'const int IS_DIR_FLAG = 1, IS_FILE_FLAG = 2;
- 'DIR *pdir;
- 'struct dirent *next_entry;
- 'struct stat statbuf1;
- 'char current_dir[FILENAME_MAX];
- '#ifdef QB64_WINDOWS
- ' #define GetCurrentDir _getcwd
- '#else
- ' #define GetCurrentDir getcwd
- '#endif
- 'int load_dir (char * path) {
- ' struct dirent *pent;
- ' struct stat statbuf1;
- '//Open current directory
- 'pdir = opendir(path);
- 'if (!pdir) {
- 'return 0; //Didn't open
- '}
- 'return -1;
- '}
- 'int has_next_entry () {
- ' next_entry = readdir(pdir);
- ' if (next_entry == NULL) return -1;
- ' stat(next_entry->d_name, &statbuf1);
- ' return strlen(next_entry->d_name);
- '}
- 'void get_next_entry (char * nam, int * flags, int * file_size) {
- ' strcpy(nam, next_entry->d_name);
- ' if (S_ISDIR(statbuf1.st_mode)) {
- ' *flags = IS_DIR_FLAG;
- ' } else {
- ' *flags = IS_FILE_FLAG;
- ' }
- ' *file_size = statbuf1.st_size;
- ' return ;
- '}
- 'void close_dir () {
- ' closedir(pdir);
- ' pdir = NULL;
- ' return ;
- '}
- 'int current_dir_length () {
- ' GetCurrentDir(current_dir, sizeof(current_dir));
- ' return strlen(current_dir);
- '}
- 'void get_current_dir(char *dir) {
- ' memcpy(dir, current_dir, strlen(current_dir));
- ' return ;
- '}
Post by: SierraKen on August 22, 2019, 10:21:26 pm
OPEN TmpFile$ FOR INPUT AS #1
I have to get to C: to get to my Music folder. But that's a really cool folder picker! I'll look into it more. It might be a SUB that I don't need like you said.
Post by: bplus on August 22, 2019, 10:28:13 pm
Wow that has some great potential B+! But when I try to click the .. to go to regular C: it says File Not Found on line 27.
OPEN TmpFile$ FOR INPUT AS #1
I have to get to C: to get to my Music folder. But that's a really cool folder picker! I'll look into it more. It might be a SUB that I don't need like you said.
Ah, if your files are near root C: I don't think Windows will let us go there. I could only navigate below users in my user name folder and below, Desktop, Documents, Downloads, ... there might be a way through but I don't know it.
Post by: SierraKen on August 22, 2019, 10:39:51 pm
I need to do some things tonight so I'll look into all of this another day real soon. Thanks again you 2. I haven't given up hope, yet. lol
Post by: SMcNeill on August 22, 2019, 10:40:46 pm
Ah, if your files are near root C: I don't think Windows will let us go there. I could only navigate below users in my user name folder and below, Desktop, Documents, Downloads, ... there might be a way through but I don't know it.
You might want to look at my wallpaper changer, as well: https://www.qb64.org/forum/index.php?topic=1008.msg105845#msg105845
It uses SHELL and DIR to make a file listing, and strips out a lot of the unneeded info for you.
For directories only, you want: dir /A:D
files only: dir /A:-D
subfolders: dir /s
bare format: dir /b
Mix and match, as needed, to customize your command. ;)
Post by: bplus on August 23, 2019, 01:21:58 am
You might want to look at my wallpaper changer, as well: https://www.qb64.org/forum/index.php?topic=1008.msg105845#msg105845
It uses SHELL and DIR to make a file listing, and strips out a lot of the unneeded info for you.
For directories only, you want: dir /A:D
files only: dir /A:-D
subfolders: dir /s
bare format: dir /b
Mix and match, as needed, to customize your command. ;)
Yes, that's what I am doing. You know, I think the problem is not getting DIR info, it is the ChDir command to those folders that I was attempting when "The file does not exist." message pops up and ends the session with error after error.
Post by: Petr on August 23, 2019, 04:46:10 am
Attached source code contains my very old music player + EXE file compiled under IDE 20170120/51 (or older), if is compiled in this old version then works + skin file.
Post by: SMcNeill on August 23, 2019, 06:29:14 am
Hello people. Unfortunately, I also have to acknowledge that the Windows open dialog in IDE 1.3 will end up saying that the program has stopped working. The same happens when using the IDE version 20180228/86 from git b301f92. However, after compiling the same resource in the 20170120/51 IDE, everything works as expected.
Attached source code contains my very old music player + EXE file compiled under IDE 20170120/51 (or older), if is compiled in this old version then works + skin file.
The 2017 version is 32-bit; do you know if the others are, or not?
Post by: Petr on August 23, 2019, 08:20:53 am
Post by: bplus on August 23, 2019, 09:04:57 am
Actually B+ your program starts out right where your QB64 programs are, not the Users folder. I just ran a scan on my computer and it doesn't have the file DIR$INF0.INF. I wonder if it's because I am 64 bit Windows 10. I have my programs in (you guys will laugh) C:\QBasic because when I started I converted a lot of QBasic programs to QB64. And I have my entire QB64 inside C:\QBasic. So, this demonstration program starts at C:\QBasic. I just can't get it to C: and you are probably right, Microsoft is being Microsoft again. lol
I need to do some things tonight so I'll look into all of this another day real soon. Thanks again you 2. I haven't given up hope, yet. lol
BTW you can't find DIR$INFO.INF because it is erased after info is extracted. I wonder how it works if move the exe in the root of your music files directory, should be able to navigate inside folders you make. Tiny Navigator needs a window on files and allow file selection.
Steve's is nice, I wonder about problem Ken reported about not being able to go so far into folders could music files be structured different!
One problem I encountered was over scrolling directories, they can get stuck all the way at top not reachable by mouse.
Post by: SMcNeill on August 23, 2019, 09:18:22 am
BTW you can't find DIR$INFO.INF because it is erased after info is extracted. I wonder how it works if move the exe in the root of your music files directory, should be able to navigate inside folders you make. Tiny Navigator needs a window on files and allow file selection.
Steve's is nice, I wonder about problem Ken reported about not being able to go so far into folders could music files be structured different!
I’m wondering if there’s issues with access permission rights. I made a test folder my machine, stacked a dozen levels deep, and had no issues opening/navigating through them. There’s no hard set “folder depth”, as far as I can tell.
Post by: bplus on August 23, 2019, 09:21:24 am
I’m wondering if there’s issues with access permission rights. I made a test folder my machine, stacked a dozen levels deep, and had no issues opening/navigating through them. There’s no hard set “folder depth”, as far as I can tell.
Neither can I. I get file info from root and Windows stuff... I did find the scroller scrolling directories out of mouse reach, I should check arrow keys work :)
Post by: bplus on August 23, 2019, 09:28:27 am
No arrow keys, maybe I have to bang on scroll up bar 80 times?? to get .. to appear.
Post by: bplus on August 23, 2019, 09:38:32 am
Post by: Petr on August 23, 2019, 09:58:52 am
See to row 463, HwndOwner
Upgraded source code: (need files from ZIP posted before)
Code: QB64: [Select]
- ' ------------------------------------------------- this all dims are erased if sub end. Final outputs are:
- path$ = path$ + "\fonts\cour.ttf"
- f& = _LOADFONT(path$, 32, "monospace, bold") ' Load font. Font is used for correct display song name
- Vol = 1
- polar = 10
- 'j& = _LOADIMAGE("skin.png", 32) 'tohle
- 'd& = _LOADIMAGE("digits.png", 32) 'tohle
- titlemusic$ = "Stoped" ' basic status
- InsertX = -200 ' its X axis for song name moving on screen
- 'mrizka 170, 10
- 'path$ = ENVIRON$("SYSTEMROOT")
- 'path$ = path$ + "\fonts\cour.ttf"
- SCREEN i&
- 'screen i&
- '_SETALPHA 0, white& TO _RGB32(65, 65, 65), LoopOneP&
- '_SETALPHA 0, white& TO _RGB32(65, 65, 65), LoopAllP&
- LoopOne = 0 ' basic status for neverending playing one track
- LoopAll = 0 ' basic status for neverending playing all tracks from selected directory
- WindowsFileOpenSystem
- nacti.b ' create list all playble files in selected folder to swap file, load it to memory, then delete swap file. Create unsorted list!
- 'RndPlay 1 OK!!!!
- reload = 1 ' 'Reload = 1 started WindowsFileOpenSystem, Reload = 0 close it.
- RAP "StartDemo" ' Start basic mode
- ' WindowsFileOpenSystem ' if skiped this, its start automaticaly plays files in the same directory who is
- dalsi:
- IF _SNDPLAYING(zvuk&) = 0 THEN minuta = 0: sekunda = 0: oldsec = sec 'dodana podminka Reset song time if song playing is on the end
- akt = akt + 1 ' akt = actual play track number. Here this say go playing next song in list.
- posunuto:
- 'IF akt > max THEN akt = 1 'return plays to begin
- file$ = FinalUFiles$(akt)
- IF _SNDPLAYING(zvuk&) = 0 AND _SNDPAUSED(zvuk&) <> -1 AND stopp = 0 THEN hraj file$ 'tento krok zpusobuje chybu funkce STOP
- DO WHILE _SNDPLAYING(zvuk&) = -1 OR _SNDPAUSED(zvuk&) = -1 OR stopp = 1 ' Play sound if STOP is not pressed, playing is not in the end or PAUSE is not pressed
- Rodent ' call mouse interaction sub
- RAP FinalVFiles$(akt) ' draw visible song name to screen
- ' COLOR _RGB(255, 255, 255): PRINT FinalVFiles$(akt): SLEEP
- '_LIMIT 25
- cj ' cj - sub named as Cesky Jazyk - english - Czech language. It make Czech characters correctly readable an othe screen.
- '--------------------------------------------------------- KEYBOARD INPUTS ---------------------------------------------- Keyboard inputs -------------
- i$ = INKEY$
- RAP "shutdown.internal.cmd" ' this shutdown this program, before is called other sub for ersing all images from memory.
- 'previous
- RAP "getback.internal.cmd" ' say - play previous song
- akt = akt - 1: posuv = 1
- i$ = ""
- 'next
- RAP "getnext.internal.cmd" ' say - play next song
- akt = akt + 1: posuv = 1
- i$ = ""
- _SNDBAL zvuk&, ch# ' if is pressed < or , or . or > then reselect balance settings. Using double values.
- _SNDBAL zvuk&, ch#
- CASE "+"
- _SNDVOL zvuk&, Vol
- CASE "-"
- _SNDVOL zvuk&, Vol
- rtr:
- GOTO dalsi ' go back to DALSI, its begin this my loop and wait until song is played to end or keys are pressed.
- 'konec:
- '_SNDSTOP (zvuk&)
- 'IF LoopAll = 1 THEN GOTO dalsi 'make neverending loop, plays all files from begin
- SHARED max, usingRND, gen, tracknumber, stav ' max = maximal songs number in list, usingRND - info if song list is original or randomized
- copyU(StillCopy) = FinalUFiles(StillCopy)
- copyV(StillCopy) = FinalVFiles(StillCopy)
- gen = 0
- FinalUFiles(rewrite) = copyU(rewrite)
- FinalVFiles(rewrite) = copyV(rewrite)
- usingRND = 0 ' select RndPlay as unused for next use
- gene:
- RANDOMIZE generate
- NEXT ctrl
- gen = gen + 1
- Track(gen) = tracknumber
- ' PRINT "Generovana cisla stop priradim pisnickam:"
- FinalVFiles(cisla) = copyV(Track(cisla))
- FinalUFiles(cisla) = copyU(Track(cisla))
- ' vypis
- usingRND = 1 ' Rndmusic is used and is possible rewriting arrays back if is going off.
- SUB Rodent
- SHARED MouseX, MouseY, Lb, zvuk&, akt, posuv, Vol, ch#, vs, stopp, inf, LoopAll, LoopOne, LoopAllU&, LoopAllP&, LoopOneU&, LoopOneP&, i&, rndpl ' mouse interface
- MouseX = _MOUSEX
- MouseY = _MOUSEY
- 'mouse interaction
- PlayPressed:
- '_SNDPLAY (zvuk&)
- StopPressed:
- PowerPressed: RAP "shutdown.internal.cmd" ' Power button cooperation
- BackPressed: RAP "getback.internal.cmd": akt = akt - 1: posuv = 1: _SNDSTOP zvuk& ' Back button cooperation
- PausePressed: ' Pause button cooperation
- _DELAY 0.2
- NextPressed: ' Next button cooperation
- RAP "getnext.internal.cmd"
- akt = akt + 1: posuv = 1
- FilesSelect:
- ' IF RTRIM$(LTRIM$(FinalUFiles(1))) = "" THEN
- RndPlay 0
- rndpl = 0
- akt = 0
- WindowsFileOpenSystem ' start first folder select window in program begin
- BalanceLeft:
- _SNDBAL zvuk&, ch#
- BalanceRight:
- _SNDBAL zvuk&, ch#
- ViewSongTime vs ' call sub for time view
- info:
- info ' call sub info, this view information in data block sub info
- PressedLoopAll:
- PressLoop 1 ' set loop after loop for all songs icon click
- _DELAY 0.2
- PressedLoopOne:
- PressLoop 2
- _DELAY 0.2
- RandomPlay: ' cooperation with RND icon (random order music play)
- CASE 1
- CASE 0
- CASE 1
- CASE 2
- CASE 0
- CASE 1
- SUB info 'hodnota inf se priradi pri prvnim spusteni subu info a smaze po jeho opusteni (nastavi se na nulu)
- 'text& = _NEWIMAGE(1024, 300, 32)
- RESTORE txt
- _DEST sdeleni&
- RESTORE txt
- READ r$
- text$(viewtext) = r$
- mov = 0
- block:
- _TITLE "QB64 Petr's Player - INFO window"
- SCREEN i&
- ij$ = INKEY$
- mov = mov - 1
- mov = mov + 1
- _DEST sdeleni&
- mox = mov + 16 ' 16 rows to one page
- _DEST 0
- '_PUTIMAGE (0, 0), i&, text& 'dokud nestisknes klavesu, tak se vraci rizeni pro i& mimo subu pro klavesnici a mys
- ' _DELAY 0.5
- ' _DEST 0
- inf = 0 'po stisku klavesy v okne info se vrati rizeni i pro klvesnici a mys a ukonci se sub info
- SCREEN i&
- '_FREEIMAGE text& '
- _FREEIMAGE sdeleni&
- _TITLE "QB64 Music Player. By Petr - Petr.Pr@email.cz"
- txt:
- DATA " "
- DATA " "
- DATA "About QB Player: USE KEY UP / KEY DOWN / ESC"
- DATA "This open source player writed Petr Preclik. Its use QB64 commands, its based on the _SNDPLAY statement. This is my first ver- "
- DATA "sion in graphic mode. To program:"
- DATA "Is possible program using with mouse or keyboard. Use < or , and > or. for balance, + and - for volume and spacebar for pause"
- DATA "Esc to quit program, enter for song time selecting. N, n for next song in selected directory, P, p for previous song."
- DATA "With mouse is possible using LOOP one or LOOP all songs, play, stop, pause, next, previous, to time select click to song time"
- DATA "display. Two icons are for LOOP / LOOP all (songs in selected dir). "
- DATA "Files for this program: QBPlay.EXE, SKINDb.PNG, Demo.MP3. All used pictures are in the one PNG file, all pictures used in this"
- DATA "PNG file from www.eu.fotolia.com. Program read none ID3, is without equalizer and without vizualization. Is possible, next ver-"
- DATA "sion this already to have. For ID3TAG - See to http://www.[abandoned, outdated and now likely malicious qb64 dot net website - don’t go there]/forum/index.php?topic=14111.msg122204#msg122204,i wrote it"
- DATA "but in this version is unimplemented. In the end this program is comming monkey."
- DATA "QB64 users info:"
- DATA "SUB Rodent / mouse coordination with program. Is off if this info is view,"
- DATA "SUB WindowsFileOpenSystem / two QB64 WIKI sources in one SUB, returning path to directory in 8.3 format,"
- DATA "SUB The End - monkeys and memory cleaning sub if program get out,"
- DATA "SUB timing - yes. It calculate time. If is runned as timing TIMER, calculate current time from TIMER,"
- DATA "SUBS ViewVolume, ViewFrequency, ViewVolumeLevel... the same _PUTIMAGE subs. Many coordinates...."
- DATA "SUB rest - reset sound playng if error is comming, because _SNDPLAY generate none errors, is possible if uncompatible file is "
- DATA " loaded,"
- DATA "SUB hraj - its heart. This sub plays music."
- DATA "SUB nacti.b - this sub is my FIRST, this load files with mask filtering to memory (old version was not here used named nacti.A"
- DATA "reads it direct from harddrive), this sub is writed 14 days before i have found windows library file system..."
- DATA "SUB cj - for Czech text correct readable by SUB znak and the to correct displayed"
- DATA "SUB RAP - call other SUBS, because this sub is as graphic central, it displayed song name in the program"
- DATA "SUB znak - First write to unvisible screen song name. Then with POINT is this scaning and every point is with LINE drawing to"
- DATA "other unvisible screen. View this is then used as song name in program. Happy coding! Petr"
- DATA " And now.... i need 2D game in the Commander Keen style to write..."
- SUB WindowsFileOpenSystem
- wfos:
- '_TITLE "Super Window"
- TYPE BROWSEINFO 'typedef struct _browseinfo 'Microsoft MSDN http://msdn.microsoft.com/en-us/library/bb773205%28v=vs.85%29.aspx
- b.hwndOwner = hwnd
- o = SHBrowseForFolder(b)
- ' PRINT LEFT$(s$, INSTR(s$, CHR$(0)) - 1)
- 'this function make 8.3 worlwide full compatible format to correct acces to folder with no - english chars!:
- '=== SHOW SHORT PATH NAME
- FileOrPath$ = FolderLong$ '<< change to a relevant path or file name on computer
- Folder$ = ShortPathName$
- 'end of 8.3 function
- ' IF Folder$ = "" THEN EXIT SUB
- _DELAY 0.5
- CHDIR Folder$
- mousex = 0: mousey = 0: Lb = 0
- ' IF stopp = 1 THEN stopp = 0
- SUB TheEnd
- SHARED zvuk&, i&, new&, obraz&, f&, GreenButtonPlay&, GreenButtonStop&, j&, d&, GreenButtonPower&, GreenButtonBack&, GreenButtonPause&, GreenButtonNext&, VolumePlus&, VolumeMinus&, ImageOpenFiles&, resicon&, infoicon&, LoopOne&, loopall&, afterinfo&
- _DEST i&
- visible = 255 - hovno
- 'blok _FREE
- SCREEN 0
- _DEST 0
- _FREEFONT f&
- _FREEIMAGE GreenButtonPlay&
- _FREEIMAGE GreenButtonStop&
- _FREEIMAGE new&
- _FREEIMAGE j&
- _FREEIMAGE d&
- _FREEIMAGE GreenButtonPower&
- _FREEIMAGE GreenButtonBack&
- _FREEIMAGE GreenButtonPause&
- _FREEIMAGE GreenButtonNext&
- _FREEIMAGE VolumePlus&
- _FREEIMAGE VolumeMinus&
- _FREEIMAGE ImageOpenFiles&
- _FREEIMAGE resicon&
- _FREEIMAGE obraz&
- _FREEIMAGE i&
- _FREEIMAGE infoicon&
- ' _FREEIMAGE LoopOneU&
- ' _FREEIMAGE LoopAllU&
- ' _FREEIMAGE LoopOneP&
- ' _FREEIMAGE LoopAllP&
- _FREEIMAGE afterinfo&
- _SNDCLOSE zvuk&
- opic1:
- opic2:
- hodin = hodnota / 3600
- a2:
- a1:
- SHARED zvuk&, oldsec!, d&, i&, MouseX, MouseY, Lb, sec, sekunda, minuta, mi, se, se2, hodin, minut, sekund, sets
- stp = 470: sty = -175
- CASE 0
- CASE 1
- CASE 2
- CASE 3
- CASE 4
- CASE 5
- CASE 6
- CASE 7
- CASE 8
- CASE 9
- stp = 440: sty = -175
- CASE 0
- CASE 1
- CASE 2
- CASE 3
- CASE 4
- CASE 5
- CASE 6
- CASE 7
- CASE 8
- CASE 9
- stp = 370: sty = -175
- CASE 0
- CASE 1
- CASE 2
- CASE 3
- CASE 4
- CASE 5
- CASE 6
- CASE 7
- CASE 8
- CASE 9
- stp = 400: sty = -175
- CASE 0
- CASE 1
- CASE 2
- CASE 3
- CASE 4
- CASE 5
- CASE 6
- CASE 7
- CASE 8
- CASE 9
- ' minuta = 20
- ' IF sec < 60 AND minuta < 1 THEN minuta = 0
- stp = 300: sty = -175
- stp = 330: sty = -175
- SUB ViewFrequency
- SHARED d&, i&
- s = _SNDRATE
- ' s = 25864
- 'use 5 chracters to view frequency
- ' COLOR _RGB32(255, 255, 255): PRINT Ach, Bch, Cch, Dch, Ech 'ALL pass
- stp = 165
- CASE 0
- CASE 1
- CASE 2
- CASE 3
- CASE 4
- CASE 5
- CASE 6
- CASE 7
- CASE 8
- CASE 9
- stp = 190
- CASE 0
- CASE 1
- CASE 2
- CASE 3
- CASE 4
- CASE 5
- CASE 6
- CASE 7
- CASE 8
- CASE 9
- stp = 215
- CASE 0
- CASE 1
- CASE 2
- CASE 3
- CASE 4
- CASE 5
- CASE 6
- CASE 7
- CASE 8
- CASE 9
- stp = 240
- CASE 0
- CASE 1
- CASE 2
- CASE 3
- CASE 4
- CASE 5
- CASE 6
- CASE 7
- CASE 8
- CASE 9
- stp = 265
- CASE 0
- CASE 1
- CASE 2
- CASE 3
- CASE 4
- CASE 5
- CASE 6
- CASE 7
- CASE 8
- CASE 9
- ' Left Speaker --------#-------- Right Speaker - usable with mouse to left or right speaker or keyboard "<" and "," or ">" and "." Full funcionality only
- ' -100 to 0 to 100 with WAV files.
- ' COLOR _RGB32(255, 255, 255): PRINT 'ok, funguje s double
- REM _FREEIMAGE lvl&
- SUB ViewVolumeLevel
- ' Volume = 256
- ' firstV$ = "1"
- ' _DEST i&
- ' COLOR bila&
- ' CLS
- ' PRINT sv, 'STR$(Volume)
- ' SLEEP
- 'fv = 0
- CASE 0
- 'load null to view
- CASE 1
- 'load one to view
- 'COLOR _RGB32(255, 255, 255): PRINT Tv ', LEN(STR$(Volume)) ' overeno, ze sv ukazuje spravne cislo, overeno a spraveno FV!, overena spravna hodnota Tv - here i tested it
- 'multipl = (23 * sv) + 10
- CASE 0
- CASE 1
- CASE 2
- CASE 3
- CASE 4
- CASE 5
- CASE 6
- CASE 7
- CASE 8
- CASE 9
- stp = 30
- CASE 0
- CASE 1
- CASE 2
- CASE 3
- CASE 4
- CASE 5
- CASE 6
- CASE 7
- CASE 8
- CASE 9
- SUB rest
- SHARED akt, pokus
- ' BEEP
- ' WindowsFileOpenSystem
- pokus = pokus + 1
- akt = 0 + pokus - 1
- nacti.b
- reload = 1
- RAP "StartDemo"
- hraju = 1
- ' _SNDBAL zvuk&, ch# * 1000 'i have here not enought place for 5.1 / 7.1 speakers. :-D
- _SNDPLAY zvuk&
- SUB nacti.b
- seznam2$ = "": NewRecNr = 0: linka = 0: max = 0: reload = 0
- 'nacte a vyfiltruje soubory do poli Rfiles a Vfiles (Read and open files a Viewed as files)
- comm$ = "dir *.* /x > filelist.qb64" ' vylistuje vsechny soubory ve slozce 8.3 a LONG / DIR make file filelist.qb64 with old type and new type file names
- zacatek:
- linies = linies + 1
- 'PRINT linies
- seznam2$(linies) = nothing$
- GOTO zacatek
- konec:
- CLOSE #1
- KILL "filelist.qb64"
- 'PRINT "Transformuji Seznam na pole U a V (usable a visible)"
- ' IF linies = 0 THEN _DEST 0: PRINT "No files for play.(line 1276)": BEEP: EXIT SUB
- ' PRINT seznam$(test); " = record nr. "; test ' linies - 3
- text = text + 1
- ' IF text > 6 AND text < linies - 3 THEN vyrazeno verzi 0.21C - necetl vsechny mozne soubory.
- ' COLOR , 2: PRINT "UFILE RECORD"; UFiles$(test) 'VTK OK! filename with American ASCII, then filename is writed only as Vfile (visible and unvisible name is the same)
- ' COLOR , 6: PRINT "VFILE RECORD"; VFiles$(test) ' VTK OK!
- 'END IF
- READ FileMask$ ' in arrays we have all files in the directory. I need only types in DATA command. This filemask is filter.
- ' PRINT FileMask$, RIGHT$(LTRIM$(UCASE$(LEFT$(UFiles$(FileFilter), (INSTR(0, UFiles$(FileFilter), ".") + 3)))), 3), mask, FileFilter,
- ' PRINT a$, FileMask$: SLEEP
- 'sleep
- NEXT FileFilter
- NEXT mask
- 'REDIM MaskUFiles
- 'REDIM MaskVFiles
- nowrite:
- NEXT vypis
- 'IF RTRIM$(FinalUFiles$(1)) = "" THEN reload = 0: BEEP: EXIT SUB
- ' PRINT NewRecNr: SLEEP chyba.
- 'BEEP
- 'COLOR _RGB32(255, 255, 255)
- 'FOR ControlLoop = 0 TO NewRecNr
- 'PRINT FinalUFiles$(ControlLoop); ControlLoop; NewRecNr
- 'PRINT FinalVFiles$(ControlLoop); ControlLoop; NewRecNr2
- 'PRINT "MaskUFiles record NR:"; vypis; MaskUFiles$(vypis); "LEN:"; LEN(MaskUFiles$(vypis))
- 'PRINT "MaskVFiles record NR:"; vypis; MaskVfiles$(vypis); "LEN:"; LEN(MaskVfiles$(vypis))
- 'SLEEP
- 'NEXT ControlLoop
- 'here are sub outputs:
- 'NewRecNr - number new records - files accepts filemask
- 'FinalUFiles$(record_number) - list files accepts filemasks, usable to file access
- 'FinalVFiles$(record_number) - list files accepts filemasks, unusable to file acces if filename contains non US characters, but usable to correct view filenames with non US characters with _MAPUNICODE
- 'If filename contains US compatible characters, are both records the same.
- 'ERASE seznam2$, UFiles$, VFiles$, MaskUFiles$, MaskVFiles$
- 'RESTORE FileMask
- FileMask:
- linka = NewRecNr: max = NewRecNr
- SUB cj ' Sub make Czech characters readable correctly on the screen. If you needed use this
- ' for other language, is possible, you needed others DATA block. Data blocks are
- RESTORE Microsoft_pc_cpMIK ' for more languages in QB64 help (Shift + F1 / Alphabetical index / _MAPUNICODE statement /
- ' Code Pages)
- ' this program. This is first, based on DIR /X, uses 8.3 filenames, is full compatible for ALL
- READ unicode ' languages. It have 2 outputs. One as long filenames uses national characters, two in 8.3 to
- ' file access. 8.3 is full compatible with all languages.
- _MAPUNICODE unicode TO ASCIIcode ' And i. I need adress in memory to read sound wave. For drawing sound waves to screen :-D
- Microsoft_pc_cpMIK:
- SHARED t&, i&, InsertX, ch#, f&, zvuk&, GreenButtonPlay&, GreenButtonStop&, GreenButtonPower&, viewto, GreenButtonBack&, viewto2, GreenButtonNext&, GreenButtonPause&, MouseX, MouseY, vs
- startdemo:
- znak text$
- sk:
- _DEST i&
- IF InsertX > 7 * (LEN(RTRIM$(text$)) * _FONTWIDTH(f&)) THEN InsertX = -920 'display have 7 characters
- sht:
- ViewVolumeLevel
- ViewBalanceLevel ch#
- ViewFrequency
- PressLoop 1: PressLoop 2
- IF _SNDPLAYING(zvuk&) = 0 AND _SNDPAUSED(zvuk&) = 0 AND text$ <> "shutdown.internal.cmd" THEN _PUTIMAGE (117, 41), GreenButtonStop&, i&
- InsertX = InsertX + 10
- 'COLOR _RGB32(255, 255, 255): LOCATE 1, 1: PRINT _SNDLEN(zvuk&)
- viewicon:
- res = res + polar / 2
- 'COLOR _RGB(255, 255, 255): PRINT res
- 'udela kompletni obraz do t&, txt$ prichazi spravne
- _DEST text&
- cj
- _FONT f&
- ' IF linka > akt THEN linka = 1
- PRINT printed$; txt$ ' + STRING$(toend, CHR$(32))
- ' SCREEN text&: SLEEP
- _SOURCE text&
- _DEST text&
- ' SCREEN t&: SLEEP
- _DEST i& 'pocat
- _FREEIMAGE text&
Post by: Petr on August 23, 2019, 10:15:22 am
Post by: SMcNeill on August 23, 2019, 11:14:03 am
I tried to apply the same procedure to the source code of Ken but there I just managed to correct the compilation error so that the program compiles, but unfortunately does not invoke the windows dialog Open or Save, but it behaves as if I did not select anything and dialog directly closed. So the program scolds me (I need it :)) and that's it. I j rewritte the hwndOwner type to _INTEGER64 in FIELDDIALOGTYPE. Then have function FindWindowA rewrited to _INTEGER64 type. I vaguely remember, Steve, that you were showing something with _WindowHandle somewhere (if it was you?) And that you no longer need to call FindWindowA. Somewhere in that window identification that calls Windows dialogs and it is likely to be a problem.
Change line 460 in your program to hwnd& = _WINDOWHANDLE, and you won’t need FindWindowA.
As for the LONG/INTEGER64 type, at line 463, make it auto sizing with the precompiler:
$IF 32BIT THEN
hwndOwner AS LONG
$ELSE
hwndOwner AS _INTEGER64
$END IF
Post by: Petr on August 23, 2019, 11:21:30 am
Post by: SierraKen on August 23, 2019, 01:07:50 pm
Post by: bplus on August 23, 2019, 01:32:46 pm
Wow... I read all of these replies and I have no idea where to start on mine. Or is it possible yet? I feel like I just walked into a classroom of PhD programmers. :)
I fixed Tiny Navigator, should I start thread? I was going to try a files window like Steve has before posting.
Post by: SpriggsySpriggs on May 13, 2020, 09:32:13 am
PowerShell code:
Quote
$PSDefaultParameterValues['Out-File:Encoding'] = 'utf8'QB64 Code:
Add-Type -AssemblyName System.Windows.Forms
$FileBrowser = New-Object System.Windows.Forms.OpenFileDialog -Property @{
InitialDirectory = '.\'
Filter = 'All Files (*.*)|*.*'
}
$null = $FileBrowser.ShowDialog()
$FileName = $FileBrowser.FileName
if ($FileName -ne ''){
Write-Host $FileName
$FileName > 'openfilename.txt'
exit 1
}
else{
exit 0
}
Code: QB64: [Select]
You trim off the last three characters because there are some hidden characters that Windows Forms seems to add and they will screw up all the file handling if you don't trim them off. I hope this can help someone!
Post by: SpriggsySpriggs on May 13, 2020, 01:09:40 pm
A screenshot of the dialog:
Here is the PowerShell code, fully fixed to accept a custom title, Start Directory, and Filter for filetypes
Quote
$PSDefaultParameterValues['Out-File:Encoding'] = 'utf8'And here is the current QB64 code that would allow you to call a function similar to GetOpenFileNameA and display an Open File Dialog:
Add-Type -AssemblyName System.Windows.Forms
$FileBrowser = New-Object System.Windows.Forms.OpenFileDialog -Property @{
}
$FileBrowser.Title = $args[0]
$initial = $args[1].ToString().Replace("/","\")
$FileBrowser.InitialDirectory = $initial
$chosenfilter = $args[2].ToString().Replace("^/^","|")
$FileBrowser.Filter = $chosenfilter
$null = $FileBrowser.ShowDialog()
$FileName = $FileBrowser.FileName
if ($FileName -ne ''){
$FileName > 'openfilename.txt'
exit 1
}
else{
exit 0
}
Code: QB64: [Select]
- OFile$ = GetOpenFileName64("Select a file, jackass", "C:\Users\zacharys\[redacted]\Desktop\QB64 Files\qb32", "QB64 Files (*.BAS)|*.bas|All Files (*.*)|*.*")
- SHELL$ = "PowerShell -WindowStyle Hidden -ExecutionPolicy Bypass " + CHR$(34) + "&'" + _STARTDIR$ + "\OpenFile.ps1'"
- InitialDir$ = ReplaceStringItem(InitialDir$, "\", "/")
- Filter$ = ReplaceStringItem(Filter$, "|", "^/^")
- 'Filter$ = ReplaceStringItem(Filter$, "/", "|")
- '_ECHO SHELL$
- F = FREEFILE
- CLOSE #F
- GetOpenFileName64 = OFile$
- GetOpenFileName64 = ""
- ' PRINT "Cancelled"
- text$ = first$ + new$ + last$
- start = find
- ReplaceStringItem = text$
UPDATE!!!!!
Here is the code for making the GetSaveFileName function:
PowerShell:
Quote
$PSDefaultParameterValues['Out-File:Encoding'] = 'utf8'And QB64:
Add-Type -AssemblyName System.Windows.Forms
$FileBrowser = New-Object System.Windows.Forms.SaveFileDialog -Property @{
}
$FileBrowser.Title = $args[0]
$initial = $args[1].ToString().Replace("/","\")
$FileBrowser.InitialDirectory = $initial
$chosenfilter = $args[2].ToString().Replace("^/^","|")
$FileBrowser.Filter = $chosenfilter
$null = $FileBrowser.ShowDialog()
$FileName = $FileBrowser.FileName
if ($FileName -ne ''){
$FileName > 'savefilename.txt'
exit 1
}
else{
exit 0
}
Code: QB64: [Select]
- SFile$ = GetSaveFileName64("Save a file, jackass", "C:\Users\zacharys\[redacted]\Desktop\QB64 Files\qb32", "QB64 Files (*.BAS;*.BI;*.BM;*.FRM)|*.BAS;*.BI;*.BM;*.FRM|All Files (*.*)|*.*")
- InitialDir$ = ReplaceStringItem(InitialDir$, "\", "/")
- Filter$ = ReplaceStringItem(Filter$, "|", "^/^")
- 'Filter$ = ReplaceStringItem(Filter$, "/", "|")
- 'a = SHELL(SHELL$)
- '_ECHO SHELL$
- F = FREEFILE
- CLOSE #F
- GetSaveFileName64 = SFile$
- GetSaveFileName64 = ""
- ' PRINT "Cancelled"