PowerBuilder中如何以ReadWrite模式使用FileOpen函数并复用句柄？

嘿，我来帮你搞定这两个PowerBuilder文件操作的问题，刚好我在项目里也遇到过类似需求：

1. 如何以ReadWrite模式使用FileOpen函数？ #

首先得明确一点：PowerBuilder原生的FileOpen()函数并没有提供直接的ReadWrite模式选项，它的模式参数只有Read!、Write!、Append!这些单一方向的选项。不过我们可以通过调用Windows系统API来绕开这个限制，实现同一个句柄下的读写操作。

具体做法是用CreateFileA这个API来打开文件，获取具备读写权限的句柄，之后就可以用PB自带的FileRead()、FileWrite()等函数来操作这个句柄了。下面是完整的代码示例：

首先在你的窗口或全局函数里声明外部API：

FUNCTION ulong CreateFileA(string lpFileName, ulong dwDesiredAccess, ulong dwShareMode, ulong lpSecurityAttributes, ulong dwCreationDisposition, ulong dwFlagsAndAttributes, ulong hTemplateFile) LIBRARY "kernel32.dll"

然后是调用代码：

ulong ll_file_handle
string ls_file_path = "C:\your_file.txt"

// 打开文件，同时请求读和写权限
// 0x80000000 = GENERIC_READ，0x40000000 = GENERIC_WRITE
// 3 = OPEN_EXISTING（打开已存在的文件，若不存在则失败）
ll_file_handle = CreateFileA(ls_file_path, 0x80000000 | 0x40000000, 0, 0, 3, 0x80, 0)

IF ll_file_handle <> 4294967295 THEN // 4294967295是INVALID_HANDLE_VALUE的ulong表示
    // 先执行读操作
    string ls_content
    FileRead(ll_file_handle, ls_content)
    MessageBox("读取内容", ls_content)
    
    // 将文件指针移回开头（如果需要覆盖写入的话）
    FileSetPos(ll_file_handle, 0, FromBeginning!)
    
    // 执行写操作
    FileWrite(ll_file_handle, "更新后的内容")
    
    // 记得关闭文件句柄
    FileClose(ll_file_handle)
ELSE
    MessageBox("错误", "文件打开失败")
END IF

2. 是否存在方法让FileOpen函数支持ReadWrite模式？ #

很遗憾，PowerBuilder原生的FileOpen()函数确实没有提供ReadWrite模式的参数选项，没办法直接修改或扩展它来支持这个功能。不过上面提到的Windows API替代方案，完全可以满足你“用同一个文件句柄完成读写操作”的需求，本质上就是绕过FileOpen()，直接用系统API获取具备读写权限的句柄，再配合PB的文件操作函数使用。

另外补充一点：如果你的场景不需要同时保持读写句柄，也可以先以Read!模式打开读，关闭后再以Write!模式打开写，但这种方式显然不如同一个句柄操作高效，也容易出现文件锁定的问题，所以更推荐用API的方案。

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