Tutorial de como usar CURL. quiero empezar desde cero

[goosfancito]

Estimados, voy a empezar desde cero con CURL para ver si puedo dejar en un post al final como se lo utiliza y ojaa a alguien mas le sirva.

El editor que voy a usar es el xMate, no estoy preparado para pasarme al FiveEdit.

Por lo que hasta ahora se deberia de incluir:

hbcurl.ch

y estas dos librerias al compilar:

hbcurl.lib
libcurl.lib

El codigo que estoy probando es:

Code: Select all  Expand view  RUN

#include "fivewin.ch"
#include "hbcurl.ch"

//------------------------------------------------------------------------------

FUNCTION main()

   SubirArchivo( cUrl, cFile )

   RETURN ( NIL )

//------------------------------------------------------------------------------

FUNCTION SubirArchivo( cUrl, cFile )
   LOCAL hCurl, uValue, nResult

   curl_global_init()

   RETURN ( NIL )
 

y al querer compilar me tira estos errores:

Error: Unresolved external '_curl_global_init_mem' referenced from X:\FTP_CURL\LIB\HBCURL.LIB|core
Error: Unresolved external '_curl_global_cleanup' referenced from X:\FTP_CURL\LIB\HBCURL.LIB|core
Error: Unresolved external '_curl_formfree' referenced from X:\FTP_CURL\LIB\HBCURL.LIB|core
Error: Unresolved external '_curl_easy_cleanup' referenced from

voy a poner aca el BCL

X:\ftp_curl\Obj\ftp_curl.Obj +
X:\harb\bcc7\Lib\c0w32.obj, +
X:\ftp_curl\bin\ftp_curl.Exe, +
, +
X:\ftp_curl\Lib\hbcurl.lib +
X:\ftp_curl\Lib\libcurl.lib +
X:\harb\fwh\lib\Fiveh.lib +
X:\harb\fwh\lib\Fivehc.lib +
X:\harb\harb2020\Lib\hbwin.lib +
X:\harb\harb2020\Lib\gtgui.lib +
X:\harb\harb2020\Lib\hbrtl.lib +
X:\harb\harb2020\Lib\hbvm.lib +
X:\harb\harb2020\Lib\hblang.lib +
X:\harb\harb2020\Lib\hbmacro.lib +
X:\harb\harb2020\Lib\hbrdd.lib +
X:\harb\harb2020\Lib\rddntx.lib +
X:\harb\harb2020\Lib\rddcdx.lib +
X:\harb\harb2020\Lib\rddfpt.lib +
X:\harb\harb2020\Lib\hbsix.lib +
X:\harb\harb2020\Lib\hbdebug.lib +
X:\harb\harb2020\Lib\hbcommon.lib +
X:\harb\harb2020\Lib\hbpp.lib +
X:\harb\harb2020\Lib\hbcpage.lib +
X:\harb\harb2020\Lib\hbcplr.lib +
X:\harb\harb2020\Lib\hbct.lib +
X:\harb\harb2020\Lib\hbpcre.lib +
X:\harb\harb2020\Lib\xhb.lib +
X:\harb\harb2020\Lib\hbziparc.lib +
X:\harb\harb2020\Lib\hbmzip.lib +
X:\harb\harb2020\Lib\hbzlib.lib +
X:\harb\harb2020\Lib\minizip.lib +
X:\harb\harb2020\Lib\hbusrrdd.lib +
X:\harb\harb2020\Lib\hbtip.lib +
X:\harb\harb2020\Lib\hbzebra.lib +
X:\harb\bcc7\Lib\cw32.lib +
X:\harb\bcc7\Lib\uuid.lib +
X:\harb\bcc7\Lib\import32.lib +
X:\harb\bcc7\Lib\ws2_32.lib +
X:\harb\bcc7\Lib\psdk\odbc32.lib +
X:\harb\bcc7\Lib\psdk\nddeapi.lib +
X:\harb\bcc7\Lib\psdk\iphlpapi.lib +
X:\harb\bcc7\Lib\psdk\msimg32.lib +
X:\harb\bcc7\Lib\psdk\psapi.lib +
X:\harb\bcc7\Lib\psdk\rasapi32.lib +
X:\harb\bcc7\Lib\psdk\gdiplus.lib +
X:\harb\bcc7\Lib\psdk\shell32.lib +
X:\harb\harb2020\Lib\hbcurl.lib

