FireDAC.Phys.ASA.TFDASAService.OnProgress

• Up to Parent: TFDASAService

[–] Properties Type: event Visibility: published Source:

FireDAC.Phys.ASA.pas

FireDAC.Phys.ASA.hpp

Unit: FireDAC.Phys.ASA Parent: TFDASAService

Delphi

property OnProgress: TFDASAProgressEvent read FOnProgress write FOnProgress;

C++

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

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