Conexion FTP TSL

[servicomver]

Hola, como puedo conectarme a un servidor FTP que requiere TLS, antes me conectaba sin problema pero ahora requiero ese nivel de seguridad.

Asi funcionaba correctamente:
FtpSendFile(cFTP, cSource, cTarget, nVar41, nVar42, 14147 )




FUNCTION FtpSendFile( cFTPSite, cSource, cTarget, cUser, cPass, nBufSize )
LOCAL oInternet, oFTP

DEFAULT cUser:="", cPass:="", nBufSize:=2000
IF EMPTY(cFtpSite) .or. EMPTY(cSource) .or. EMPTY(cTarget)
MsgInfo("Missing Parameters"+chr(13)+"Usage: FtpSendFile(cFtpSite, cSource, cTarget, cUser, cPass, nBufSize) ","FtpSendFile()")
Return .f.
ENDIF

oInternet := TInternet():New()
IF Empty( oInternet:hSession )
MsgAlert( "Internet session not available!" )
ELSE
oFTP := TFTP():New( cFTPSite, oInternet, cUser, cPass )
IF Empty( oFTP:hFTP )
MsgStop( "Cannot connect to "+cFtpSite )
oInternet:End()
return .f.
ENDIF
ENDIF

SendFiles( cSource, cTarget, nBufSize, oFTP )

oInternet:End()

return nil

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

static function SendFiles( cSource, cTarget, nBufSize, oFTP )
local hSource
local cBuffer := Space( nBufSize )
local nBytes
local oFile

if ! File( cSource )
MsgStop( "File not found: " + cSource )
Return .f.
endif

hSource = FOpen( cSource )

oFile = TFtpFile():New( cTarget, oFTP )
oFile:OpenWrite()
FSeek( hSource, 0, 0 )
nFile := 0

while ( nBytes := FRead( hSource, @cBuffer, nBufSize ) ) > 0
oFile:Write( SubStr( cBuffer, 1, nBytes ) )
end
FClose( hSource )
oFile:End()
return .t.

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

[servicomver]

O conocen algún otro método para enviar archivos por FTP ?

Gracias y saludos

[Jimmy]

hi,

CLASS TFTP does not use SSL so you need to re-write your CODE
search for CURL and SFPT for working CODE with Fivewin

[servicomver]

Gracias por contestar, me puedes ayudar con las librerías que necesito y un ejemplo ?

[karinha]

http://www.hmgforum.com/viewtopic.php?p=52212&sid=b9984d3abb7a9b2eb25377c2276347f0#p52212

https://forums.fivetechsupport.com/viewtopic.php?f=6&t=35671&start=0

https://forums.fivetechsupport.com/viewtopic.php?f=3&t=40326

Regards, saludos.

[servicomver]

Hola, sigo sin poder realizar la conexion a un FTP TLS con xHarbour, creo que no estoy usando las librerias adecuadas, hay alguna otra forma de subirlos por algun programa externo en linea de comando ???

Gracias por su ayuda

[karinha]

Hola, sigo sin poder realizar la conexion a un FTP TLS con xHarbour, creo que no estoy usando las librerias adecuadas, hay alguna otra forma de subirlos por algun programa externo en linea de comando ???

Gracias por su ayuda

¿Has probado con HARBOUR?

Regards, saludos.

[servicomver]

Hola no pude realizar el envío y descarga de archivos a un FTP con TLS, para salir del problema opté por el programa WINSCP, hay que instalarlo pero después se puede usar por línea de comando y un sencillo SCRIPT.

https://winscp.net/eng/docs/scriptcommand_get

Por el momento con eso es suficiente, gracias por su ayuda y comentarios, seguiré intentando con las sugerencias que me hicieron.

Saludos