Clipper On Line • Ver Tópico - Harbour e as outras PHP, Perl, Python conversando via CURL
Mudar para estilo Clássico
Discussão sobre outras linguagens de programação.
Postar uma resposta

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

25 Fev 2020 20:04

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:
#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.
Postar uma resposta