FiveTech Support Forums

REDEFINE BUTTONBMP  oBtn  ID 500 OF oDlg TEXTRIGHT BITMAP   "CANCELAR"  ACTION (lDown:= .F., lFinDlg:= .T., oDlg:END())

oFtp:oFtp:exGauge := ( @FtpProgress() )
          oFtp:oFtp:DownLoadFile( cDestino + "\" + cFile, cFile )

//-----------------------------------------------------------------------------------------------------------------//
STATIC FUNCTION FtpProgress(nSent, nTotal)

LOCAL cProgress := INT( 100*nSent/nTotal )
LOCAL nPos:= 0

IF lDown == .T.
   oProg:SETPOS(cProgress)
   oProg:Refresh() 
   oSayP:SetText("Descargando "+cFile+" --> "+STR(nSent)+"        Progreso: "+ALLTRIM(STR(cProgress)) +" % ")
   oSayP:Refresh()
   IF cProgress == 1
      nPos:= nPos + 1
   ENDIF
   oBrw:SETPOS(nPos)
   oBrw:Refresh() 
   SysRefresh()
ELSEIF lDown == .F.
  oFTP:CLOSE()       //-----Aki el fallo
   DeleteObject( oFTP )
ENDIF

RETURN Nil

Time from start: 0 hours 0 mins 12 secs
Error occurred at: 21-10-2013, 10:54:23
Error description: Error BASE/3012 Error de argumento: HB_INETERRORCODE
Args:
[ 1] = U

Stack Calls
===========
Called from: => HB_INETERRORCODE( 0 )
Called from: hbtip\client.prg => TIPCLIENTFTP:INETERRORCODE( 0 )
Called from: hbtip\client.prg => TIPCLIENTFTP:READTOFILE( 0 )
Called from: hbtip\ftpcli.prg => TIPCLIENTFTP:DOWNLOADFILE( 0 )
Called from: Update.prg => DOWNFILS( 271 )

Up +1

Víctor,

Aunque no tengo mucha idea de lo que puede estar pasando... como veo que insistes con el mensaje he pensado echar una mano: He intentado buscar, segun las llamadas del error, el client.prg y no lo he encontrado ni en xHarbour ni en Harbour 3.2.
Deduzco que debes tener un Harbour antiguo. ¿ Has pensado coger los fuentes actuales de Harbour y utilizar esa parte de las contribs ?
Tampoco he identificado las llamadas con lo que tu dices "aki". Debe ser que tu te refieres a que es esa accion la que genera los problemas.

De todas formas te digo: el comando ftp.exe tiene la opcion de 'disconnect'... no se si habra que desconectar la conexion antes de cerrar(la). Es probable que el Close() prematuro le pueda sentar mal a la clase.
En todo caso, yo miraria los fuentes de la clase para saber que argumento es el que es erroneo para seguirle la pista. Si hubiera tenido los fuentes de la clase yo mismo lo hubiera hecho.

Saludos

Gracias por responder:

Uso Harbour 3.0, he revisado los fuentes de las libs y no hay la opcion de desconectar, no obstante la de conectar, subir y bajar si estan presentes, mi idea es de primero detener la descarga del archivo en curso, para que sea permitible la desconección del FTP, y despues cerrarlo con oFTP:CLOSE(), pero reitero que la opcion de la función desconectar no existe en harbour.

He detectado que si cierro la conexión a internet o si se llega a cortar si se detiene la transferencia y borra el archivo descargado, pero muestra un mensaje que que el sitio ftp retorna el mensaje de desconección, pero no se me hace correcto que por aqui este el tiro.. Lo correcto es que el comando desconectar.. Sigo investigando..

Saludos..

Víctor,

Muy, muy bueno... el cambio de tipo de objeto... Genial, SI NO se producen fugas de memoria al no cerrar el oftp de forma "ortodoxa".
Buena también la info del log que no quiere borrarse. ¿ Has probado con el Unlocker, a ver si lo puedes borrar ? Yo, por de pronto, intentaria, a ese archivo cambiarle el nombre y crearlo en temp o algo asi para que no estuviera demasiado "ubicado".

En todo caso, y como te comente, yo hubiera probado primero las rutinas ftp de fwh y/o las rutinas ftp de harbour 3.2. Pero como dicen los informaticos, si funciona ¡ no lo toques !

Saludos

Victor,

Comprueba si en tu código se usa esto:

METHOD New( oUrl, xTrace, oCredentials ) CLASS TIPClient

TIPClient():New( ... )

si especificas el segundo parámetro como .F. no se debería generar ningun fichero .log