Harbour e as outras PHP, Perl, Python conversando via CURL

[Itamar M. Lins Jr.]

Ola!
O Antonio postou mais um exemplo.
Exemplo de uma aplicação harbour pegando os dados via URL de um outro programa, neste caso PHP, mas pode ser qualquer linguagem basta ter saída pela URL.
https://fivetechsoft.github.io/snippets/?20200225204504

Código: Selecionar todos

#ifdef __PLATFORM__WINDOWS
   #include "c:\harbour\contrib\hbcurl\hbcurl.ch"
#else
   #include "/home/user/harbour/contrib/hbcurl/hbcurl.ch"
#endif

function Main()

  ? "Hello world"

  ? callPHP( "www.fivetechsoft.com/getip.php" ) 

return nil

function callPHP( cUrl )

   local uValue

   curl_global_init()

   if ! empty( hCurl := curl_easy_init() )
        curl_easy_setopt( hCurl, HB_CURLOPT_URL, cUrl )
        curl_easy_setopt( hCurl, HB_CURLOPT_DL_BUFF_SETUP )

        if curl_easy_perform( hCurl ) == 0
           uValue = curl_easy_dl_buff_get( hCurl )
        endif
   endif

   curl_global_cleanup()

return uValue

Saudações,
Itamar M. Lins Jr.