FiveTech Software tech support forums

El trozo de código que inserto mas abajo con la versión 0908, funciona de maravilla, sinembargo con las versiones posteriores, no consigo que funcione, a lo más que llego es que se escriba en el servidor ftp, el fichero vacio, pero nunca escribe ningun dato en el, en otros casos sin dar ningún error, hace como si lohubiera escrito sin haberlo hecho.

Code: Select all  Expand view

   oInternet := TInternet():New()
   If( Empty( oInternet:hSession ),MsgAlert( "Imposible establecer conexión" ),)
   oFTP := tfTP():New( cftpsite, oInternet, usuario,password )
   if Empty( oFTP:hFTP )
      MsgStop( "No se puede conectar al servidor FTP" )
      return nil
   endif
   cbuffer:=space(nbufsize)
   oFile = tFtpFile():New( directorio+cfilenoext(csource)+".htm",oFTP )
   oFile:OpenWrite()
   hSource = FOpen( csource  )
   FSeek( hSource, 0, 0 )
   SysRefresh()
   while ( nBytes := FRead( hSource, @cBuffer, nBufSize ) ) > 0
      oFile:Write( substr(cBuffer, 1, nBytes ) )
      SysRefresh()
  end
   FClose( hSource )
   oFile:End()
   oftp:end()
   oInternet:End()
 

Me podeis aclarar algo?
Muchas gracias. y un saludo
José Luis

Me respondo a mi mismo, no hay cambio alguno, el problema es que mi aplicación reside en un determinado directorio, y con ese nombre de directorio no funciona el código expuesto, modifico aunque sea añadiendo un caracter o dígito al nombre del directorio compilo y linko de nuevo, y voalá, todo funciona.
¿Alguien podria decirme a que se podría deber este expediente X?

Muchas gracias y un saludo
José Luis

José Luis,

Cual es el nombre del directorio ?

Anonio:
La aplicacion reside en C:\Rallye, y el nombre de la misma es Rallye, pero antes y en otros equipos no me da problemas, el cortafuegos lo tengo desactivado, ya sólo me queda desinstalar el antivirus y cortafuegos, pues me temo que es el responsable.
Muchas gracias y un saludo
José Luis

He tenido el mismo problema, pero lo que me parece raro es que se da en un solo computador, tengo 14 computadores ubicados en zonas geográficas distintas, por FTP genero actualizaciones automáticas de cada computador a un servidor MYSQL, el problema lo he tenido en un solo computador, pensé que podría ser algún problema con el router, porque el archivo que se sube via FTP ya en el servidor ocupa 0 bytes, no graba nada, pero el mismo ejecutable funciona de maravilla en las restantes 13 terminales.
por ahora lo he solucionado de pura casualidad, agregue una linea de texto para saber que es lo que sale, agregue el
oTxt:=TTxtFile():New("c:\probando.txt") para ir agregando alli algunos parametros conforme va corriendo el programa, y me doy con la sorpresa que ahora ya actualiza via FTP el archivo, pienso que debe ser un retraso, al escribir en el archivo txt se retrasa unos segundos y de ahi se logra subir al servidor FTP.


oFile:OpenWrite()
oTxt:=TTxtFile():New("c:\probando.txt")
oTxt:add(cFTPDir+cFile+" "+time())
oTxt:add(STR(oFile:hFile)+" "+time())
oTxt:Close()
if oFile:hFile > 0
h := fOpen(cFile)
nSize := fSeek(h,0,2)
fSeek(h,0,0)
cBuff := Space(nSize)
nRead := fRead(h,@cBuff,nSize)
fClose(h)