TMMUpdaterProgressEvent

Declared in: EDBMMClient

TMMUpdaterProgressEvent = procedure(
  ASender     : TMMUpdater;
  AChunksDone : Integer;   // chunks confirmed by the server so far
  ARowsDone   : Int64;     // cumulative rows sent so far
  ARowsTotal  : Int64      // total rows in the local EDB buffer table
  ) of object;

Progress callback assigned to TMMUpdater.OnProgress.
Fired after each chunk is acknowledged by the server during Execute.

Parameters

Parameter	Description
ASender	The TMMUpdater instance that raised the event
AChunksDone	Number of chunks successfully sent and confirmed by the server
ARowsDone	Cumulative rows sent across all confirmed chunks
ARowsTotal	Total rows in the local EDB buffer table; use as the denominator for a progress bar

Example

// Declare in your form or class:
procedure TMyForm.UpdaterProgress(ASender: TMMUpdater; AChunksDone: Integer;
  ARowsDone, ARowsTotal: Int64);
begin
  if ARowsTotal > 0 then
    ProgressBar1.Position := Trunc(ARowsDone * 100 / ARowsTotal);
  lblStatus.Caption := Format('%d / %d rows sent', [ARowsDone, ARowsTotal]);
  Application.ProcessMessages;
end;

// Assignment:
Updater.OnProgress := UpdaterProgress;

See Also

• Types
• TMMUpdater