TMMBlobUploadActiveEvent

Declared in: EDBMMHttp

TMMBlobUploadActiveEvent = procedure(Sender: TObject; AActive: Boolean) of object;

Callback type used by TMMUpdater.OnBlobUploadActive.
Fired True immediately before the BLOB/CLOB update loop begins for a row, and False in the finally block after all BLOBs/CLOBs for that row have been processed.

procedure TMyForm.BlobUploadActive(Sender: TObject; AActive: Boolean);
begin
  if AActive then ProgressBar1.Style := pbstMarquee
  else ProgressBar1.Style := pbstNormal;
end;

// Assignment:
Updater.OnBlobUploadActive := BlobUploadActive;

Parameters

Parameter	Description
Sender	The TMMUpdater instance that raised the event
AActive	True when the BLOB/CLOB upload loop is about to start; False when it has finished or failed

See Also

• Types
• TMMUpdater.OnBlobUploadActive
• TMMUpdater