OnBlobUploadActive

Class: TMMUpdater

property OnBlobUploadActive : TMMBlobUploadActiveEvent;

Fired True immediately before the BLOB/CLOB updates loop begins for a row, and False after all BLOBs/CLOBs for that row have been processed.
Use to start and stop a marquee progress bar during BLOB/CLOB uploads.

See TMMBlobUploadActiveEvent.

// Declare in your form or class:
procedure TMyForm.BlobUploadActive(Sender: TObject; AActive: Boolean);
begin
  if AActive then ProgressBar1.Style := pbstMarquee
  else ProgressBar1.Style := pbstNormal;
end;

// Assignment:
Updater.OnBlobUploadActive := BlobUploadActive;

See Also

• TMMUpdater
• API Reference