problema con hbcurl
Posted: Fri Feb 18, 2022 12:03 amBuenas noches
estoy tratando de crear un programa con la libreria curl y harbour consola
estoy probando este codigo pero me da siempre error en hCurl := curl_easy_init()
pero si hago el programa equivalente con Mod_Harbour funciona bien ni siquiera necesito las protecciones TRY CATCH END
la pregunta es porque no puedo atrapar el error y porque da de 5 veces al menos una da error, por favor si alguien me puede dar luces
gracias, no tengo errores de compilacion
estoy tratando de crear un programa con la libreria curl y harbour consola
estoy probando este codigo pero me da siempre error en hCurl := curl_easy_init()
pero si hago el programa equivalente con Mod_Harbour funciona bien ni siquiera necesito las protecciones TRY CATCH END
- Code: Select all Expand view
#ifdef __HARBOUR__
#ifndef __XHARBOUR__
#xcommand TRY => BEGIN SEQUENCE WITH {| oErr | Break( oErr ) }
#xcommand CATCH [<!oErr!>] => RECOVER [USING <oErr>] <-oErr->
#xcommand FINALLY => ALWAYS
#xtranslate Throw( <oErr> ) => ( Eval( ErrorBlock(), <oErr> ), Break( <oErr> ) )
#endif
#endif
#include "hbcurl.ch"
function main()
local hCurl
local lError := .f.
TRY
curl_global_init()
?'init'
CATCH
?'error al tratar de cargar curl init'
return nil
END
TRY
TRY
hCurl := curl_easy_init()
? hCurl
CATCH
?"error hCurl no se formo"
lError := .t.
END
CATCH
?'error al tratar de cargar curl easy_init'
END
if lError
return nil
end
TRY
curl_easy_cleanup( hCurl )
hCurl := Nil
curl_global_cleanup()
hb_gcAll( .t. )
?'cleanup'
CATCH
?'error cierre'
END
return nil
la pregunta es porque no puedo atrapar el error y porque da de 5 veces al menos una da error, por favor si alguien me puede dar luces
gracias, no tengo errores de compilacion