如何在TCL中借助twapi的FREE_LIBRARY释放已加载的Python pyd库？

问题背景 #

我在Python中加载了一个pyd库，需要在第二次调用前将其卸载，实现代码如下：

import ctypes, _ctypes

dll = ctypes.CDLL('path_to_file')
try:
    _ctypes.FreeLibrary(dll._handle)
    _ctypes.FreeLibrary(dll._handle)
except:
    pass

我了解到FREE_LIBRARY是twapi的一部分，但不清楚如何在TCL中实现相同的库卸载操作，希望得到帮助。

解决方案 #

借助twapi扩展可以实现对应的库卸载操作，步骤如下：

1. 先确保twapi已加载（若未自动加载，手动执行加载）：

package require twapi

2. 加载目标动态库并获取句柄：

set dll_handle [twapi::load_library "path_to_file"]

3. 执行库卸载操作（和Python逻辑一致，调用两次free_library处理引用计数）：

try {
    twapi::free_library $dll_handle
    twapi::free_library $dll_handle
} on error {e} {
    # 忽略卸载过程中的错误
}

说明 #

• twapi::load_library 对应Python中的ctypes.CDLL，负责加载动态库并返回其句柄
• twapi::free_library 对应Python中的_ctypes.FreeLibrary，用于释放库的引用
• 连续调用两次卸载是因为部分库加载后引用计数会被递增两次，需要两次调用才能彻底释放，和你Python代码中的逻辑匹配

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