FireDAC.Phys.ASA.TFDASAService.OnProgress

• Aller au parent : TFDASAService

Delphi

property OnProgress: TFDASAProgressEvent read FOnProgress write FOnProgress;

C++

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

Propriétés

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

Description

Spécifie le gestionnaire d'événement qui permet de communiquer avec le serveur de base de données.

Utilisez le gestionnaire d'événement OnProgress pour communiquer avec le serveur de base de données. Le gestionnaire d'événement reçoit les arguments suivants :

• AMessage -- le message à partir d’un service de base de données
• AKind -- le type de message
• AResult -- la réponse à partir d’un gestionnaire

Exemple

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;

Voir aussi

• FireDAC.Phys.ASA.TFDASAService