Como utilizar Hbcurl.ch

[cleitonLC]

Ola cleiton,
Fiz um teste aqui mais so mostra Erro na chamada da API: HTTP

Deixo aqui também o link do repo no github https://github.com/cleitonleonel/WhatsServer

[cjp]

Pessoal, estou estudando este tópico a intenção de usar a Hbcurl.
Estou obtendo erro na compilação, conforme imagem anexa.
Aparentemente, as funções citadas não existem na Hbcurl.
Peguei o exemplo a seguir no chatgpt:

Código: Selecionar todos

   
#include "hbcurl.ch"

function GetWebServiceData()
   LOCAL hCURL := CURL_EasyInit()
   LOCAL cResponse := ""

   IF !EMPTY(hCURL)
      // Configura a URL de destino
      CURL_EasySetOpt(hCURL, CURLOPT_URL, "https://jsonplaceholder.typicode.com/posts/1")

      // Configura a função de retorno para armazenar a resposta
      CURL_EasySetOpt(hCURL, CURLOPT_WRITEFUNCTION, {|cData| cResponse := cResponse + cData})

      // Realiza a chamada HTTP GET
      IF CURL_EasyPerform(hCURL) = CURLE_OK
         ? "Resposta do WebService:"
         ? cResponse
      ELSE
         ? "Erro na chamada HTTP: " + CURL_EasyStrError(CURL_EasyGetOpt(hCURL, CURLOPT_LASTRESULT))
      ENDIF

      // Limpa e finaliza o CURL
      CURL_EasyCleanup(hCURL)
   ELSE
      ? "Erro ao inicializar o CURL."
   ENDIF
RETURN

Não sei se é um exemplo válido. Só queria testar.

Alguém pode me ajudar?

[Itamar M. Lins Jr.]

Olá!
https://pctoledo.org/forum/viewto ... 23#p160052

Saudações,
Itamar M. Lins Jr.

[cjp]

Não sei se te entendi corretamente, mas, se vc quis dizer que seria pra eu testar o exemplo do claitonLC acima, eu testei.
Nesse exemplo, pra mim só dá Erro na chamada da API: HTTP. Não sei se eu precisaria trocar alguma coisa.
Tentei também testar o exemplo que peguei no chatgpt, mas com estes do exemplo do claitonLC:

Código: Selecionar todos

REQUEST HB_CODEPAGE_PTISO, HB_CODEPAGE_UTF8EX
#require "hbcurl"
#require "hbtip"
#include "inkey.ch"
#include "fileio.ch"

Mas nem assim está compilando, está dando erro nas mesmas funções.

[JoséQuintas]

Essa lib não vém pronta pra uso no harbour.
Se tá dando erro é porque aí não tem.

[cjp]

Sabe me dizer de onde baixo ela?

[JoséQuintas]

Acho que precisa gerar na sua máquina, para o seu ambiente de trabalho, e procurar o que precisa pra fazer isso.
Nunca precisei dela, então nem procurei saber mais nada.

Se leu o post indicado teria entendido que não precisa dela.

E se está pensando em apenas copiar fontes prontos, esqueça, assim não vai funcionar nunca.

CADA webservice pode ser uma novela pra resolver, até meses de pesquisa e teste, não basta copiar qualquer fonte.

[cjp]

Li o post, mas não entendi.
Não estou só querendo copiar fontes prontos. Quero entender como isso funciona.
Mas, pra eu começar a entender, seria bom ter algum exemplo funcionando.

[JoséQuintas]

Li o post, mas não entendi.
Não estou só querendo copiar fontes prontos. Quero entender como isso funciona.
Mas, pra eu começar a entender, seria bom ter algum exemplo funcionando.

Pois é, e vai dizer o mesmo pra com todos.

https://pctoledo.org/forum/search ... ds=xmlhttp

[Itamar M. Lins Jr.]

Olá!

Li o post, mas não entendi.

É bem simples. Leia novamente até entender.
Faça a pergunta sobre o que foi que não entendeu.
Responder, li mas não entendi é muito vago. Não entendeu o quê ? O que foi que vc fez ai no seu computador que deu errado ?
Ficar colocando fonte e (ainda alguns sem avisar) de ChatGPT no grupo para os outros consertar, só complica ainda mais...
Se vc ler o que está ABAIXO do que foi respondido vai ver que uma pessoa chegou no mesmo erro que vc e que foi respondido:
https://pctoledo.org/forum/viewto ... =0#p160057

Saudações,
Itamar M. Lins Jr.

[cleitonLC]

Li o post, mas não entendi.
Não estou só querendo copiar fontes prontos. Quero entender como isso funciona.
Mas, pra eu começar a entender, seria bom ter algum exemplo funcionando.

