TFTP algunos clientes no descargan
Publicado: Dom Ene 14, 2018 5:19 pm
El tema de descarga para actualizaciones lo estoy haciendo via FTP.
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í...
¿Hay alguna manera de hacer la conexion/descarga FTP de otra forma (con seguridad) que no lo obstaculize el Antivirus o el Cortafuegos??
Gracias.
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.