Animation not always working

[jfdepierre]

Dear all,

When I use the oAnimate:CopyFiles() animation as Action in a Dialog, than
the animation works fine when I do an Upload to a server.
When I do a Download from that server my animation starts only after the
Download is finished.


DEFINE DIALOG oDlf RESOURCE "DataToServer"

oAnimate = TAnimate():Redefine( 160, oDlf )

REDEFINE SBUTTON ID 161 OF oDlf ;
Title "Starten";
BORDER ;
ACTION oAnimate:CopyFiles() , DoTheUp(Down)load( oDlf, cUrl, cFile,
cEmaildef, cDomein );
COLORS CLR_WHITE, CLR_RED;
TOOLTIP "Starten"

REDEFINE SBUTTON ID 162 OF oDlf ;
Title "Cancel";
BORDER ;
ACTION oDlf:End();
COLORS CLR_WHITE, CLR_BLUE;
TOOLTIP "Terug"

ACTIVATE DIALOG oDlf

The Action DoTheUp(Down)load starts the Tiptest.prg from
xHB\Samples\Internet\

Can anyone give an indication why the animation does not work during a
download?

Thanks,


Jules de Pierre

[Antonio Linares]

Jules,

Try this in your code:

PROCEDURE ShowGauge( nSent, nSize )
SysRefresh()
Endif