FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Tutorial de como usar CURL. quiero empezar desde cero
Posts: 1956
Joined: Fri Oct 07, 2005 07:08 PM
Tutorial de como usar CURL. quiero empezar desde cero
Posted: Sun May 02, 2021 01:00 PM
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 (fw): Select all Collapse
#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
FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Tutorial de como usar CURL. quiero empezar desde cero
Posted: Sun May 02, 2021 01:37 PM
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
regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Tutorial de como usar CURL. quiero empezar desde cero
Posted: Sun May 02, 2021 02:57 PM
Code (fw): Select all Collapse
// \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.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Posts: 1956
Joined: Fri Oct 07, 2005 07:08 PM
Re: Tutorial de como usar CURL. quiero empezar desde cero
Posted: Fri May 07, 2021 09:41 AM
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.

Antonio Linares wrote: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
FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/
Posts: 1956
Joined: Fri Oct 07, 2005 07:08 PM
Re: Tutorial de como usar CURL. quiero empezar desde cero
Posted: Fri May 07, 2021 01:45 PM
Estoy siguiendo el ejemplo de:
Code (fw): Select all Collapse
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
FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/
Posts: 1956
Joined: Fri Oct 07, 2005 07:08 PM
Re: Tutorial de como usar CURL. quiero empezar desde cero
Posted: Fri May 07, 2021 02:04 PM
Por lo que veo no pide usuario ni contraseña. esta bien este ejemplo?

karinha wrote:
Code (fw): Select all Collapse
// \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.
FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/
Posts: 1956
Joined: Fri Oct 07, 2005 07:08 PM
Re: Tutorial de como usar CURL. quiero empezar desde cero
Posted: Thu May 13, 2021 11:06 AM

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.

FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Tutorial de como usar CURL. quiero empezar desde cero
Posted: Thu May 13, 2021 11:31 AM
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Posts: 1956
Joined: Fri Oct 07, 2005 07:08 PM
Re: Tutorial de como usar CURL. quiero empezar desde cero
Posted: Fri May 14, 2021 12:02 PM
karinha wrote:http://fivewin.com.br/index.php?/topic/29576-servidor-ftp/


ahora lo pruebo a ver si logro hacerlo. gracias
FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Tutorial de como usar CURL. quiero empezar desde cero
Posted: Fri May 14, 2021 01:06 PM
Gustavo,

El ejemplo que te proporcionamos con curl funciona correctamente:

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

Antonio Linares
www.fivetechsoft.com
Posts: 1956
Joined: Fri Oct 07, 2005 07:08 PM
Re: Tutorial de como usar CURL. quiero empezar desde cero
Posted: Fri May 14, 2021 04:39 PM
al ajecutar mi app que intento usar curl me sale esto

FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/

Continue the discussion