[DUG] Indy FTP OnWork event

[Mike Stokes]

Thanks for that.

The only problem is that the OnWork event does not fire at all when 
using the TIdFTP component for file uploads.
It does however work for file downloads.


All the best,
Mike Stokes

Alister Christie wrote:
> 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
>>
>>
>
>
>