创建ABL客户端以使用REST Web服务

Question

我没有找到任何有关从进程中连接到REST Web服务的文档。有人能指点我的文件的方向或提供一个连接的例子。

进展：11.3

Answer 1

与11.5.1开始有内置的支持，以可控的方式使用REST Web服务。但既然你不在那个版本上，我现在将保留为。

除非升级是一种选择，你可以做几件事情：

呼叫一个OS程序HTTP像卷曲或wget的

如何做到这一点正是将取决于选择的效用，操作系统版本等等。还有人建议os更新可能会改变行为。

此外，你应该看看错误重定向等之前这样做。调用OS会创建第二个进程，因此可能会影响系统资源。只有在考虑到这些因素的情况下才能使用。

另一方面它很容易和快速。 Curl也非常灵活，并且可以帮助您使用任何标题或其他内容。

您也可以直接调用curl库来代替。请注意，在这种情况下，您将严重依赖mempointers和其他c-like结构！

PROCEDURE curl: 
    DEFINE INPUT PARAMETER pcUrl  AS CHARACTER NO-UNDO. 
    DEFINE OUTPUT PARAMETER pcResponse AS LONGCHAR NO-UNDO. 

    DEFINE VARIABLE cCommand AS CHARACTER NO-UNDO. 

    /* -s is for silent use - show no errors or feedback on the screen */ 
    cCommand = "curl -s " + pcUrl + " > /tmp/curl.txt". 

    OS-COMMAND NO-CONSOLE VALUE(cCommand). 

    COPY-LOB FROM FILE "/tmp/curl.txt" TO pcResponse . 
END. 

DEFINE VARIABLE lc AS LONGCHAR NO-UNDO. 

run curl("http://www.google.com/", OUTPUT lc). 

MESSAGE STRING(SUBSTRING(lc,1,100)) VIEW-AS ALERT-BOX. 

使用.NET类

我在.net中没有的知识，所以我不能帮你这个代码。您将不得不研究如何在.Net中调用Web服务，然后将其“翻译”为ABL。这仅适用于Windows - 进程不支持Mono或其他操作系统中的.net。

推出自己的使用套接字

从无耻被盗例如：Progress Knowledgebase。

DEFINE VARIABLE vcHost  AS CHARACTER INITIAL "localhost" NO-UNDO. 
DEFINE VARIABLE vcPort  AS CHARACTER INITIAL "8080"  NO-UNDO. 
DEFINE VARIABLE vhSocket AS HANDLE        NO-UNDO. 


CREATE SOCKET vhSocket. 
vhSocket:CONNECT('-H ' + vcHost + ' -S ' + vcPort) NO-ERROR. 

IF vhSocket:CONNECTED() = FALSE THEN 
DO: 
    MESSAGE "Connection failure" VIEW-AS ALERT-BOX. 

    MESSAGE ERROR-STATUS:GET-MESSAGE(1) VIEW-AS ALERT-BOX. 
    RETURN. 
END. 
ELSE 
    MESSAGE "Connect" 
     VIEW-AS ALERT-BOX. 

vhSocket:SET-READ-RESPONSE-PROCEDURE('getResponse'). 
/* supposes there is an webspeed app called yourapp.w that receives param1, param2, param3 */ 
RUN PostRequest (
    INPUT '/scripts/cgiip.exe/WService=wsbroker1/yourApp.w', 
    INPUT 'param1=value&param2=value&param3=value' 
    ). 

WAIT-FOR READ-RESPONSE OF vhSocket. 
vhSocket:DISCONNECT() NO-ERROR. 
DELETE OBJECT vhSocket. 
QUIT. 

PROCEDURE getResponse: 
    DEFINE VARIABLE vcWebResp AS CHARACTER  NO-UNDO. 
    DEFINE VARIABLE lSucess  AS LOGICAL   NO-UNDO. 
    DEFINE VARIABLE mResponse AS MEMPTR   NO-UNDO. 

    IF vhSocket:CONNECTED() = FALSE THEN do: 
     MESSAGE 'Not Connected' VIEW-AS ALERT-BOX. 
     RETURN. 
    END. 
    lSucess = TRUE. 

    DO WHILE vhSocket:GET-BYTES-AVAILABLE() > 0: 

     SET-SIZE(mResponse) = vhSocket:GET-BYTES-AVAILABLE() + 1. 
     SET-BYTE-ORDER(mResponse) = BIG-ENDIAN. 
     vhSocket:READ(mResponse,1,1,vhSocket:GET-BYTES-AVAILABLE()). 
     vcWebResp = vcWebResp + GET-STRING(mResponse,1). 
    END. 
    /* 
    *PUT HERE THE CODE TO MANIPULATE THE ANSWER 
    */ 

END. 
PROCEDURE PostRequest: 
    DEFINE VARIABLE vcRequest  AS CHARACTER. 
    DEFINE VARIABLE mRequest  AS MEMPTR. 
    DEFINE INPUT PARAMETER postUrl AS CHAR. 
    /* URL that will send the data. It must be all the path after the server. IE:/scripts/cgiip.exe/WService=wsbroker1/myApp.htm */ 
    DEFINE INPUT PARAMETER postData AS CHAR. 
    /* Parameters to be sent in the format paramName=value&paramName=value&paramName=value */ 
    vcRequest = 
     'POST ' + 
     postUrl + 
     ' HTTP/1.0~r~n' + 
     'Content-Type: application/x-www-form-urlencoded~r~n' + 
     'Content-Length:' + string(LENGTH(postData)) + 
     '~r~n' + '~r~n' + 
     postData + '~r~n'. 

    MESSAGE vcREquest 
     VIEW-AS ALERT-BOX. 

    SET-SIZE(mRequest)   = 0. 
    SET-SIZE(mRequest)   = LENGTH(vcRequest) + 1. 
    SET-BYTE-ORDER(mRequest)  = BIG-ENDIAN. 
    PUT-STRING(mRequest,1)  = vcRequest . 

    vhSocket:WRITE(mRequest, 1, LENGTH(vcRequest)). 
END PROCEDURE.