topic-41424

Posts: 670

Joined: Wed Oct 19, 2005 06:41 PM

problema con hbcurl
Posted: Fri Feb 18, 2022 12:03 AM

Buenas 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

Code (fw): Select all Collapse

#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

Wilson 'W' Gamboa A
Wilson.josenet@gmail.com

karinha

Posts: 8515