FireDAC.Phys.ASA.TFDASAService.OnProgress

• Up to Parent: TFDASAService

Delphi

property OnProgress: TFDASAProgressEvent read FOnProgress write FOnProgress;

C++

__property TFDASAProgressEvent OnProgress = {read=FOnProgress, write=FOnProgress};

Properties

Type	Visibility	Source	Unit	Parent
event	published	FireDAC.Phys.ASA.pas FireDAC.Phys.ASA.hpp	FireDAC.Phys.ASA	TFDASAService

Description

Specifies the event handler allowing to communicate with the DB server.

Use the OnProgress event handler to communicate with the DB server. The event handler receives the following arguments:

• AMessage--the message from a DB service
• AKind--the message kind
• AResult--the answer from a handler

Example

procedure TForm1.FDASABackup1Progress(ASender: TObject; AMessage: string;
  AKind: TASAToolMessageKind; var AResult: Integer);
begin
  if Memo1 <> nil then
    Memo1.Lines.Add(AMessage);
  if AKind = tmConfirm then
    if MessageDlg(AMessage, mtConfirmation, mbYesNo, -1) = mrYes then
      AResult := 1
    else
      AResult := 0;
end;

See Also

• FireDAC.Phys.ASA.TFDASAService