modCommon -1118555947 231 100000918 231 100000721 231 209001836 234 0 modCommon 24 0 134217984 modCommon_Description 1 14 22 14 22 134217984 modCommon_Description '============================================================================================================= ' ' modCommon Module ' ---------------- ' ' Created By : Kevin Wilson ' http://www.TheVBZone.com ( The VB Zone ) ' http://net.TheVBZone.com ( The VB Zone .NET ) ' http://rb.TheVBZone.com ( The VB Zone [RB] ) ' ' Created On : May 3, 2004 ' Last Update : Oct 06, 2004 ' ' RB Versions : 5.5 (or later) ' ' Requires : modVisualBasic.xml (RB module written by Kevin Wilson [rb.thevbzone.com]) ' ' Description : This module is a combination of all of the Windows API's that I use most often. I kept ' having to add them every time I created a new project, so I figured I'd save myself some ' time by creating a reusable module that can be used in any program. ' ' NOTE : The functions in this module assume you're targeting Windows. Some of the functions in this ' module can only be used in Windows because they call the Win32 API. If you wish to use some ' of these functions, you'll have to tweak them a bit for use with other OS's. ' '============================================================================================================= ' ' LEGAL: ' ' You are free to use this code as long as you keep the above heading information intact and unchanged. Credit ' given where credit is due. Also, it is not required, but it would be appreciated if you would mention ' somewhere in your compiled program that that your program makes use of code written and distributed by ' Kevin Wilson (www.TheVBZone.com). Feel free to link to this code via your web site or articles. ' ' You may NOT take this code and pass it off as your own. You may NOT distribute this code on your own server ' or web site. You may NOT take code created by Kevin Wilson (www.TheVBZone.com) and use it to create products, ' utilities, or applications that directly compete with products, utilities, and applications created by Kevin ' Wilson, TheVBZone.com, or Wilson Media. You may NOT take this code and sell it for profit without first ' obtaining the written consent of the author Kevin Wilson. ' ' These conditions are subject to change at the discretion of the owner Kevin Wilson at any time without 27207761726E696E67206F72206E6F746963652E2020436F70797269676874C2A9206279204B6576696E2057696C736F6E2E2020416C6C207269676874732072657365727665642E ' '============================================================================================================= 134217984 AlwaysOnTop Form As Window, blnOnTop As Boolean 0 5 0 5 0 134217984 Sub AlwaysOnTop(Form As Window, blnOnTop As Boolean) #If TargetWin32 = False Then Return #EndIf Dim blnReturn As Boolean blnReturn = AlwaysOnTop(Form, blnOnTop) End Sub 134217984 AlwaysOnTop Form As Window, blnOnTop As Boolean Boolean 0 44 0 44 13 134217984 Function AlwaysOnTop(Form As Window, blnOnTop As Boolean) As Boolean #If TargetWin32 = False Then Return False #EndIf ' Constants - SetWindowPos.wFlags Const SWP_FRAMECHANGED = &H20 ' Forces a WM_NCCALCSIZE message to go to the window even if its size does not change. Const SWP_DRAWFRAME = &H20 ' Draws a frame around the window. Const SWP_HIDEWINDOW = &H80 ' Hides the window. Const SWP_NOACTIVATE = &H10 ' Does not activate the window. Const SWP_NOMOVE = &H2 ' Retains current position (x and y are ignored). Const SWP_NOREDRAW = &H8 ' Window is not automatically redrawn. Const SWP_NOSIZE = &H1 ' Retains current size (cx and cy are ignored). Const SWP_NOZORDER = &H4 ' Retains current position in the window list (hWndInsertAfter is ignored). Const SWP_SHOWWINDOW = &H40 ' Displays the window. Const HWND_TOP = 0 ' Place window at the top of the Z-order, the order in which windows are displayed for the given level of the window in the hierarchy Const HWND_BOTTOM = 1 ' Place window at bottom of the window list Const HWND_TOPMOST = -1 ' Place window at the top of the list, ahead of any topmost windows Const HWND_NOTOPMOST = -2 ' Place window at the top of the list, behind any topmost windows Const SWP_FLAGS = &H3 '(SWP_NOMOVE Or SWP_NOSIZE) Declare Function SetWindowPos Lib "USER32.DLL" (ByVal hWnd As Integer, ByVal hWndInsertAfter As Integer, ByVal X As Integer, ByVal Y As Integer, ByVal cx As Integer, ByVal cy As Integer, ByVal wFlags As Integer) As Integer Dim intReturn As Integer Dim intFlag As Integer Dim hWnd As Integer ' Get the handle to the form hWnd = Form.WinHWND If hWnd = 0 Then Return False ' Set the flags according to the specified location intFlag = HWND_TOPMOST If blnOnTop = False Then intFlag = HWND_NOTOPMOST ' Call the Win32 API to set the position of the form intReturn = SetWindowPos(hWnd, intFlag, 0, 0, 0, 0, SWP_FLAGS) If intReturn <> 0 Then Return True Else Return False End If Exception Err As RuntimeException Return False End Function 134217984 CenterForm Form As Window 0 2 0 2 0 134217984 Sub CenterForm(Form As Window) Form.Left = (Screen(0).AvailableWidth - Form.Width) / 2 Form.Top = (Screen(0).AvailableHeight - Form.Height) / 2 End Sub 134217984 FileExists FilePath As String Boolean 0 1 0 1 0 134217984 Function FileExists(FilePath As String) As Boolean Dim oFile As FolderItem oFile = GetFolderItem(FilePath) If IsNull(oFile) = False Then If oFile.Directory = False Then oFile = Nil Return True Else oFile = Nil Return False End If Else Return False End If End Function 134217984 FolderExists FolderPath As String Boolean 0 2 15 2 25 134217984 Function FolderExists(FolderPath As String) As Boolean Dim oFolder As FolderItem oFolder = GetFolderItem(FolderPath) If IsNull(oFolder) = False Then If oFolder.Directory = True Then oFolder = Nil Return True Else oFolder = Nil Return False End If Else Return False End If End Function 134217984 Path_AppData FolderItem 0 5 0 5 0 134217984 Function Path_AppData() As FolderItem ' RETURN = "C:\Documents and Settings\<USER_NAME>\Application Data\" Return ApplicationSupportFolder() End Function 134217984 Path_Desktop FolderItem 0 5 0 5 0 134217984 Function Path_Desktop() As FolderItem ' RETURN = "C:\Documents and Settings\<USER_NAME>\Desktop\" Return DesktopFolder() End Function 134217984 Path_Fonts FolderItem 0 5 0 5 0 134217984 Function Path_Fonts() As FolderItem ' RETURN = "C:\WINNT\Fonts\" Return FontsFolder() End Function 134217984 Path_StartUp FolderItem 0 5 0 5 0 134217984 Function Path_StartUp() As FolderItem ' RETURN = "C:\Documents and Settings\<USER_NAME>\Start Menu\Programs\Startup\" Return StartupItemsFolder() End Function 134217984 Path_System FolderItem 0 5 0 5 0 134217984 Function Path_System() As FolderItem ' RETURN = "C:\WINNT\System32\" *OR* "C:\Windows\System\" Return SystemFolder() End Function 134217984 Path_Temp FolderItem 0 5 0 5 0 134217984 Function Path_Temp() As FolderItem ' RETURN = "C:\Temp\" *OR* "C:\Windows\Temp" Return TemporaryFolder() End Function 134217984 Path_TrashCan FolderItem 0 5 0 5 0 134217984 Function Path_TrashCan() As FolderItem ' RETURN = "C:\Documents and Settings\<USER_NAME>\Desktop\Recycle Bin\" Return TrashFolder() End Function 134217984 Path_Windows FolderItem 0 3 10 3 10 134217984 Function Path_Windows() As FolderItem #If TargetWin32 = False Then Return Nil #EndIf Declare Function GetWindowsDirectoryA Lib "KERNEL32.DLL" (ByVal lpBuffer As CString, ByVal nSize As Integer) As Integer Dim strFolder As String Dim intResult As Integer Dim intCounter As Integer strFolder = "" For intCounter = 1 To 260 strFolder = strFolder + Chr(0) Next intResult = GetWindowsDirectoryA(strFolder, 260) If intResult <> 0 Then strFolder = Left(strFolder, InStr(1, strFolder, Chr(0)) - 1) Else strFolder = "" End If Return GetFolderItem(strFolder) End Function 134217984 GetFileNameAndExt ByVal strFilePath As String, ByRef Return_FileName As String, ByRef Return_FileExtention As String Boolean 0 4 0 4 0 134217984 Function GetFileNameAndExt(ByVal strFilePath As String, ByRef Return_FileName As String, ByRef Return_FileExtention As String) As Boolean ' This function returns the NAME and the EXTENTION of the file specified via the "strFilePath" parameter. ' (i.e. - If "C:\Test.txt" is passed in, "Test" is returned as the name, "txt" is returned as the extention) Dim StringSoFar As String Dim CharLeft As String Dim CharRight As String Dim lngCounter As Integer Dim blnFoundExt As Boolean ' Clear return variables Return_FileName = "" Return_FileExtention = "" ' Validate parameters strFilePath = Trim(strFilePath) If strFilePath = "" Then Return False strFilePath = ReplaceAll(strFilePath, "/", "\") If InStr(1, strFilePath, "\") = 0 And InStr(1, strFilePath, ".") = 0 Then Return_FileName = strFilePath Return True End If ' Loop through the file and get it's extention and name For lngCounter = 1 To Len(strFilePath) CharRight = Right(strFilePath, lngCounter) CharLeft = Left(CharRight, 1) If CharLeft = "." And blnFoundExt = False Then blnFoundExt = True Return_FileExtention = StringSoFar StringSoFar = "" ElseIf CharLeft = "\" Then Return_FileName = StringSoFar Return True Else StringSoFar = CharLeft + StringSoFar End If Next ' If a single file name was passed without a PATH, this returns the correct values Return_FileName = StringSoFar Return True End Function 134217984 INI_Read SectionName As String, KeyName As String, INIPath As String String 0 5 0 5 0 134217984 Function INI_Read(SectionName As String, KeyName As String, INIPath As String) As String #If TargetWin32 = False Then Return "" #EndIf Return INI_Read(SectionName, KeyName, INIPath, "") End Function 134217984 INI_Read SectionName As String, KeyName As String, INIPath As String, DefaultValue As String String 0 5 0 5 0 134217984 Function INI_Read(SectionName As String, KeyName As String, INIPath As String, DefaultValue As String) As String #If TargetWin32 = False Then Return "" #EndIf Declare Function GetPrivateProfileStringA Lib "KERNEL32.DLL" (ByVal lpApplicationName As CString, ByVal lpKeyName As CString, ByVal lpDefault As CString, ByVal lpReturnedString As CString, ByVal nSize As Integer, ByVal lpFileName As CString) As Integer Dim intLength As Integer Dim intCounter As Integer Dim strTemp As String strTemp = "" For intCounter = 1 To 260 strTemp = strTemp + " " Next intLength = GetPrivateProfileStringA(SectionName + Chr(0), KeyName + Chr(0), DefaultValue + Chr(0), strTemp, 260, INIPath + Chr(0)) If intLength < 1 Then Return "" Else strTemp = Left(strTemp, intLength) Return strTemp End If End Function 134217984 INI_Write SectionName As String, KeyName As String, Value As String, INIPath As String 0 3 6 3 6 134217984 Sub INI_Write(SectionName As String, KeyName As String, Value As String, INIPath As String) #If TargetWin32 = False Then Return #EndIf Dim blnReturn As Boolean blnReturn = INI_Write(SectionName, KeyName, Value, INIPath) End Sub 134217984 INI_Write SectionName As String, KeyName As String, Value As String, INIPath As String Boolean 0 7 0 7 0 134217984 Function INI_Write(SectionName As String, KeyName As String, Value As String, INIPath As String) As Boolean #If TargetWin32 = False Then Return False #EndIf Declare Function WritePrivateProfileStringA Lib "KERNEL32.DLL" (ByVal lpApplicationName As CString, ByVal lpKeyName As CString, ByVal LPString As CString, ByVal lpFileName As CString) As Integer If WritePrivateProfileStringA(SectionName + Chr(0), KeyName + Chr(0), Value + Chr(0), INIPath + Chr(0)) <> 0 Then Return True Else Return False End If End Function 134217984 LoadBinaryFile ByVal strFilePath As String, ByVal blnReadWrite As Boolean, ByRef Return_FileContent As BinaryStream 0 11 0 11 0 134217984 Sub LoadBinaryFile(ByVal strFilePath As String, ByVal blnReadWrite As Boolean, ByRef Return_FileContent As BinaryStream) ' * IMPORTANT : Make sure you call the "Close" method of the returned "BinaryStream", then set the ' returned "BinaryStream" object equal to NIL. Otherwise, you will have a memory leak. Dim blnReturn As Boolean Dim intErrNum As Integer Dim strErrType As String Dim strErrDesc As String blnReturn = LoadBinaryFile(strFilePath, blnReadWrite, Return_FileContent, intErrNum, strErrType, strErrDesc) End Sub 134217984 LoadBinaryFile ByVal strFilePath As String, ByVal blnReadWrite As Boolean, ByRef Return_FileContent As BinaryStream Boolean 0 9 11 9 11 134217984 Function LoadBinaryFile(ByVal strFilePath As String, ByVal blnReadWrite As Boolean, ByRef Return_FileContent As BinaryStream) As Boolean ' * IMPORTANT : Make sure you call the "Close" method of the returned "BinaryStream", then set the ' returned "BinaryStream" object equal to NIL. Otherwise, you will have a memory leak. Dim intErrNum As Integer Dim strErrType As String Dim strErrDesc As String Return LoadBinaryFile(strFilePath, blnReadWrite, Return_FileContent, intErrNum, strErrType, strErrDesc) End Function 134217984 LoadBinaryFile ByVal strFilePath As String, ByVal blnReadWrite As Boolean, ByRef Return_FileContent As BinaryStream, ByRef Return_ErrNum As Integer, ByRef Return_ErrType As String, ByRef Return_ErrDesc As String Boolean 0 52 0 52 13 134217984 Function LoadBinaryFile(ByVal strFilePath As String, ByVal blnReadWrite As Boolean, ByRef Return_FileContent As BinaryStream, ByRef Return_ErrNum As Integer, ByRef Return_ErrType As String, ByRef Return_ErrDesc As String) As Boolean ' * IMPORTANT : Make sure you call the "Close" method of the returned "BinaryStream", then set the ' returned "BinaryStream" object equal to NIL. Otherwise, you will have a memory leak. Dim objFile As FolderItem Dim objStream As BinaryStream ' Set default values Return_FileContent = Nil Return_ErrNum = 0 Return_ErrType = "" Return_ErrDesc = "" ' Get a reference to the file objFile = GetFolderItem(strFilePath) If IsNull(objFile) = True Then Return_ErrNum = -1 Return_ErrType = "RuntimeException" Return_ErrDesc = "Failed to get a reference to the specified file" Return False Else If objFile.LastErrorCode <> 0 Then GetErrorDescription objFile.LastErrorCode, Return_ErrNum, Return_ErrType, Return_ErrDesc Return False ElseIf objFile.Exists = False Then Return_ErrNum = -1 Return_ErrType = "RuntimeException" Return_ErrDesc = "The specified file was not found" Return False End If End If ' Open the file objStream = objFile.OpenAsBinaryFile(blnReadWrite) If IsNull(objStream) = True Then Return_ErrNum = -1 Return_ErrType = "RuntimeException" Return_ErrDesc = "Failed to open the specified file" Return False ElseIf objStream.LastErrorCode <> 0 Then GetErrorDescription objStream.LastErrorCode, Return_ErrNum, Return_ErrType, Return_ErrDesc Return False End If ' Return the BinaryStream object Return_FileContent = objStream ' Clean up objFile = Nil Return True Exception Err As RuntimeException GetErrorInfo Err, Return_ErrNum, Return_ErrType, Return_ErrDesc Return_FileContent = Nil objStream = Nil objFile = Nil End Function 134217984 LoadTextFile ByVal strFilePath As String, ByRef Return_FileContent As String 0 7 16 7 16 134217984 Sub LoadTextFile(ByVal strFilePath As String, ByRef Return_FileContent As String) Dim blnReturn As Boolean Dim intErrNum As Integer Dim strErrType As String Dim strErrDesc As String blnReturn = LoadTextFile(strFilePath, Return_FileContent, intErrNum, strErrType, strErrDesc) End Sub 134217984 LoadTextFile ByVal strFilePath As String, ByRef Return_FileContent As String Boolean 0 6 11 6 11 134217984 Function LoadTextFile(ByVal strFilePath As String, ByRef Return_FileContent As String) As Boolean Dim intErrNum As Integer Dim strErrType As String Dim strErrDesc As String Return LoadTextFile(strFilePath, Return_FileContent, intErrNum, strErrType, strErrDesc) End Function 134217984 LoadTextFile ByVal strFilePath As String, ByRef Return_FileContent As String, ByRef Return_ErrNum As Integer, ByRef Return_ErrType As String, ByRef Return_ErrDesc As String Boolean 0 51 0 51 13 134217984 Function LoadTextFile(ByVal strFilePath As String, ByRef Return_FileContent As String, ByRef Return_ErrNum As Integer, ByRef Return_ErrType As String, ByRef Return_ErrDesc As String) As Boolean Dim objFile As FolderItem Dim objStream As TextInputStream ' Set default values Return_FileContent = "" Return_ErrNum = 0 Return_ErrType = "" Return_ErrDesc = "" ' Get a reference to the file objFile = GetFolderItem(strFilePath) If IsNull(objFile) = True Then Return_ErrNum = -1 Return_ErrType = "RuntimeException" Return_ErrDesc = "Failed to get a reference to the specified file" Return False Else If objFile.LastErrorCode <> 0 Then GetErrorDescription objFile.LastErrorCode, Return_ErrNum, Return_ErrType, Return_ErrDesc Return False ElseIf objFile.Exists = False Then Return_ErrNum = -1 Return_ErrType = "RuntimeException" Return_ErrDesc = "The specified file was not found" Return False End If End If ' Open the file objStream = objFile.OpenAsTextFile If IsNull(objStream) = True Then Return_ErrNum = -1 Return_ErrType = "RuntimeException" Return_ErrDesc = "Failed to open the specified file" Return False ElseIf objStream.LastErrorCode <> 0 Then GetErrorDescription objStream.LastErrorCode, Return_ErrNum, Return_ErrType, Return_ErrDesc Return False End If ' Get the contents of the file Return_FileContent = objStream.ReadAll objStream.Close ' Clean up objStream = Nil objFile = Nil Return True Exception Err As RuntimeException GetErrorInfo Err, Return_ErrNum, Return_ErrType, Return_ErrDesc Return_FileContent = "" objStream = Nil objFile = Nil End Function 134217984 LoadPictureFile ByVal strFilePath As String, ByVal blnPictureIsRaster As Boolean, ByRef Return_FileContent As Picture 0 9 16 9 16 134217984 Sub LoadPictureFile(ByVal strFilePath As String, ByVal blnPictureIsRaster As Boolean, ByRef Return_FileContent As Picture) ' * IMPORTANT : Make sure you set the returned "Picture" object equal to NIL. Otherwise, you will have a memory leak. Dim blnReturn As Boolean Dim intErrNum As Integer Dim strErrType As String Dim strErrDesc As String blnReturn = LoadPictureFile(strFilePath, blnPictureIsRaster, Return_FileContent, intErrNum, strErrType, strErrDesc) End Sub 134217984 LoadPictureFile ByVal strFilePath As String, ByVal blnPictureIsRaster As Boolean, ByRef Return_FileContent As Picture Boolean 0 8 11 8 11 134217984 Function LoadPictureFile(ByVal strFilePath As String, ByVal blnPictureIsRaster As Boolean, ByRef Return_FileContent As Picture) As Boolean ' * IMPORTANT : Make sure you set the returned "Picture" object equal to NIL. Otherwise, you will have a memory leak. Dim intErrNum As Integer Dim strErrType As String Dim strErrDesc As String Return LoadPictureFile(strFilePath, blnPictureIsRaster, Return_FileContent, intErrNum, strErrType, strErrDesc) End Function 134217984 LoadPictureFile ByVal strFilePath As String, ByVal blnPictureIsRaster As Boolean, ByRef Return_FileContent As Picture, ByRef Return_ErrNum As Integer, ByRef Return_ErrType As String, ByRef Return_ErrDesc As String Boolean 0 52 0 52 13 134217984 Function LoadPictureFile(ByVal strFilePath As String, ByVal blnPictureIsRaster As Boolean, ByRef Return_FileContent As Picture, ByRef Return_ErrNum As Integer, ByRef Return_ErrType As String, ByRef Return_ErrDesc As String) As Boolean ' * IMPORTANT : Make sure you set the returned "Picture" object equal to NIL. Otherwise, you will have a memory leak. Dim objFile As FolderItem Dim objStream As Picture ' Set default values Return_FileContent = Nil Return_ErrNum = 0 Return_ErrType = "" Return_ErrDesc = "" ' Get a reference to the file objFile = GetFolderItem(strFilePath) If IsNull(objFile) = True Then Return_ErrNum = -1 Return_ErrType = "RuntimeException" Return_ErrDesc = "Failed to get a reference to the specified file" Return False Else If objFile.LastErrorCode <> 0 Then GetErrorDescription objFile.LastErrorCode, Return_ErrNum, Return_ErrType, Return_ErrDesc Return False ElseIf objFile.Exists = False Then Return_ErrNum = -1 Return_ErrType = "RuntimeException" Return_ErrDesc = "The specified file was not found" Return False End If End If ' Open the file If blnPictureIsRaster = True Then objStream = objFile.OpenAsPicture Else objStream = objFile.OpenAsVectorPicture End If If IsNull(objStream) = True Then Return_ErrNum = -1 Return_ErrType = "RuntimeException" Return_ErrDesc = "Failed to open the specified file" Return False End If ' Return the PICTURE object Return_FileContent = objStream ' Clean up objFile = Nil Return True Exception Err As RuntimeException GetErrorInfo Err, Return_ErrNum, Return_ErrType, Return_ErrDesc Return_FileContent = Nil objStream = Nil objFile = Nil End Function 134217984 GetErrorDescription ByVal lngErrorCode As Integer, ByRef Return_ErrNum As Integer, ByRef Return_ErrType As String, ByRef Return_ErrDesc As String 33 3 6 3 6 134217984 Sub GetErrorDescription(ByVal lngErrorCode As Integer, ByRef Return_ErrNum As Integer, ByRef Return_ErrType As String, ByRef Return_ErrDesc As String) Select Case lngErrorCode Case 0 Return_ErrNum = 0 Return_ErrType = "" Return_ErrDesc = "" Case FolderItem.DestDoesNotExistError Return_ErrNum = -1 Return_ErrType = "RuntimeException" Return_ErrDesc = "[100] The destination does not exist" Case FolderItem.FileNotFound Return_ErrNum = -1 Return_ErrType = "RuntimeException" Return_ErrDesc = "[101] The specified file was not found" Case FolderItem.AccessDenied Return_ErrNum = -1 Return_ErrType = "RuntimeException" Return_ErrDesc = "[102] Access Denied" Case FolderItem.NotEnoughMemory Return_ErrNum = -1 Return_ErrType = "RuntimeException" Return_ErrDesc = "[103] Out Of Memory" Case FolderItem.FileInUse Return_ErrNum = -1 Return_ErrType = "RuntimeException" Return_ErrDesc = "[104] The file is currently in use by another process" Case FolderItem.InvalidName Return_ErrNum = -1 Return_ErrType = "RuntimeException" Return_ErrDesc = "[105] Invalid file name" Else Return_ErrNum = -1 Return_ErrType = "Unknown" Return_ErrDesc = "An unknown error occured while trying to open the specified file" End Select End Sub 134217984 LoadSoundFile ByVal strFilePath As String, ByRef Return_FileContent As Sound 0 9 16 9 16 134217984 Sub LoadSoundFile(ByVal strFilePath As String, ByRef Return_FileContent As Sound) ' * IMPORTANT : Make sure you set the returned "Sound" object equal to NIL. Otherwise, you will have a memory leak. Dim blnReturn As Boolean Dim intErrNum As Integer Dim strErrType As String Dim strErrDesc As String blnReturn = LoadSoundFile(strFilePath, Return_FileContent, intErrNum, strErrType, strErrDesc) End Sub 134217984 LoadSoundFile ByVal strFilePath As String, ByRef Return_FileContent As Sound Boolean 0 8 11 8 11 134217984 Function LoadSoundFile(ByVal strFilePath As String, ByRef Return_FileContent As Sound) As Boolean ' * IMPORTANT : Make sure you set the returned "Sound" object equal to NIL. Otherwise, you will have a memory leak. Dim intErrNum As Integer Dim strErrType As String Dim strErrDesc As String Return LoadSoundFile(strFilePath, Return_FileContent, intErrNum, strErrType, strErrDesc) End Function 134217984 LoadSoundFile ByVal strFilePath As String, ByRef Return_FileContent As Sound, ByRef Return_ErrNum As Integer, ByRef Return_ErrType As String, ByRef Return_ErrDesc As String Boolean 0 48 0 48 13 134217984 Function LoadSoundFile(ByVal strFilePath As String, ByRef Return_FileContent As Sound, ByRef Return_ErrNum As Integer, ByRef Return_ErrType As String, ByRef Return_ErrDesc As String) As Boolean ' * IMPORTANT : Make sure you set the returned "Sound" object equal to NIL. Otherwise, you will have a memory leak. Dim objFile As FolderItem Dim objStream As Sound ' Set default values Return_FileContent = Nil Return_ErrNum = 0 Return_ErrType = "" Return_ErrDesc = "" ' Get a reference to the file objFile = GetFolderItem(strFilePath) If IsNull(objFile) = True Then Return_ErrNum = -1 Return_ErrType = "RuntimeException" Return_ErrDesc = "Failed to get a reference to the specified file" Return False Else If objFile.LastErrorCode <> 0 Then GetErrorDescription objFile.LastErrorCode, Return_ErrNum, Return_ErrType, Return_ErrDesc Return False ElseIf objFile.Exists = False Then Return_ErrNum = -1 Return_ErrType = "RuntimeException" Return_ErrDesc = "The specified file was not found" Return False End If End If ' Open the file objStream = objFile.OpenAsSound If IsNull(objStream) = True Then Return_ErrNum = -1 Return_ErrType = "RuntimeException" Return_ErrDesc = "Failed to open the specified file" Return False End If ' Return the SOUND object Return_FileContent = objStream ' Clean up objFile = Nil Return True Exception Err As RuntimeException GetErrorInfo Err, Return_ErrNum, Return_ErrType, Return_ErrDesc Return_FileContent = Nil objStream = Nil objFile = Nil End Function 134217984 LoadMovieFile ByVal strFilePath As String, ByVal blnOpenEditable As Boolean, ByRef Return_FileContent As Variant 0 9 16 9 16 134217984 Sub LoadMovieFile(ByVal strFilePath As String, ByVal blnOpenEditable As Boolean, ByRef Return_FileContent As Variant) ' * IMPORTANT : Make sure you set the returned "Movie" / "EditableMovie" object equal to NIL. Otherwise, you will have a memory leak. Dim blnReturn As Boolean Dim intErrNum As Integer Dim strErrType As String Dim strErrDesc As String blnReturn = LoadMovieFile(strFilePath, blnOpenEditable, Return_FileContent, intErrNum, strErrType, strErrDesc) End Sub 134217984 LoadMovieFile ByVal strFilePath As String, ByVal blnOpenEditable As Boolean, ByRef Return_FileContent As Variant Boolean 0 8 11 8 11 134217984 Function LoadMovieFile(ByVal strFilePath As String, ByVal blnOpenEditable As Boolean, ByRef Return_FileContent As Variant) As Boolean ' * IMPORTANT : Make sure you set the returned "Movie" / "EditableMovie" object equal to NIL. Otherwise, you will have a memory leak. Dim intErrNum As Integer Dim strErrType As String Dim strErrDesc As String Return LoadMovieFile(strFilePath, blnOpenEditable, Return_FileContent, intErrNum, strErrType, strErrDesc) End Function 134217984 LoadMovieFile ByVal strFilePath As String, ByVal blnOpenEditable As Boolean, ByRef Return_FileContent As Variant, ByRef Return_ErrNum As Integer, ByRef Return_ErrType As String, ByRef Return_ErrDesc As String Boolean 0 57 0 57 13 134217984 Function LoadMovieFile(ByVal strFilePath As String, ByVal blnOpenEditable As Boolean, ByRef Return_FileContent As Variant, ByRef Return_ErrNum As Integer, ByRef Return_ErrType As String, ByRef Return_ErrDesc As String) As Boolean ' * IMPORTANT : Make sure you set the returned "Movie" / "EditableMovie" object equal to NIL. Otherwise, you will have a memory leak. Dim objFile As FolderItem Dim objStream1 As Movie Dim objStream2 As EditableMovie ' Set default values Return_FileContent = Nil Return_ErrNum = 0 Return_ErrType = "" Return_ErrDesc = "" ' Get a reference to the file objFile = GetFolderItem(strFilePath) If IsNull(objFile) = True Then Return_ErrNum = -1 Return_ErrType = "RuntimeException" Return_ErrDesc = "Failed to get a reference to the specified file" Return False Else If objFile.LastErrorCode <> 0 Then GetErrorDescription objFile.LastErrorCode, Return_ErrNum, Return_ErrType, Return_ErrDesc Return False ElseIf objFile.Exists = False Then Return_ErrNum = -1 Return_ErrType = "RuntimeException" Return_ErrDesc = "The specified file was not found" Return False End If End If ' Open the file If blnOpenEditable = False Then objStream1 = objFile.OpenAsMovie Else objStream2 = objFile.OpenEditableMovie End If If IsNull(objStream1) = True And IsNull(objStream2) = True Then Return_ErrNum = -1 Return_ErrType = "RuntimeException" Return_ErrDesc = "Failed to open the specified file" Return False End If ' Return the MOVIE object If blnOpenEditable = False Then Return_FileContent = objStream1 Else Return_FileContent = objStream2 End If ' Clean up objFile = Nil Return True Exception Err As RuntimeException GetErrorInfo Err, Return_ErrNum, Return_ErrType, Return_ErrDesc Return_FileContent = Nil objStream1 = Nil objStream2 = Nil objFile = Nil End Function 134217984 SaveTextFile ByVal strFilePath As String, ByVal strFileContent As String, ByVal blnOverwriteIfExists As Boolean 0 6 0 6 0 134217984 Sub SaveTextFile(ByVal strFilePath As String, ByVal strFileContent As String, ByVal blnOverwriteIfExists As Boolean) Dim blnReturn As Boolean Dim intErrNum As Integer Dim strErrType As String Dim strErrDesc As String blnReturn = SaveTextFile(strFilePath, strFileContent, blnOverwriteIfExists, intErrNum, strErrType, strErrDesc) End Sub 134217984 SaveTextFile ByVal strFilePath As String, ByVal strFileContent As String, ByVal blnOverwriteIfExists As Boolean, ByRef Return_ErrNum As Integer Boolean 0 6 0 6 0 134217984 Function SaveTextFile(ByVal strFilePath As String, ByVal strFileContent As String, ByVal blnOverwriteIfExists As Boolean, ByRef Return_ErrNum As Integer) As Boolean Dim intErrNum As Integer Dim strErrType As String Dim strErrDesc As String Return SaveTextFile(strFilePath, strFileContent, blnOverwriteIfExists, intErrNum, strErrType, strErrDesc) End Function 134217984 SaveTextFile ByVal strFilePath As String, ByVal strFileContent As String, ByVal blnOverwriteIfExists As Boolean, ByRef Return_ErrNum As Integer, ByRef Return_ErrType As String, ByRef Return_ErrDesc As String Boolean 0 48 0 48 13 134217984 Function SaveTextFile(ByVal strFilePath As String, ByVal strFileContent As String, ByVal blnOverwriteIfExists As Boolean, ByRef Return_ErrNum As Integer, ByRef Return_ErrType As String, ByRef Return_ErrDesc As String) As Boolean Dim objFile As FolderItem Dim objStream As TextOutputStream ' Set default values Return_ErrNum = 0 Return_ErrType = "" Return_ErrDesc = "" ' Get a reference to the file objFile = GetFolderItem(strFilePath) If IsNull(objFile) = True Then Return_ErrNum = -1 Return_ErrType = "RuntimeException" Return_ErrDesc = "Failed to get a reference to the specified file" Return False Else If objFile.LastErrorCode <> 0 Then GetErrorDescription objFile.LastErrorCode, Return_ErrNum, Return_ErrType, Return_ErrDesc Return False ElseIf objFile.Exists = True And blnOverwriteIfExists = True Then objFile.Delete End If End If ' Open the file objStream = objFile.AppendToTextFile ' If the file doesn't exist it will be created. If the file does exist, it will be appended to. If IsNull(objStream) = True Then Return_ErrNum = -1 Return_ErrType = "RuntimeException" Return_ErrDesc = "Failed to open the specified file" Return False ElseIf objStream.LastErrorCode <> 0 Then GetErrorDescription objStream.LastErrorCode, Return_ErrNum, Return_ErrType, Return_ErrDesc Return False End If ' Write out the contents to the file objStream.Write strFileContent objStream.Flush objStream.Close ' Clean up objStream = Nil objFile = Nil Return True Exception Err As RuntimeException GetErrorInfo Err, Return_ErrNum, Return_ErrType, Return_ErrDesc objStream = Nil objFile = Nil End Function 134217984 SaveBinaryFile ByVal strFilePath As String, ByVal blnOverwriteIfExists As Boolean, ByRef Return_BinaryStream As BinaryStream 0 12 0 12 0 134217984 Sub SaveBinaryFile(ByVal strFilePath As String, ByVal blnOverwriteIfExists As Boolean, ByRef Return_BinaryStream As BinaryStream) ' * IMPORTANT : Make sure you call the "Flush", then the "Close" methods after you're done ' writing out to the returned "BinaryStream" object. Then, set the returned ' "BinaryStream" object equal to NIL. Dim blnReturn As Boolean Dim intErrNum As Integer Dim strErrType As String Dim strErrDesc As String blnReturn = SaveBinaryFile(strFilePath, blnOverwriteIfExists, Return_BinaryStream, intErrNum, strErrType, strErrDesc) End Sub 134217984 SaveBinaryFile ByVal strFilePath As String, ByVal blnOverwriteIfExists As Boolean, ByRef Return_BinaryStream As BinaryStream Boolean 0 4 51 4 51 134217984 Function SaveBinaryFile(ByVal strFilePath As String, ByVal blnOverwriteIfExists As Boolean, ByRef Return_BinaryStream As BinaryStream) As Boolean ' * IMPORTANT : Make sure you call the "Flush", then the "Close" methods after you're done ' writing out to the returned "BinaryStream" object. Then, set the returned ' "BinaryStream" object equal to NIL. Dim intErrNum As Integer Dim strErrType As String Dim strErrDesc As String Return SaveBinaryFile(strFilePath, blnOverwriteIfExists, Return_BinaryStream, intErrNum, strErrType, strErrDesc) End Function 134217984 SaveBinaryFile ByVal strFilePath As String, ByVal blnOverwriteIfExists As Boolean, ByRef Return_BinaryStream As BinaryStream, ByRef Return_ErrNum As Integer, ByRef Return_ErrType As String, ByRef Return_ErrDesc As String Boolean 0 51 0 51 13 134217984 Function SaveBinaryFile(ByVal strFilePath As String, ByVal blnOverwriteIfExists As Boolean, ByRef Return_BinaryStream As BinaryStream, ByRef Return_ErrNum As Integer, ByRef Return_ErrType As String, ByRef Return_ErrDesc As String) As Boolean ' * IMPORTANT : Make sure you call the "Flush", then the "Close" methods after you're done ' writing out to the returned "BinaryStream" object. Then, set the returned ' "BinaryStream" object equal to NIL. Dim objFile As FolderItem Dim objStream As BinaryStream ' Set default values Return_BinaryStream = Nil Return_ErrNum = 0 Return_ErrType = "" Return_ErrDesc = "" ' Get a reference to the file objFile = GetFolderItem(strFilePath) If IsNull(objFile) = True Then Return_ErrNum = -1 Return_ErrType = "RuntimeException" Return_ErrDesc = "Failed to get a reference to the specified file" Return False Else If objFile.LastErrorCode <> 0 Then GetErrorDescription objFile.LastErrorCode, Return_ErrNum, Return_ErrType, Return_ErrDesc Return False ElseIf objFile.Exists = True And blnOverwriteIfExists = True Then objFile.Delete End If End If ' Open the file objStream = objFile.CreateBinaryFile("") If IsNull(objStream) = True Then Return_ErrNum = -1 Return_ErrType = "RuntimeException" Return_ErrDesc = "Failed to open the specified file" Return False ElseIf objStream.LastErrorCode <> 0 Then GetErrorDescription objStream.LastErrorCode, Return_ErrNum, Return_ErrType, Return_ErrDesc Return False End If ' Return the created BINARY STREAM Return_BinaryStream = objStream ' Clean up objFile = Nil Return True Exception Err As RuntimeException GetErrorInfo Err, Return_ErrNum, Return_ErrType, Return_ErrDesc objStream = Nil objFile = Nil End Function 134217984 SavePictureFile ByVal strFilePath As String, ByVal objPicture As Picture 0 24 0 24 13 134217984 Sub SavePictureFile(ByVal strFilePath As String, ByVal objPicture As Picture) Dim objFile As FolderItem Dim blnReturn As Boolean ' Get a reference to the file and delete it if it already exists objFile = GetFolderItem(strFilePath) If IsNull(objFile) = True Then Return Else If objFile.LastErrorCode <> 0 Then Return ElseIf objFile.Exists = True Then objFile.Delete End If End If ' Save the picture as a BITMAP objFile.SaveAsPicture objPicture, objFile.SaveAsWindowsBMP ' Clean up objFile = Nil Return Exception Err As RuntimeException objFile = Nil Return End Sub 134217984 ExecuteURL ByVal strAddressOrEmail As String 0 4 0 4 0 134217984 Sub ExecuteURL(ByVal strAddressOrEmail As String) ' This will open the default internet browser or Email client for the specified ' HTTP, HTTPS, FTP, or Email address ShowURL strAddressOrEmail End Sub 134217984 ExecuteFile ByVal strFilePath As String 0 9 0 9 0 134217984 Sub ExecuteFile(ByVal strFilePath As String) ' This function is mean to run EXECUTABLE files (i.e. - *.EXE, *.BAT, *.COM, *.PIF, etc). ' If you need to run a DOS command (i.e. PING, IPCONFIG, DIR, etc), call "ExecuteDosCommand" instead. Dim blnReturn As Boolean Dim intErrNum As Integer Dim strErrType As String Dim strErrDesc As String blnReturn = ExecuteFile(strFilePath, intErrNum, strErrType, strErrDesc) End Sub 134217984 ExecuteFile ByVal strFilePath As String, ByRef Return_ErrNum As Integer, ByRef Return_ErrType As String, ByRef Return_ErrDesc As String Boolean 0 37 0 37 13 134217984 Function ExecuteFile(ByVal strFilePath As String, ByRef Return_ErrNum As Integer, ByRef Return_ErrType As String, ByRef Return_ErrDesc As String) As Boolean ' This function is mean to run EXECUTABLE files (i.e. - *.EXE, *.BAT, *.COM, *.PIF, etc). ' If you need to run a DOS command (i.e. PING, IPCONFIG, DIR, etc), call "ExecuteDosCommand" instead. Dim objShell As Shell Dim strReturn As String Dim intErrCode As Integer ' Set the default values Return_ErrNum = 0 Return_ErrType = "" Return_ErrDesc = "" ' Create the SHELL object, set it up, then execute the file objShell = New Shell objShell.Mode = 1 'Asynchronous objShell.TimeOut = 2000 '2 seconds objShell.Execute strFilePath ' Get the returned buffer and clean up the SHELL object strReturn = objShell.Result intErrCode = objShell.ErrorCode objShell = Nil ' If the returned error was a TIME OUT error... ignore it because that happens when calling any EXECUTABLE file If Left(UpperCase(strReturn), 15) = "SHELL TIMED OUT" Then Return True ElseIf intErrCode < 0 Then Return_ErrNum = intErrCode Return_ErrType = "Unknown" Return_ErrDesc = strReturn Return False Else Return True End If Exception Err As RuntimeException GetErrorInfo Err, Return_ErrNum, Return_ErrType, Return_ErrDesc End Function 134217984 ExecuteDosCommand ByVal strDosCommand As String, ByVal intTimeOutMilliseconds As Integer 0 5 0 5 0 134217984 Sub ExecuteDosCommand(ByVal strDosCommand As String, ByVal intTimeOutMilliseconds As Integer) ' This function is mean to run a DOS command (i.e. PING, IPCONFIG, DIR, etc). ' If you need to run an EXECUTABLE files (i.e. - *.EXE, *.BAT, *.COM, *.PIF, etc), call "ExecuteFile" instead. Dim blnReturn As Boolean Dim strReturn As String Dim intErrNum As Integer Dim strErrType As String Dim strErrDesc As String blnReturn = ExecuteDosCommand(strDosCommand, intTimeOutMilliseconds, strReturn, intErrNum, strErrType, strErrDesc) End Sub 134217984 ExecuteDosCommand ByVal strDosCommand As String, ByVal intTimeOutMilliseconds As Integer, ByRef Return_Text As String, ByRef Return_ErrNum As Integer, ByRef Return_ErrType As String, ByRef Return_ErrDesc As String Boolean 0 41 0 41 13 134217984 Function ExecuteDosCommand(ByVal strDosCommand As String, ByVal intTimeOutMilliseconds As Integer, ByRef Return_Text As String, ByRef Return_ErrNum As Integer, ByRef Return_ErrType As String, ByRef Return_ErrDesc As String) As Boolean ' This function is mean to run a DOS command (i.e. PING, IPCONFIG, DIR, etc). ' If you need to run an EXECUTABLE files (i.e. - *.EXE, *.BAT, *.COM, *.PIF, etc), call "ExecuteFile" instead. Dim objShell As Shell Dim strReturn As String Dim intErrCode As Integer ' Set the default values Return_ErrNum = 0 Return_ErrType = "" Return_ErrDesc = "" ' MS-DOS commands need some time to execute... make sure to give at least 5 seconds If intTimeOutMilliseconds < 5000 Then intTimeOutMilliseconds = 5000 'This is to work around a CRASH when calling the MS-DOS command "DIR" If UpperCase(strDosCommand) = "DIR" Then strDosCommand = "dir /4" ' Create the SHELL object, set it up, then execute the file objShell = New Shell objShell.Mode = 1 'Asynchronous objShell.TimeOut = intTimeOutMilliseconds objShell.Execute strDosCommand ' Get the returned buffer and clean up the SHELL object strReturn = objShell.Result intErrCode = objShell.ErrorCode objShell = Nil ' If the returned error was a TIME OUT error... ignore it because that happens when calling any EXECUTABLE file If intErrCode < 0 Then Return_ErrNum = intErrCode Return_ErrType = "Unknown" Return_ErrDesc = strReturn Return False Else Return True End If Exception Err As RuntimeException GetErrorInfo Err, Return_ErrNum, Return_ErrType, Return_ErrDesc End Function 134217984 SavePictureFile ByVal strFilePath As String, ByVal objPicture As Picture, ByVal strPictureFormat As String, ByVal intPictureQuality As Integer 0 71 0 71 13 134217984 Sub SavePictureFile(ByVal strFilePath As String, ByVal objPicture As Picture, ByVal strPictureFormat As String, ByVal intPictureQuality As Integer) ' IMPORTANT: This function uses QuickTime to save picture in formats other than ' "BMP", "WMF", and "EMF". The user must have QT installed for this ' function to work properly. Dim objExport As QTGraphicsExporter Dim objFile As FolderItem Dim blnReturn As Boolean ' Get a reference to the file and delete it if it already exists objFile = GetFolderItem(strFilePath) If IsNull(objFile) = True Then Return Else If objFile.LastErrorCode <> 0 Then Return ElseIf objFile.Exists = True Then objFile.Delete End If End If ' Validate the picture format strPictureFormat = UpperCase(Trim(strPictureFormat)) If strPictureFormat <> PicFormat_BMP And _ strPictureFormat <> PicFormat_JPEG And _ strPictureFormat <> PicFormat_MacPaint And _ strPictureFormat <> PicFormat_Photoshop And _ strPictureFormat <> PicFormat_PNG And _ strPictureFormat <> PicFormat_TARGA And _ strPictureFormat <> PicFormat_WMF And _ strPictureFormat <> PicFormat_EMF And _ strPictureFormat <> PicFormat_SGI Then strPictureFormat = PicFormat_BMP End If ' Validate picture quality If intPictureQuality <> PicQuality_Lowest And _ intPictureQuality <> PicQuality_Low And _ intPictureQuality <> PicQuality_Normal And _ intPictureQuality <> PicQuality_High And _ intPictureQuality <> PicQuality_Higher And _ intPictureQuality <> PicQuality_Highest Then intPictureQuality = PicQuality_High End If ' Use the "FolderItem" class to save the file where possible If strPictureFormat = PicFormat_BMP Then objFile.SaveAsPicture objPicture, objFile.SaveAsWindowsBMP objFile = Nil Return ElseIf strPictureFormat = PicFormat_WMF Then objFile.SaveAsPicture objPicture, objFile.SaveAsWindowsWMF objFile = Nil Return ElseIf strPictureFormat = PicFormat_EMF Then objFile.SaveAsPicture objPicture, objFile.SaveAsWindowsEMF objFile = Nil Return End If ' Get an instance of the exporter and save the picture objExport = GetQTGraphicsExporter(strPictureFormat) objExport.CompressionQuality = intPictureQuality blnReturn = objExport.SavePicture(objFile, objPicture) ' Clean up objFile = Nil objExport = Nil Return Exception Err As RuntimeException objFile = Nil objExport = Nil Return End Sub 134217984 SavePictureFile ByVal strFilePath As String, ByVal objPicture As Picture, ByVal strPictureFormat As String, ByVal intPictureQuality As Integer, ByRef Return_ErrNum As Integer, ByRef Return_ErrType As String, ByRef Return_ErrDesc As String Boolean 0 80 0 80 13 134217984 Function SavePictureFile(ByVal strFilePath As String, ByVal objPicture As Picture, ByVal strPictureFormat As String, ByVal intPictureQuality As Integer, ByRef Return_ErrNum As Integer, ByRef Return_ErrType As String, ByRef Return_ErrDesc As String) As Boolean ' IMPORTANT: This function uses QuickTime to save picture in formats other than ' "BMP", "WMF", and "EMF". The user must have QT installed for this ' function to work properly. Dim objExport As QTGraphicsExporter Dim objFile As FolderItem Dim blnReturn As Boolean ' Set default values Return_ErrNum = 0 Return_ErrType = "" Return_ErrDesc = "" ' Get a reference to the file objFile = GetFolderItem(strFilePath) If IsNull(objFile) = True Then Return_ErrNum = -1 Return_ErrType = "RuntimeException" Return_ErrDesc = "Failed to get a reference to the specified file" Return False Else If objFile.LastErrorCode <> 0 Then GetErrorDescription objFile.LastErrorCode, Return_ErrNum, Return_ErrType, Return_ErrDesc Return False ElseIf objFile.Exists = True Then objFile.Delete End If End If ' Validate the picture format strPictureFormat = UpperCase(Trim(strPictureFormat)) If strPictureFormat <> PicFormat_BMP And _ strPictureFormat <> PicFormat_JPEG And _ strPictureFormat <> PicFormat_MacPaint And _ strPictureFormat <> PicFormat_Photoshop And _ strPictureFormat <> PicFormat_PNG And _ strPictureFormat <> PicFormat_TARGA And _ strPictureFormat <> PicFormat_WMF And _ strPictureFormat <> PicFormat_EMF And _ strPictureFormat <> PicFormat_SGI Then strPictureFormat = PicFormat_BMP End If ' Validate picture quality If intPictureQuality <> PicQuality_Lowest And _ intPictureQuality <> PicQuality_Low And _ intPictureQuality <> PicQuality_Normal And _ intPictureQuality <> PicQuality_High And _ intPictureQuality <> PicQuality_Higher And _ intPictureQuality <> PicQuality_Highest Then intPictureQuality = PicQuality_High End If ' Use the "FolderItem" class to save the file where possible If strPictureFormat = PicFormat_BMP Then objFile.SaveAsPicture objPicture, objFile.SaveAsWindowsBMP objFile = Nil Return True ElseIf strPictureFormat = PicFormat_WMF Then objFile.SaveAsPicture objPicture, objFile.SaveAsWindowsWMF objFile = Nil Return True ElseIf strPictureFormat = PicFormat_EMF Then objFile.SaveAsPicture objPicture, objFile.SaveAsWindowsEMF objFile = Nil Return True End If ' Get an instance of the exporter and save the picture objExport = GetQTGraphicsExporter(strPictureFormat) objExport.CompressionQuality = intPictureQuality blnReturn = objExport.SavePicture(objFile, objPicture) ' Clean up objFile = Nil objExport = Nil Return blnReturn Exception Err As RuntimeException GetErrorInfo Err, Return_ErrNum, Return_ErrType, Return_ErrDesc objFile = Nil objExport = Nil Return False End Function 134217984 LoadMovieURL ByVal strURL As String, ByRef Return_Movie As Movie 0 11 16 11 16 134217984 Sub LoadMovieURL(ByVal strURL As String, ByRef Return_Movie As Movie) ' * IMPORTANT : This function requires that the user have QuickTime 4 or better installed on their computer ' * IMPORTANT : Make sure you set the returned "Movie" object equal to NIL. Otherwise, you will have a memory leak. Dim blnReturn As Boolean Dim intErrNum As Integer Dim strErrType As String Dim strErrDesc As String blnReturn = LoadMovieURL(strURL, Return_Movie, intErrNum, strErrType, strErrDesc) End Sub 134217984 LoadMovieURL ByVal strURL As String, ByRef Return_Movie As Movie Boolean 0 10 11 10 11 134217984 Function LoadMovieURL(ByVal strURL As String, ByRef Return_Movie As Movie) As Boolean ' * IMPORTANT : This function requires that the user have QuickTime 4 or better installed on their computer ' * IMPORTANT : Make sure you set the returned "Movie" object equal to NIL. Otherwise, you will have a memory leak. Dim intErrNum As Integer Dim strErrType As String Dim strErrDesc As String Return LoadMovieURL(strURL, Return_Movie, intErrNum, strErrType, strErrDesc) End Function 134217984 LoadMovieURL ByVal strURL As String, ByRef Return_Movie As Movie, ByRef Return_ErrNum As Integer, ByRef Return_ErrType As String, ByRef Return_ErrDesc As String Boolean 0 23 0 23 13 134217984 Function LoadMovieURL(ByVal strURL As String, ByRef Return_Movie As Movie, ByRef Return_ErrNum As Integer, ByRef Return_ErrType As String, ByRef Return_ErrDesc As String) As Boolean ' * IMPORTANT : This function requires that the user have QuickTime 4 or better installed on their computer ' * IMPORTANT : Make sure you set the returned "Movie" object equal to NIL. Otherwise, you will have a memory leak. ' Set default values Return_Movie = Nil Return_ErrNum = 0 Return_ErrType = "" Return_ErrDesc = "" ' Attempt to get a reference to the specified URL Return_Movie = OpenURLMovie(strURL) If IsNull(Return_Movie) = True Then Return_ErrNum = -1 Return_ErrType = "RuntimeException" Return_ErrDesc = "Failed to get a reference to movie file at the specified URL" Return False Else Return True End If Exception Err As RuntimeException GetErrorInfo Err, Return_ErrNum, Return_ErrType, Return_ErrDesc Return_Movie = Nil End Function 134217984 PicFormat_BMP 0 BMPf 0 134217984 PicFormat_JPEG 0 JPEG 0 134217984 PicFormat_PNG 0 PNGf 0 134217984 PicFormat_TARGA 0 TPIC 0 134217984 PicFormat_Photoshop 0 8BPS 0 134217984 PicFormat_MacPaint 0 PNTG 0 134217984 PicFormat_SGI 0 .SGI 0 134217984 PicQuality_Lowest 1 0 0 134217984 PicQuality_Low 1 256 0 134217984 PicQuality_Normal 1 512 0 134217984 PicQuality_High 1 768 0 134217984 PicQuality_Higher 1 1023 0 134217984 PicQuality_Highest 1 1024 0 134217984 PicFormat_WMF 0 .WMF 0 134217984 PicFormat_EMF 0 .EMF 0