Question

我正在使用IHttpRequest向必须创建消息的服务发送请求。此时，Progress过程一直持续，直到它收到来自服务的请求，而它应该继续。（火与忘记原则）

这是我用来调用服务的类：

USING Progress.Lang.*.

USING OpenEdge.Net.HTTP.ClientBuilder.
USING OpenEdge.Net.HTTP.IHttpRequest.
USING OpenEdge.Net.HTTP.IHttpResponse.
USING OpenEdge.Net.HTTP.RequestBuilder.
USING Progress.Json.ObjectModel.JsonObject.

BLOCK-LEVEL ON ERROR UNDO, THROW.

CLASS TOOLS.externals.zato.SendDesadv: 

    DEFINE VARIABLE baseURL     AS CHARACTER     NO-UNDO.
    DEFINE VARIABLE servicePath AS CHARACTER     NO-UNDO INITIAL send/json".
    DEFINE VARIABLE serviceURL  AS CHARACTER     NO-UNDO.
    DEFINE VARIABLE oRequest    AS IHttpRequest  NO-UNDO.
    DEFINE VARIABLE oResponse   AS IHttpResponse NO-UNDO.
    DEFINE VARIABLE input_json  AS JsonObject    NO-UNDO.

    CONSTRUCTOR PUBLIC SendDesadv ( INPUT wave_nr AS INTEGER ):            
        input_json = NEW JsonObject().
        input_json:Add("wave_nr", wave_nr).
        invokeZato(input_json).        
    END CONSTRUCTOR.

    METHOD PUBLIC VOID invokeService( INPUT input_json AS JsonObject ):
        setServiceUrl().

        SESSION:DEBUG-ALERT = TRUE.
        oRequest = RequestBuilder:Put(serviceURL, input_json)
           :AcceptJson()
           :REQUEST.
        oResponse = ClientBuilder:Build():Client:Execute(oRequest).
    END METHOD.

    METHOD PUBLIC VOID setBaseUrl(  ):
        IF LENGTH(PDBNAME(2)) = 3
            THEN baseURL = "http://foo".
        ELSE baseURL = "http://bar".

    END METHOD.

    METHOD PUBLIC VOID setServiceUrl(  ):       
        setBaseUrl().
        serviceUrl = baseUrl + servicePath.
    END METHOD. 
END CLASS.

我已经尝试过离开oResponse = ClientBuilder:Build():Client:Execute(oRequest).，但之后什么都没发送。

我怎么能在这里使用“火与忘记”原则？

提前致谢。

Answer 1

我知道这已经很晚了 - 但我为了未来的搜索者的利益而加上这个。

如果您有AppServer，可以在那里进行异步运行。（如果你愿意，甚至可以在流程结束时得到回复。）

如果时间不重要，还有其他可能性 - 例如将请求添加到队列并使用单独的进程来监视该队列。我正在考虑建立一个IPC机制来告诉后台监视器它现在应该看起来，从而最小化队列和出队之间的滞后时间。

Answer 2

据我所知，不可能与IHttpRequest进行异步通信。一个巨大的劣势！

可能的解决方法可能是使用curl或wget等操作系统实用程序来代替调用。有一些方法可以使os调用异步。然而，它们将产生新的程序（而不仅仅是新的程序）。

在Windows中你可以这样做：

OS-COMMAND VALUE("dir") NO-WAIT.

在Unix / Linux中你可以做到

OS-COMMAND VALUE("ls &").

然而，这将引入新的问题：如何输入/输出数据到wget / curl，如何处理“停留”程序，可能更高的系统负载等。

在Progress OpenEdge中发送没有响应的HttpRequest

2 个答案: