topic-40896

Posts: 6983

Joined: Fri Oct 07, 2005 07:07 PM

Request FW WEBSERVICE
Posted: Tue Oct 05, 2021 03:35 PM

Dear Antonio,
I try to reach the mod harbour websercice.

http://www.modharbour.org/modharbour_sa ... ervice.prg

But my program errors out.

Can you please help me?
Best regards,
Otto

[ 2] = U nil
called from: CHARACTER:__OPPLUS, line: 0
called from: ..\source\exec.prg, INLINEPRG, line: 103
called from: pcode.hrb, MAIN, line: 53
called from: HB_HRBDO, line: 0
called from: ..\source\exec.prg, EXECUTE, line: 70

Code (fw): Select all Collapse

#define HB_CURLOPT_POST                      47
#define HB_CURLOPT_URL                        2
#define HB_CURLOPT_DL_BUFF_SETUP              1008
#define HB_CURLOPT_POSTFIELDS                 15


function main()
    
    TEMPLATE
        <!DOCTYPE html>
        <html lang="en">
        <head>
            <meta charset="UTF-8">
            <title>Basic test CURL mod_harbour</title>
            <script src="https://ajax.googleapis.com/ajax/libs/jquery/3.4.1/jquery.min.js"></script>
            <link rel="stylesheet" type="text/css" href="https://cdnjs.cloudflare.com/ajax/libs/twitter-bootstrap/4.1.3/css/bootstrap.css"/>
        </head>
        <body>
        <div class="container">
            <div class="row">
               <h1>Basic test CURL mod_harbour</h1>

                <div class="col-sm-12">

               <?prg 

               local uValue

               curl_global_init()
            
               if ! empty( hCurl := curl_easy_init() )
               curl_easy_setopt( hCurl, HB_CURLOPT_POST, 1 )
               curl_easy_setopt( hCurl, HB_CURLOPT_URL, "http://www.modharbour.org/modharbour_samples/webservice.prg" )
               curl_easy_setopt( hCurl, HB_CURLOPT_DL_BUFF_SETUP )
               curl_easy_setopt( hCurl, HB_CURLOPT_POSTFIELDS, hb_jsonEncode( { "key1" => "value1", "key2" => "value2", "key3" => "value3" } ) )
            
                    if curl_easy_perform( hCurl ) == 0
                       uValue = curl_easy_dl_buff_get( hCurl )
                    endif
               endif
            
               curl_global_cleanup()

               ?>

                <div>
            </div>
        </div>
        </body>
        </html>
    ENDTEXT

return NIL

//----------------------------------------------------------------------------------------//

FiveTech Support Forums

Continue the discussion