El caso es que hay algunos clientes que no llegan a descargar el archivo, es como si se les bloqueara la descarga del archivo zip que tengo alojado en mi FileZilla.
En el FileZilla veo que "entra" la petición de conexion, pero el terminal de mi cliente se queda "bloqueado" un par de minutillos, supongo esperando respuesta del servidorFTP.
¿Puede deberse al FireWall??? Antivirus???
¿Como podria "salvar" ese contratiempo???
Lo estoy utilizando así...
Código: Seleccionar todo
PROCEDURE xDownload( Self, cRemoteFile, cLocalFile )
Local cServer := miIP_DynDNS
LOCAL nBuffer := 32 * 1024
LOCAL cBuffer := Space( nBuffer )
LOCAL hRemote, hFile
Application:lBusy := .T.
::lEnabled := .F.
WITH OBJECT TFTP():Create()
:cUser := "miUser"
:cPassword := "miPass"
IF :Open() .and. :Connect( cServer ) .and.;
(hRemote := :OpenFile( cRemoteFile ) ) > 0 .and. (hFile := FCreate( cLocalFile )) > 0
WHILE :ReadFile( hRemote, @cBuffer, nBuffer )
FWrite( hFile, cBuffer )
TRY; ::oProgressBar1:nValue += Len( cBuffer ); CATCH; END
END
:CloseFile( hRemote )
FClose( hFile )
ENDIF
:Destroy()
END
::lEnabled := .T.
Application:lBusy := .F.
RETURN
Gracias.