Conectar SFTP con CURL

[Verhoven]

¡¡¡ F U N C I O N A !!!


Muchas gracias Antonio.
Con esto empezaré a probar la librería curl embebida en el prg.

No obstante, y a pesar del día que te he dado con este asunto, todavía me voy a atrever a pedirte que trates de generar una librería estática a fin de evitar las DLL.

De nuevo muchas gracias.

[Antonio Linares]

No te prometo nada, pero lo intentaré

[Enrrique Vertiz]

Estimados Saludos

Alguien lo probo con xHarbour ?? , si se que Harbour seria ideal, pero tengo mucho que modificar y por ahora no tenemos tiempo, Yo he compilado y todo, pero al ejecutar me da un error:

Error irrecuperable 9011
hb_xfree llamado con un puntero nulo

Copie tal cual el ejemplo que aqui en paginas atras colocan, pero tube que comentar esta linea (abajo), porque al compilar xHarbour NO reconoce esta funcion: hb_vfSize( cFileName ), alguna idea ... GRACIAS

curl_easy_setopt( hCurl, HB_CURLOPT_INFILESIZE, hb_vfSize( cFileName ) )

el codigo que uso es este:

function sFtpSubirFichero( cUrlFileName, cFileName, aUser, aPass )

local hCurl
local nResult
local aaUser := AllTrim(aUser)
local aaPass := AllTrim(aPass)
local aCadena := aaUser+":"+aaPass

curl_global_init()

if ! empty( hCurl := curl_easy_init() )

curl_easy_setopt( hCurl, HB_CURLOPT_PROTOCOLS, HB_CURLPROTO_SFTP)
curl_easy_setopt( hCurl, HB_CURLOPT_URL, cUrlFileName )
curl_easy_setopt( hCurl, HB_CURLOPT_DL_BUFF_SETUP )
curl_easy_setopt( hCurl, HB_CURLOPT_UPLOAD )
curl_easy_setopt( hCurl, HB_CURLOPT_UL_FILE_SETUP, cFileName )
// curl_easy_setopt( hCurl, HB_CURLOPT_INFILESIZE, hb_vfSize( cFileName ) ) // lo marque porque hb_vfSize NO existe en xHB, que hacemos ??
curl_easy_setopt( hCurl, HB_CURLOPT_USERPWD, aCadena )
curl_easy_setopt( hCurl, HB_CURLOPT_TCP_KEEPALIVE, 1 )
curl_easy_setopt( hCurl, HB_CURLOPT_SSL_VERIFYHOST, 0 )
curl_easy_setopt( hCurl, HB_CURLOPT_SSL_VERIFYPEER, 0 )
curl_easy_setopt( hCurl, HB_CURLOPT_VERBOSE, 1 )
curl_easy_setopt( hCurl, HB_CURLOPT_USE_SSL, 0 )

if ( nResult := curl_easy_perform( hCurl ) ) == 0
nResult := curl_easy_dl_buff_get( hCurl )
else
? "error code:" + Str( nResult )
endif

endif

curl_global_cleanup()

return nResult

[leandro]

Me sumo a la petición de Enrique, ya que para nosotros ha sido imposible pasarnos a harbour. Antonio será que nos puedes ayudar a que funcione tambien en xharbour . De antemano gracias

[Enrrique Vertiz]

Saludos

Los molesto para saber si alguien ha logrado conectarse a SFTP desde xHarbour, trate con CURL pero no logre hacerlo, no se si existe alguna otra forma, gracias !!!

[paquitohm]

Me sumo a la petición de Enrique, ya que para nosotros ha sido imposible pasarnos a harbour. Antonio será que nos puedes ayudar a que funcione tambien en xharbour . De antemano gracias

¿ Imposible pasar a Harbour ? ¿ Cual es el motivo ?
El propio Ron Pinkas YA ha indicado que el "camino" es ir a Harbour
Asi pues, pareciera que cuanto antes se transite ese "camino" menos "dolor" habrá para quien aún se mantiene en xHarbour

[Enrrique Vertiz]

Tenemos una LIB vital para nosotros que solo funciona con xHarbour, en algun momento tendremos que migrar ... quizas ... pero por ahora la ayuda es de SFTP con xHarbour

[paquitohm]

Todo depende del aprovechamiento que se le tenga que hacer a la .lib

Recuerdo tener una .lib solo para clipper. La utilice en Harbour 32 bits corriendo sobre S.O. 64

¿ Como ? Construi un ejecutable en clipper que recibia llamadas y devolvia resultados. El ejecutable clipper lo ejecutaba con una especie de dosemu. Y funcionando sin problemas hasta el dia de hoy.

No creo que haya algo mas creativo que la informatica: Ni la cocina, ni la pintura, ni la musica