Tweet
SUB Killer(sFileName AS STRING, result AS LONG, OPTIONAL BYVAL Time_Out AS LONG)
LOCAL PausePerLoopInMilliseconds AS LONG
LOCAL TimeWaited AS LONG
PausePerLoopInMilliseconds = 100
DO
ERRCLEAR
KILL sFileName
IF ERR = 0 OR ERR = 53 THEN EXIT DO
IF TimeWaited => Time_Out THEN EXIT DO
SLEEP PausePerLoopInMilliseconds
TimeWaited = TimeWaited + PausePerLoopInMilliseconds
LOOP
result = ERR
END SUB
' ---------------------------------------------------
' OPEN A FILE Which will be deleted on close
' when closed with TempFile_Close
' ----------------------------------------------------
' returns: hFile, a PB handle ready for use in specified mode; %NULL on failure
' modes: "BINARY","RANDOM", "INPUT"
' opening for Output makes no sense since file will be deleted as soon as it's closed.
FUNCTION Tempfile_Open ( szFilename AS ASCIIZ, OpenMode AS STRING, OPTIONAL RecLen AS LONG) AS LONG
LOCAL dwAccess as DWORD, dwShare AS DWROD, lpSecurity as DWORD, dwCreate AS DWORD, hTemplate AS DWORD
LOCAL dwFlags AS DWORD, hSYS AS DWORD
dwFlags = %NULL ' initialize
SELECT CASE lcase$(OpenMode)
CASE "random"
dwAccess = %GENERIC_READ OR %GENERIC_WRITE
dwFlags = %FILE_FLAG_RANDOM_ACCESS
dwCreate = %OPEN_ALWAYS
CASE "binary"
dwAccess = %GENERIC_READ OR %GENERIC_WRITE
dwCreate = %OPEN_ALWAYS
CASE "input"
dwAccess = %GENERIC_READ
dwCreate = %OPEN_EXISTING
END SELECT
dwShare = %NULL ' temp/work file, no sharing needed.
lpSecurity = %NULL ' or VARPTR (Security_Attributes var)
dwFlags = dwFlags OR %FILE_FLAG_DELETE_ON_CLOSE ' [b]so it's deleted on close[/b]
hTemplate = %NULL ' because it has to be %NULL
hSys = CreateFile (szFilename, dwAccess, dwShare,BYVAL lpSecurity, dwCreate, dwFlags, hTemplate)
IF hSys <> %INVALID_HANDLE_VALUE THEN ' open Succeeded
hFile = FREEFILE ' get PB handle and open
SELECT CASE lcase$ (OPenMOde)
CASE "binary"
OPEN HANDLE hSys FOR BINARY AS hFile
CASE "random"
OPEN HANDLE hSys FOR RANDOM AS hFile LEN=RecLen
CASE "input"
OPEN HANDLE hSys FOR INPUT AS hFile
END SELECT
ELSE
' Oops open failed!
hfile = %NULL
END IF
FUNCTION = hFile
END FUNCTION
FUNCTION TempFile_Close (BYVAL hFile AS LONG) AS LONG
LOCAL hSys AS LONG
hSys = FILEATTR (hFile, 2) ' get system handle for this PB handle
CLOSE hFile ' close PB handle
CloseHandle hSys ' close underlying system handle, which will delete the file
END FUNCTION
FUNCTION whatever...
LOCAL szPrefix AS ASCIIZ * 4 ' only three characters max are ever used
LOCAL szTempFile AS ASCIIZ * %MAX_PATH
szPrefix = "~mm" ' see support function below
CALL GetTempFileName(szPrefix) TO szTempFile
OpenMode = "BINARY"
hFile = TempFile_OPen (szTempFile, openmode)
....
' ----------------------------------------------------------
' Do stuff with the temp file using the supported verbs
' for BINARY opens: SEEK, PUT, PUT$, GET, GET$
' ---------------------------------------------------------
TempFile_Close hFile ' done with workfile, close with auto-delete
....
'' ----- FOR SEQUENTIAL WORKFILE -------
' Create a file ready to write to
szPrefix = "~sw"
CALL GetTempFileName (szPrefix) TO szTempFile
' -----------------------------------------
' cannot open for autodelete, since we won't be able to get our data back!
' so use standard PB open:
hFile = FREEFILE
OPEN szTempFile FOR OUTPUT AS hFIle
-------------------------------------
' write work records to file using supported verbs
' for OUTPUT opens: PRINT#, WRITE#
' ------------------------------------
CLOSE hFile ' will not be deleted
' Read back the file, opening for auto-delete
OpenMode = "INPUT"
hFile = TempFile_open (szTempFile, openMode)
'-----------------------------------------------
' read back the data using supported verbs
' for INPUT opens: LINE INPUT#, INPUT#
' -----------------------------------------------
TempFile_Close hFile ' close with auto-delete
END FUNCTION
' ------------------------------------------------------------------------
' Get a uniquely-named file in the user's designated temporary directory
' ------------------------------------------------------------------------
FUNCTION GetTempFileName (szPrefix AS ASCIIZ) AS STRING
' returns: Name of temp file to use (fully-qualified); in user's "temp" directory
' other = System error number
LOCAL szTempPath AS ASCIIZ * %MAX_PATH, sTempFile AS STRING
LOCAL iStat AS LONG
sTempFile = "" default
' get user's designated temp folder:
iStat = GetTempPath(SIZEOF(szTempPath), szTempPath)
IF ISTRUE iStat THEN ' GetTempPathSucceeded
sTempFile = STRING$(0, %MAX_PATH) ' create buffer for name
' get a unique file name in that folder
iStat = GetTempFileName (szTempPath, szPrefix, 0&, BYVAL STRPTR(sTempFile)
IF ISTRUE iStat THEN ' succeeded
FUNCTION = RTRIM$(sTempFile, $NULL) ' remove excess nulls from string
ELSE ' GetTempFilename failed
sTempFile = "" ' oops, reset!
END IF
END IF
FUNCTION = sTempFile ' return name (null string on failure)
END FUNCTION
Comment