PC Toledo

lucimauro escreveu: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

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?

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

Saudações,
Itamar M. Lins Jr.

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.

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

Sabe me dizer de onde baixo ela?

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.

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.

cjp escreveu: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

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.

Enviado: **20 Nov 2023 20:14**

cjp escreveu: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.

Enviado: **26 Jul 2024 15:13**

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

Enviado: **31 Jul 2024 08:33**

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.

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

: 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

PC Toledo

Como utilizar Hbcurl.ch

Como utilizar Hbcurl.ch

Como utilizar Hbcurl.ch

Como utilizar Hbcurl.ch

Como utilizar Hbcurl.ch

Como utilizar Hbcurl.ch

Como utilizar Hbcurl.ch

Como utilizar Hbcurl.ch

Como utilizar Hbcurl.ch

Como utilizar Hbcurl.ch

Como utilizar Hbcurl.ch

Como utilizar Hbcurl.ch

Como utilizar Hbcurl.ch

Como utilizar Hbcurl.ch

Como utilizar Hbcurl.ch

Como utilizar Hbcurl.ch