TAsynFileDownload Alguien tiene algún ejemplo

[bingen]

No consigo hacer funcionar TAsynFileDownload que hago mal? Alguien tiene algún ejemplo.... Gracias.

WITH OBJECT TAsynFileDownload():New()
:cRemoteFile := ::cURL
:cLocalFile := ::cPathDestino + ::cNombreDestino
:OnTotalLengthInfo := {|oSender,nTotalLength| ::oProgressBar:nMax:=nTotalLength, MsgInfo(nTotalLength) }
:OnTotalDnLoadInfo := {|oSender,nTotalDown| ::oProgressBar:nValue:=nTotalDown , IF(nTotalDown>=::oProgressBar:nMax,Application:End(),Nil) }
:OnError := {|oSender| MsgInfo("Se ha producido el error: "+:cError),Application:End() }
:Run()
end

[ignacio]

Veo que la falta un Create()

Del propio código del IDE:

Código: Seleccionar todo

   WITH OBJECT TAsynFileDownload():New( oMainForm )
      :OnConnect    := {|o| ::OnConnect( o ) }
      :OnDisconnect := {|o| ::ProcessInfoFile( cLocInfoFile, o ) }
      :OnError      := {|o| IIF( o:nStatus == 404,, ::Error( o:cError ) ) }
      :cRemoteFile  := cUrlInfoFile
      :cLocalFile   := cLocInfoFile
      :Create()
      :Run()
   END WITH

Es importante que controles que o:nStatus es 404

Saludos

[bingen]

Pues tienes mucha razón con el :Create() que me he olvidado funciona bien.

Dices que el trozo de código esta en el IDE ? donde? en el manual no y no he encontrado ningún sample tampoco.

Será que estoy torpe.....

Gracias.

[jfgimenez]

Bingen,
lo que ha querido decir Ignacio es que ese trozo de código está copiado de nuestro propio código del IDE, pero no es público. Concretamente usamos esa clase para descargar las actualizaciones automáticas, ya que no bloquean el funcionamiento del resto del IDE.