2

我目前正面临这个 4 人团队的问题。

使用我在kiska网站上下载的二进制文件。我能够将 cobol 编译为 C 并运行它cobcrun或将其编译为可执行文件。但是我无法让 opencobol 找到 postgres 命令。

这是我的 cobol 脚本的策略：

identification division.
program-id. pgcob.
data division.
working-storage section.
01 pgconn usage pointer.
01 pgres usage pointer.
01 resptr usage pointer.
01 resstr pic x(80) based.
01 result usage binary-long.
01 answer pic x(80).

procedure division.
    display "Before connect:" pgconn end-display
    call "PQconnectdb" using
        by reference "dbname = postgres" & x"00"
        by reference "host = 10.37.180.146" & "00"
        returning pgconn
    end-call

...

通话PQconnectdb失败module ont found : PQconnectdb

我注意到，如果我将 libpq.dll 重命名，错误消息会更改为can't find entry point. 所以至少我确定它可以得到我的dll。

在深入研究了libcob库的调用方法的代码之后。我发现可以使用环境变量COB_PRE_LOAD预加载一些 dll，但没有结果。

这是编译 cobol 的脚本：

call "C:\Program Files (x86)\Microsoft Visual Studio 9.0\VC\bin\amd64\vcvarsamd64.bat"
set COB_CONFIG_DIR=C:\OpenCobol\config
set COB_COPY_DIR=C:\OpenCobol\Copy
set COB_LIBS=%COB_LIBS% c:\OpenCobol\libpq.lib
set COB_LIBRARY_PATH=C:\OpenCobol\bin
set COB_PRE_LOAD=C:\OpenCobol\libpq.dll
@echo on
cobc -info
cobc -free -o pgcob -L:"C:\OpenCobol" -llibpq.lib test_cobol\postgres.cob
call cobcrun pgcob

我没有看到任何缺失，我使用的是 kiska 网站的 64 位二进制文​​件，并使用 Visual Studio 的 64 位 cl.exe，Postgres 也是 64 位版本（使用dependencyChecker 检查）。

我什至尝试从 Visual Studio 编译生成的 C，结果相同，但我可能会遗漏一些东西，我在 C 语言中很烂，从来没有真正需要管理 DLL 或使用 Visual Studio。

我错过了什么？

4

1 回答 1

3

COB_PRE_LOAD 不采用任何路径或扩展名，请参阅可用运行时配置的简短文档。我猜

set COB_LIBRARY_PATH=C:\OpenCobol\bin;C:\OpenCobol
set COB_PRE_LOAD=libpq

将工作。如果您没有在其中放置任何其他可执行文件，则可以省略 C:\OpenCobol\bin。

如果它不起作用（即使它起作用），我会尝试在编译时解析 C 函数。要么使用

CALL STATIC "PQconnectdb" using ...

或适当的CALL-CONVENTION或保留程序原样并使用

cobc -free -o pgcob -L"C:\OpenCobol" -llibpq -K PQconnectdb test_cobol\postgres.cob

来自 cobc --help：

-K generate CALL to <entry> as static

一般来说：来自 kiska.net 的二进制文件已经过时了。我强烈建议从官方下载站点获取更新的版本，或者最好从源代码自行构建它们，请参阅使用 VisualStudio 构建 GnuCOBOL 的文档。

于 2016-11-03T19:03:59.253 回答