Boas amigo, então essa libcurl precisa compilar para seu ambiente como foi dito por nossos amigos anteriormente, aqui uso linux...
Baixei o harbour do github e compilei para linux, uso uma imagem em um hd externo e toda vez que preciso uso via chroot, é bem prático.
Uso esse shell script para compilar a lib e mover para os locais corretos no meu sistema.

Código: Selecionar todos

#!/bin/bash
sudo hbmk2 -hblib core.c -ohbcurl hbcurl.hbx
if [ -s libhbcurl.a ]
then
  echo "Biblioteca curl compilada com sucesso"
  sudo cp hbcurl.ch /usr/local/include/harbour/
  sudo cp libhbcurl.a /usr/local/lib/harbour/
else
  echo "Não conseguiu compilar a lib curl"
fi

Após compilar a lib os métodos e funções já estarão disponíveis pra ti.

[Abel]

Ola, apos mais de um ano, voltei a tentar usar o hbcurl no meu sistema
sem sucesso.

eu uso mingw, mas de nenhuma forma consegui compilar com essa biblioteca e usar
os comandos hb_curl. Utilizao o harbour 3.1

sera que seria melhor baixar uma nova versao do harbour ?

Obrigado
ABEL

[clodoaldomonteiro]

Se você estiver usando o Windows, pode seus recursos para isso.

Código: Selecionar todos

//Exemplo em xHarbour, acessando API, fazendo um GET para consultar dados no meu servidor.
Function SendGetPing( cAuthorization )
   Local oOle, cRet := '', msg, oError //, cRet2

   Try
      oOle := CreateObject( 'MSXML2.XMLHTTP' )
   Catch
      oOle := CreateObject( 'Microsoft.XMLHTTP' )
   End

   oOle:Open( 'GET', 'https://api.simplesi.com.br/utils/info/ping', .f. )

   oOle:SetRequestHeader( "Content-Type", 'application/json')

   If !Empty( cAuthorization)
      oOle:SetRequestHeader( "Authorization", cAuthorization)
   Endif

   Try
      oOle:Send( )

      cRet := oOle:ResponseBody

   Catch oError
      msg := 'EMAIL...: [001]' + CRLF
      msg += 'Aviso..: Não consegui enviar email.' + CRLF
      msg += cl_getError(oError, .t.)
      MsgAtencao( msg, .t.)

   End

   oOle := NIL

   Return cRet

Abraços.

[Abel]

ola,

desisti de usar a hbcur com o harbour que estava usando hb31 (2011)

fiz novo post, para receber orientacao onde baixar o hb32 atualizado com mingw

Obrigado,
a todos que tentaram orientar sobre o hbcurl

[Abel]

tela de erro, e tela deo setup hbide e ainda console de compilacao

ola pessoal,
depois de muitas tentativas de usar hbcurl no meu harbour 3.1 (2011)
decidi entao montar outro ambiente hb32 atualizado

baixei o harbour 32 em
versão nightly aqui: https://sourceforge.net/projects/harbou ... s/nightly/
dica de Jairo Maia 29/10/2021
instalado em g:\hb32-2023

atualizei tambem minha hbide (pritbal Bedi) em
Direct download link: https://sourceforge.net/projects/qtcont ... p/download

mesmo assim nao consigo compilar.
segue meu hbp - a quantidade de # foram as tentativas de compilar com varias opções que vi na internet

quem puder me ajudar, agradeço.
ja perdi horas com isso.


obrigado.

meu hbp

Código: Selecionar todos

-3rd=hbide_version=1.0
-3rd=hbide_title=CFCA
-3rd=hbide_workingfolder=G:/SIS/HCFCACNH
-3rd=hbide_destinationfolder=G:/SIS/HCFCACNH
-3rd=hbide_output=CFCA
-3rd=hbide_backupfolder=G:/SIS/HCFCACNH
-3rd=hbide_xpp=YES
-3rd=hbide_clp=YES

-lhbct
-lgtwvt

-gui
-lhbwin
-lxhb
-lhbtip
-inc
#-lhbcurl.hbc

#-LG:/SIS/HCFCACNH
#-LG:/HB32-2023/COMP/MINGW/BIN
-lcurl
-lhbcurl
#-lhbcurls

#-llibhbcurl
#-llibssleay32.a
#-llibhbssl
#-lssleay32.a
#-llibhbssls.a


CFCA.PRG
CFCA.RC
MOUSE.PRG
MENUTO.PRG
TGETLIST.PRG

ao executar o EXE da esse erro de dll, segue tambem meu setup hbide