Harbour e as outras PHP, Perl, Python conversando via CURL
Enviado: 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
Saudações,
Itamar M. Lins Jr.
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
Itamar M. Lins Jr.