[Antonio Linares]

Gustavo,

Tienes duplicada esta librería:
X:\ftp_curl\Lib\hbcurl.lib +
...
X:\harb\harb2020\Lib\hbcurl.lib

Puedes comprobar que la librería libcurl.lib que estás enlazando mida 7.680 bytes y fecha 08/02/2021 ?

En nuestro libcurl.lib si están esos símbolos que no encuentra el enlazador:
https://github.com/FiveTechSoft/Harbour_builder/blob/master/harbour_win32_bcc_2020_10_19.zip

[karinha]

Code: Select all  Expand view  RUN

// \SAMPLES\HBCURL.PRG

#Include "FiveWin.ch"
#Include "hbcurl.ch"

FUNCTION Main()

   LOCAL cUrl, cFile

   cUrl  := ( "http://www.fivetechsupport.com/forums" )

   cFile := "MATERIAL.TXT"

   SubirArchivo( cUrl, cFile )

RETURN NIL

FUNCTION SubirArchivo( cUrl, cFile )

   LOCAL hCurl, uValue, nResult

   curl_global_init()

RETURN NIL

// FIN
 

Saludos.

[goosfancito]

Retome aca las pruebas.
No tenian esos valores que me decis ahora está actualizado a:
09/04/2021
7.50 kb

lo que si el libcurl.ch ni hbcurl.ch tiene ese paquete que esta subido.

Gustavo,

Tienes duplicada esta librería:
X:\ftp_curl\Lib\hbcurl.lib +
...
X:\harb\harb2020\Lib\hbcurl.lib

Puedes comprobar que la librería libcurl.lib que estás enlazando mida 7.680 bytes y fecha 08/02/2021 ?

En nuestro libcurl.lib si están esos símbolos que no encuentra el enlazador:
https://github.com/FiveTechSoft/Harbour_builder/blob/master/harbour_win32_bcc_2020_10_19.zip

[goosfancito]

Estoy siguiendo el ejemplo de:

Code: Select all  Expand view  RUN

https://github.com/harbour/core/blob/master/contrib/hbtip/tests/ftp_ul.prg

como no conozco el meecanismo que usan en cUrl podrian por favor darme un ejemplo de que parametros pasan?

no estoy encontrandole la vuelta de como usarlo.
gracias

[goosfancito]

Por lo que veo no pide usuario ni contraseña. esta bien este ejemplo?

Code: Select all  Expand view  RUN

// \SAMPLES\HBCURL.PRG

#Include "FiveWin.ch"
#Include "hbcurl.ch"

FUNCTION Main()

   LOCAL cUrl, cFile

   cUrl  := ( "http://www.fivetechsupport.com/forums" )

   cFile := "MATERIAL.TXT"

   SubirArchivo( cUrl, cFile )

RETURN NIL

FUNCTION SubirArchivo( cUrl, cFile )

   LOCAL hCurl, uValue, nResult

   curl_global_init()

RETURN NIL

// FIN
 

Saludos.

[goosfancito]

Buen dia

Para poder usar CURL el cliente tiene que tener instalado el programa?
de ser asi, no existe en FWH la posiblidad de hacer transferencia de archivos a un ftp sin el uso de programas externos?

gracias.

[karinha]

http://fivewin.com.br/index.php?/topic/29576-servidor-ftp/

[goosfancito]

http://fivewin.com.br/index.php?/topic/29576-servidor-ftp/

ahora lo pruebo a ver si logro hacerlo. gracias

[Antonio Linares]

Gustavo,

El ejemplo que te proporcionamos con curl funciona correctamente:

https://github.com/FiveTechSoft/mod_harbour/blob/master/samples/ftpup.prg

[goosfancito]

al ajecutar mi app que intento usar curl me sale esto