- Example: Opening a selected file
- Example: Opening a selected sound file
- Handling a multi-file picker
Example: Opening a selected file
// Declare the variables
FileNameAndPath is string
FileID is int
// Select file to open
FileNameAndPath = fSelect("C:\MyDirectories", "File.txt", ...
"Select a file", "Text file (*.TXT)" + TAB + ...
"*.txt" + CR + "All files (*.*)" + TAB + "*.*", "TXT", fselOpen + fselExist)
// Open file
FileID = fOpen(FileNameAndPath, foReadWrite)
// Display an error message if the opening was not performed
IF FileID = 1 THEN
Error(ErrorInfo(errMessage))
ELSE
// Processes in the opened file
...
// End of processes
END
Example: Opening a selected sound file
// --Code for window creation
GLOBAL
FileNameAndPath is string
// --Click code on BTN_SelectFile
// Initialization code
EventNum is int
// Declare the event used to play the selected sound file
EventNum = Event("PlaySound", WinInput(), 1624)
// Select a sound file
FileNameAndPath = fSelect("C:\MyDirectories", "", "Select a sound file", ...
"Wave sound (*.WAV)" + TAB + "*.wav", "", fselOpen + fselExist + fselChange)
// End of event
EndEvent(EventNum)
// Processes in the selected file
...
// End of processes
// Procedure local to the window. This procedure is used to play the sound file
PROCEDURE PlaySound(wMessage, wParam, lParam)
FileName is fixed string on 261
// The file path cannot exceed 260 characters.
// Retrieve the string that contains the name of the file currently selected
//Transfer(&FileName, lParam, wParam)
FileName = StringRetrieve(lParam, srUNICODEAddress)
// FileName: string receiving the name of the file currently selected
// lParam: address of the string containing the name of the file currently selected
// wParam: size of the string containing the name of the file currently selected
// Run the selected sound file
Sound(FileName)
Handling a multi-file picker
This page is also available for…
|
|
|
|