PowerBuilder中如何设置超时以终止DLL函数的长时间执行？

针对你遇到的第三方DLL调用阻塞导致应用挂起的问题，核心解决思路是将DLL调用放到独立子线程中执行，主线程做超时等待，具体实现步骤如下：

1. 封装线程化的DLL调用 #

创建一个继承自nonvisualobject的用户对象（例如命名为n_thread_dll_call），用来隔离DLL调用的线程逻辑：

• 声明DLL函数（和原声明一致）：

  FUNCTION long GET_SERVICE_FILE(param list..) LIBRARY "PB_GET_SERVICE_DATA.dll" alias for "GET_SERVICE_FILE;Ansi"
  

• 添加实例变量，用于标记线程状态和存储返回值：

  boolean ib_thread_done = false
  long il_result
  

• 添加线程执行函数（必须是public、返回long、无参数）：

  public function long of_execute() returns long
      il_result = GET_SERVICE_FILE(你的实际参数列表)
      ib_thread_done = true
      return 0
  end function
  

2. 主线程实现超时等待逻辑 #

在需要调用DLL的脚本（窗口按钮点击、事件脚本等）中，编写以下逻辑：

• 声明变量：

  n_thread_dll_call inv_dll_thread
  long ll_timeout = 30000 // 自定义超时时间，单位毫秒，示例为30秒
  long ll_start_time, ll_elapsed_time
  

• 初始化并启动线程：

  inv_dll_thread = create n_thread_dll_call
  // 异步启动线程执行DLL调用
  inv_dll_thread.Post("of_execute")
  

• 循环等待并检查超时：

  ll_start_time = cpu()
  do while not inv_dll_thread.ib_thread_done
      ll_elapsed_time = cpu() - ll_start_time
      if ll_elapsed_time >= ll_timeout then
          messagebox("提示", "DLL调用超时，将继续后续操作")
          exit
      end if
      yield() // 释放CPU，避免主线程假死
      sleep(100) // 每100毫秒检查一次状态，可按需调整
  loop
  

• 后续处理：

  if inv_dll_thread.ib_thread_done then
      // 线程正常完成，根据返回值处理结果
      if inv_dll_thread.il_result = 0 then
          messagebox("提示", "文件生成成功")
      else
          messagebox("提示", "文件生成失败，返回码：" + string(inv_dll_thread.il_result))
      end if
  end if
  destroy inv_dll_thread
  

注意事项 #

• 线程安全：如果DLL涉及数据库连接、共享文件等资源，需确保线程间资源访问不会冲突，必要时添加同步逻辑。
• 线程终止风险：超时后若线程仍在后台运行，直接销毁对象可能引发内存泄漏或异常。PowerBuilder无原生线程终止API，若需强制终止可调用Windows API TerminateThread，但这种方式可能导致资源无法释放，优先建议联系DLL提供商优化函数性能。
• 参数传递：传递字符串、结构体等复杂参数时，需确保线程内参数的内存有效性，避免访问错误。

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