Conectar SFTP con CURL

[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