Openedge 使用 Windows 服务名连接端口

Question

我正在尝试编写一个程序来测试 Linux 端口以查看它是否正在侦听。该程序在 Windows 框上运行，端口号可以是可变的，具体取决于所选的服务。我需要使用 Windows 服务文件查找端口号。以下是我的程序：

define input parameter ip-network-id as char no-undo.
DEFINE VARIABLE hSocket AS HANDLE NO-UNDO.
DEFINE VARIABLE cService AS CHARACTER NO-UNDO.
DEFINE VARIABLE cHostName AS CHARACTER NO-UNDO.
DEFINE VARIABLE lResult AS LOGICAL NO-UNDO.

CREATE SOCKET hSocket.

GET-KEY-VALUE SECTION "DATABASE" KEY "dbhostname" VALUE cHostName.

ASSIGN
cService = "txipd" + ip-network-id /*ip-network-id = "fis" */
lResult = hSocket:CONNECT("-H " + cHostName + " -S " + cService) NO-ERROR.

IF lResult THEN do:
    MESSAGE cHostName "is accepting Cilent/Server connections on" cService " ."
    VIEW-AS ALERT-BOX INFO BUTTONS OK.

    /* Once done with the database disconnect and delete the object */
    hSocket:DISCONNECT() NO-ERROR.
    DELETE OBJECT hSocket NO-ERROR.
end.
Else
    MESSAGE "The Database is not listening on this port" cService lResult cHostName
    VIEW-AS ALERT-BOX INFO BUTTONS OK.

我的 Windows 服务文件包含以下条目：

txipdfis        31357/tcp

ip-network-id 可能等于从浏览器中选择的多个选项之一，服务 txipdfis 可能位于不同的端口号上，具体取决于特定安装的设置方式，因此我需要查找 "txipdfis"在 Windows 服务文件中确定正确的端口号。这可能吗？

Answer 1

windows 服务文件的最后一行没有空行。一旦我在最后用 CRLF 更新了服务文件，我就能够连接了。

Openedge 使用 Windows 服务名连接端口

Openedge use Windows service name to connect to port

sockets

windows-services

progress-4gl

openedge