Buenos días amigos,
uso el siguiente código para
subir archivos mediante FTP, y funciona muy bien, pero por alguna razon
cuando trato de subir archivoa a hostings donde no tengo un SSL, no me
deja,
Alguien tiene algo para resolver este problema?
tratar de subir archivos sin importar si el hosting tiene SSL o no?
SET LIBRARY TO (LOCFILE("vfpconnection.fll","
FLL"))
SetConnectTimeout(6000) && Default is 10 seconds
SetResponseTimeout(6000) && Default is 10 seconds
FTPPut(cRuta, ALLTRIM("FTP://")+ALLTRIM(_UserFtp)+":"+ALLTRIM(_PassFtp)+"@"+ALLTRIM(_Dominio)+":21/"+ALLTRIM(_Directorio)+"/"+ALLTRIM(_Foto), "MyProgress()", "MyTrace()")
SET LIBRARY TO
FUNCTION MyProgress()
PUBLIC porcentaje
porcentaje=0
Porcentaje = 100 * nConnectBytesSoFar / nConnectTotalBytes
WAIT windows "Subiendo archivo..."+" "+ ALLTRIM(STR(porcentaje,10,2))+" %" NOWAIT
ENDFUNC
WAIT CLEAR
RELEASE LIBRARY vfpconnection.fll