FiveTech Software tech support forums

¡¡¡ 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.

No te prometo nada, pero lo intentaré

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

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

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 !!!

leandro wrote: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

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

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