|
<< Click to Display Table of Contents >> Navigation: Apollo VCL Components > Apollo VCL Component Reference > TApolloConnection > TApolloConnection Events > OnWriteProgress |
Declaration
OnWriteProgress( Sender: TComponent; Min, Max, Position: Integer);
Description
Fires as each 8k buffer full of data is written to the server. When querying small tables, this progress can reach 100% before you can blink. Position parameter is automatically reset to zero (0) once the Max value is reached. This event also fires when receiving a file via a call to the FileSend method. Also works on local table when used with the Apollo SQL add-on.
Delphi Example
procedure TForm1.apcWriteProgress(Sender: TComponent; Min, Max, Position: Integer);
begin
if Min > 0 then
ProgressBar1.Min := Min;
if Max > 0 then
ProgressBar1.Max := Max;
// Auto-reset at 100%
ProgressBar1.Position := (Position mod ProgressBar1.Max);
end;
See Also