[DUG] Indy FTP OnWork event

[Alister Christie]

Try something like

in OnWorkBegin:
  pFileProgress.Position := 0;
  pFileProgress.Max := aWorkCountMax;
  pFileProgress.Visible := TRUE;

in On WorkEnd:
  pFileProgress.Visible := FALSE;

in OnWork:
  pFileProgress.Position := AWorkCount;
  Application.ProcessMessages;  (or UpdateWindow(Handle) or similar)

Alister Christie
Computers for People
Ph: 04 471 1849 Fax: 04 471 1266
http://www.salespartner.co.nz
PO Box 13085
Johnsonville
Wellington 



Mike Stokes wrote:
> Hello everyone.
>
> I have just started using the Indy FTP component as I need to be able 
> to uploads onto a Linux box from a Delphi application.
>
> I am having trouble getting the Indy TIdFTP component's OnWork event 
> to fire when I use the “put” method to upload a file.
> It seems to work fine when I use the “get” method to download a file.
>
> All I am wanting is to be able to update a progress bar to show how 
> much longer the upload is going to take.
>
>
> All the best,
> Mike Stokes
> _______________________________________________
> NZ Borland Developers Group - Delphi mailing list
> Post: delphi at delphi.org.nz
> Admin: http://delphi.org.nz/mailman/listinfo/delphi
> Unsubscribe: send an email to delphi-request at delphi.org.nz with 
> Subject: unsubscribe
>
>