QB64环境下将Windows库调用转为POSIX实现Linux兼容

没问题，我帮你把这段Windows专属的QB64代码改成兼容Linux的版本，同时保留Windows平台的原有功能。核心思路是利用QB64的预编译指令区分平台，分别调用Windows API和POSIX标准函数来处理文件属性。

核心差异说明 #

Windows用GetFileAttributes/SetFileAttributes API管理文件属性，而Linux（POSIX）系统对应的是stat()（获取文件状态）和chmod()（修改权限）函数。我们需要针对两个平台分别实现逻辑，同时保持代码的统一性。

完整跨平台代码 #

' 跨平台文件属性设置示例
$IF WIN = 1 THEN
    DECLARE LIBRARY
        FUNCTION GetFileAttributes& (f$)
        FUNCTION SetFileAttributes& (f$, BYVAL a&)
    END DECLARE
$ELSE
    ' POSIX标准函数声明
    DECLARE LIBRARY
        FUNCTION stat& (BYVAL path AS STRING, BYVAL buf AS OFFSET)
        FUNCTION chmod& (BYVAL path AS STRING, BYVAL mode AS LONG)
    END DECLARE

    ' POSIX stat结构体定义（匹配QB64数据类型）
    TYPE stat_struct
        st_dev AS LONG
        st_ino AS LONG
        st_mode AS INTEGER
        st_nlink AS SHORT
        st_uid AS SHORT
        st_gid AS SHORT
        st_rdev AS LONG
        st_size AS LONG
        st_blksize AS LONG
        st_blocks AS LONG
        st_atime AS LONG
        st_mtime AS LONG
        st_ctime AS LONG
    END TYPE
$END IF

DIM ASCIIZ AS STRING * 260
DIM Attribute AS LONG
Filename$ = "TESTFILE.DAT"

IF _FILEEXISTS(Filename$) THEN
    ASCIIZ = Filename$ + CHR$(0) ' 确保字符串以null结尾，兼容C风格函数

    $IF WIN = 1 THEN
        ' Windows平台逻辑
        Attribute = GetFileAttributes(ASCIIZ)
        Attribute = Attribute OR &H01 ' 设置只读位
        x = SetFileAttributes(ASCIIZ, Attribute)
    $ELSE
        ' Linux/POSIX平台逻辑
        DIM file_stat AS stat_struct
        ' 获取当前文件状态
        IF stat(ASCIIZ, OFFSET(file_stat)) = 0 THEN
            ' 去掉所有写权限，实现只读效果（对应Windows的只读属性）
            ' 保留原有读权限，移除用户、组、其他的写权限
            Attribute = file_stat.st_mode AND NOT (&H800 OR &H200 OR &H080)
            ' 或者直接设置为全只读权限：Attribute = &H1A4 ' 对应八进制0o444
            x = chmod(ASCIIZ, Attribute)
        ELSE
            x = -1 ' 获取状态失败
        END IF
    $END IF

    IF x = 0 THEN
        PRINT "Error setting attributes."
    ELSE
        PRINT "Successfully set file attributes."
    END IF
ELSE
    PRINT "File does not exist."
END IF

关键细节解释 #

• 平台区分：用QB64的$IF WIN = 1预编译指令自动识别Windows，$ELSE处理Linux/POSIX平台
• 字符串处理：统一使用ASCIIZ字符串加CHR$(0)，确保符合C风格函数的null终止要求
• 权限映射：
  • Windows的&H01只读位，对应Linux中移除文件的所有写权限（NOT (&H800 OR &H200 OR &H080)，分别对应用户、组、其他的写位）
  • 如果你想直接设置全只读权限，也可以用八进制0o444的十六进制值&H1A4
• 错误处理：两个平台的函数返回值逻辑略有不同，Windows中SetFileAttributes返回0表示失败，POSIX的chmod返回0表示成功，代码里已经做了适配

移除Windows限制 #

你原来的平台限制代码可以替换成上面的跨平台逻辑，这样程序会自动在Windows和Linux下运行对应的代码分支，不需要强制终止Linux用户的运行。

内容的提问来源于stack exchange，提问作者eoredson