LOCK

• 来源: https://www.freebasic.net/wiki/wikka.php?wakka=KeyPgLock
• 最后更新: 2017-11-21

---

限制对文件或文件部分的读/写访问

语法

Lock #filenum, record
Lock #filenum, start To end

参数

filenum

用于 Open 文件的文件号。

record

要锁定的记录（Random 文件）。

start

要锁定的起始字节位置（Binary 文件）。

end

要锁定的结束字节位置（Binary 文件）。

说明

Lock 临时限制其他线程或程序对文件或文件部分的访问，通常用于允许安全写入。

修改数据后，应以与 Lock 相同的参数发出 Unlock。

注意：此命令并不总是按文档或预期工作。它目前似乎存在问题。

示例

start GeSHi

'' e.g. locking a file, reading 100 bytes, and unlocking it.
'' To run, make sure there exists a file called 'file.ext'
'' in the current directory that is at least 100 bytes.

Dim array(1 To 100) As Integer
Dim f As Integer, i As Integer
f = FreeFile
Open "file.ext" For Binary As #f
Lock #f, 1 To 100
For i = 1 To 100
    Get #f, i, array(i)
Next
Unlock #f, 1 To 100
Close #f

end GeSHi

与 QB 的差异

• 目前，FB 无法隐式锁定整个文件
• 在 Random 模式下，FB 无法锁定一段记录范围

另请参阅

• Open
• Unlock
• ScreenLock

返回 目录