从 LibreOffice Basic 调用 C 共享库函数

我试图从 LibreOffice Basic 调用 C 共享库函数，但当它到达 Declare 行时，我总是收到“基本运行时错误。未实现”。这只是为了一件有趣的事情，但无法做到这一点让我很烦恼。

Declare 语句如下所示：

Declare Function score_word Lib "libscrabblescore.so" (ByRef word As String, ByRef bonus As String) As Integer

C 函数声明如下所示：

int score_word(char* word, char* word_bonuses)

（也许 ByRef word As String 不是 char* 单词的正确翻译？我找不到有关如何在 LibreOffice Basic 中的函数中使用 char* 参数的文档。）

我通过使用 Python 的 ctypes 模块调用共享库本身来验证它：

>>> from ctypes import CDLL
>>> lib = CDLL("/usr/lib/libscrabblescore.so")
>>> lib.score_word("qi", "dw dlq")
42
>>> 

（所以我有“生命、宇宙和一切终极问题的答案”，只是不知道如何在 LibreOffice Basic 中做到这一点！）

我也尝试在 Declare 语句中使用绝对路径，但没有什么区别。

我发现了一个关于调用 DLL 主题的 Windows 线程，提问者说他​​需要将 DLL 放在特定位置（LibreOffice bin 目录），以便 LibreOffice 可以访问它。 Linux 上本身没有 LibreOffice bin 目录，不幸的是，我能够在我的机器上识别出 351 个候选目录（我的路径，以及名称中带有“libreoffice”的所有文件夹或位于名字）。

我尝试了一种猎枪方法，并在所有 351 个目录中放置了一个指向共享库的符号链接，但随后 Calc 在启动时挂起。所以我删除了它们，启动了 Calc，然后将它们全部放回原处并尝试了该功能。如果它是一个位置问题，您会认为这会起作用，因为 LibreOffice Basic 应该在声明时加载库。还是没有运气。

在 oooforums 上有一些看起来很有希望的东西，但当我尝试查看该帖子时，该网站超时了。 （编辑：今晚我设法查看了该线程，这是 Windows 安全问题。我关闭了 LibreOffice 中的所有宏安全性，但问题仍然存在。）

那么，是否有人成功地从 LibreOffice Basic 程序调用了 C 共享库函数，并且知道我做错了什么？谢谢！

乔纳森·莱因哈特是正确的；用于调用共享库的“Declare”命令在 Windows 上实现，但在 Linux 上未实现。我之所以能够验证这一点，是因为在博客文章中引用了有关该问题的 OpenOffice 错误报告。

我第一次尝试解决方案是在 LibreOffice Basic 中重写该函数。它有效，但最多需要 3 秒才能返回结果。

我想过放弃，就这样离开，但三秒钟的等待太不愉快了。我研究了如何通过 UNO 实现 C++ 函数，这对于相当琐碎的任务来说过于复杂。

最后我所做的是编写一个仍然给出“即时”结果的拼凑（每个函数调用大约 0.025 秒）。

我将 DLL 重写为 C++ 控制台应用程序，它接受命令行参数并将结果写入临时文件。然后，我将 LibreOffice Basic 代码替换为一个函数，该函数使用 Shell 以阻塞模式调用 C++ 控制台应用程序，并从文件中检索结果。它很丑陋，但它不是多用户的东西，而且它可以工作。

如果有人自己偶然发现这个问题，这里是我用来执行此操作的 LibreOffice Basic 代码 - 它非常简单。

option explicit

function scorewords(wordlist as string, bonuslist as string) as integer
   dim cparams as string
   dim fileno as integer
   dim results_file as string
   dim score as integer

   if wordlist = "" then
       scorewords = 0
       exit function
   end if

   cparams = """" + wordlist + """" + " " + """" + bonuslist + """"
   results_file = "/tmp/scrabblescore.dat"
   Shell("/usr/bin/getscrabblescore", 6, cparams, true)

   fileno = freefile
   open results_file for input as fileno
   input #fileno, score
   close #fileno

   kill results_file

   scorewords = score
end function