FiveTech Support Forums

Antonio,

Llevo varios dias peleando con este tema, me pregunto si hay algun ejemplo en concreto que funcione correctamente.

Ya lei y probe todos los hilos : Los de Enrico, el icopyfil y el de varios compañeros , y en todos me estanco cuando se verifica si se genero el objeto tInternet:new()

Si uso hIntCon := LoadLib32( "WinInet.dll" ) me regresa 0 puesto que estoy incluyendo la lib, pero ya cuando quiero realizar la operacion SIEMPRE me dice que no se puede cargar y nomas no continua.
Ya intente registrarla y nop, igual.

Hay algo que no este haciendo bien o que me falte realizar ?

PD : Conexion a Internet la tengo en todo momento

Saludos

Hola Raimundo:

Has visitado el bolg de BielSys ? Quizá ahí encuentres lo que buscas en la entrada "Actualización automatica de aplicaciones via FTP"

http://bielsys.blogspot.com/

Manuel,

Gracias por contestar,

Efectivamente, la opcion que ofrece Biel fue mi primera opcion a probar, ya que estoy es proceso de liberar la nueva version de la app y estoy actualizando a muchas pcs de los clientes. Sin embargo tambien me tope con el bloqueo que genera la wininet.dll

No se que este pasando, recuerdo hace algun tiempo hacer pruebas satisfactorias en mandar emails desde FWH y esto del ftp y ahora nop, no quiere funcar nada.

Voy a desemplovar mi vieja version 8.12 que tengo para probar.

Te agradezco de todos modos tu sugerencia y si alguna tiene la receta de como resolver este detalle con la dll se lo agradeceria enormemente.

Saludos

Raymundo:

Excelente !, y me acabas de dar una idea para solucionar el post de innosetup.

Saludos

FUNCTION ConectaServerFTP(cNomSer,cNomUsr,cClaUsr,cDocNit,oFtp)
cServer := cNomSer //change ftpserver to the real name or ip of your ftp server
cUser := cNomUsr // change ftpuser to an valid user on ftpserer
cPassword := cClaUsr // change ftppass to an valid password for ftpuser
cUrl := "ftp://" + cUser + ":" + cPassword + "@" + cServer

 cUser:= strtran(cUser,"@","&at;")

 oUrl              := tUrl():New( cUrl )
 IF At( "@", cUser ) > 0
    oUrl:cUserID   := strtran(cUser,"&at;","@")
    oUrl:cPassword := cPassword
 ENDIF


 oFTP              := tIPClientFtp():New( oUrl, .T. )
 oFTP:nConnTimeout := 20000
 oFTP:bUsePasv     := .T.


 oFTP:Open( )

 IF oFtp <> NIL
    RETURN .T.
 ENDIF

RETURN .F.

FUNCTION SubeTablasFacturasFtp(cNitEmp,cCiaDes,cCodVen,oFtp)

LOCAL cLocFil := ""
LOCAL cRemFil := ""
LOCAL cUniLoc := "\zerusmovil\"+cCiaDes+"\"+cCodVen+"\temp\"
LOCAL cUniRem := "moviles/"+cNitEmp+"/"+cCiaDes+"/"+cCodVen+"/"

cLocFil := cUniLoc+"FACTURAS.CSV"
cRemFil := cUniRem+"FACTURAS.CSV"

SELECT MOV_FAC
MOV_FAC->( DBGOTOP() )
IF MOV_FAC->( !EOF() )
COPY TO &(cLocFil) DELIMITED WITH ( { [], [,] } )
IF HB_FSize(cLocFil) > 0
oFtp:UpLoadFile( cLocFil, cRemFil )
ENDIF
ENDIF

RETURN .T.

FUNCTION BajaTablasFtp(cNitEmp,cCiaDes,cCodVen)

LOCAL cUniFtp := "moviles/"+cNitEmp+"/"+cCiaDes+"/"+cCodVen+"/"
LOCAL cUniDes := "C:\TEMP"
LOCAL aVecArc := oFtp:listFiles(cUniFtp + "/" + "*.TXT")
LOCAL J := 0, cNomArc := ""
LOCAL nLonArc := 27 // TAMA¥O DEL NOMBRE DE ARCHIVOS.TXT

FOR J := 1 TO LEN(aVecArc)

cArcOri := aVecArc[J,1]
cNomArc := SUBS(aVecArc[J,1],LEN(aVecArc[J,1]) - nLonArc )
cArcDes := cUniDes+"\"+cNomArc

IF ( oFtp:fileSize(cArcOri) > 0 )
     oFtp:DownLoadFile( cArcDes, cArcOri )
     AnexarTxtTem(cUniDes,cArcDes,cNomArc,"PEDIDOS",oFtp,cArcOri)  // FUNCTION PROPIA
ENDIF

NEXT J

RETURN

Johnson Russi

Jhonson,

Muchas gracias por la aportacion, hare pruebas con tu codigo, pero te tengo una pequeña pregunta :

Funciona directa/indirectamente con la WinInet.Dll ??

Ya que ese ha sido mi gran problema, he visto/leido que varios colegas la usan sin problemas. En mi caso, simple y sencillamente me bloquea.

Y hasta la fecha no he encontrado algun post que indique que tratamiento ( si es que lo requiera ) aplicarle para que pueda funcionar.
Ya que como comente previamente, hice algunos copy/paste de otras opciones y en todas, al momento de crear el objeto de conexion, siempre de devuelve que no hay, cuando claramente la tengo.

Te agradezco mucho, ojala y se pueda realizar el envio/recepcion que necesito.

Saludos

Jhonson,

Excelente !!!

Funciona Perfecto.

Muchas Gracias y Saludos

AMIGO Jhonson, ando probando tu rutina y me da error en estas funciones

tIPClientFtp()
turl()

esas son propias tuyas o de que serian, gracias

Alex,

Son propias de XHarbour, solo te falta agregar una lib a tu proyecto : tip.lib

Saludos

gracias a todos, ya esta funcionando 100% ok

amigos

sobre la rutina he encontrado un detalle que me parece peligroso y es que generan un archivo log llamado ftp1, ftp2, y asi sucesivamente cada vez que se ejecuta y en este archivito log pone hasta la clave, etc, parece que fuera de la propia libreria de harbour, habra algun paramentro no documentado que haga que no lo genere?

gracias

Hola mis cuates,

Tomando el ejemplo de Johnson Russi, a mi se me congela el sistema en la instruccion:

oUrl := tUrl():New( cUrl )

Alguna idea del porque?

Salu2

Rodolfo,

si agregaste las libs requeridas ?

Con las funciones de Russi todo estuvo ok desde la primera !!

Saludos

Compadre, gracias por responder.

Si tengo la libreria Tip.LIB incluida pero se trato de un problema con la forma en que tenia los archivos en el servidor.

Ya puedo bajar archivos, lo unico que no me funciona es que al dar la instruccion:

xbrowse(oFtp:DIRECTORY('.'))

me da un solo elemento por cada archivo con el nombre de "Binary"