FireDAC.Phys.ASA.TFDASAService.OnProgress

• 親: TFDASAService

Delphi

property OnProgress: TFDASAProgressEvent read FOnProgress write FOnProgress;

C++

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

プロパティ

種類	可視性	ソース	ユニット	親
event	published	FireDAC.Phys.ASA.pas FireDAC.Phys.ASA.hpp	FireDAC.Phys.ASA	TFDASAService

説明

DB サーバーとの通信を可能にする、イベント ハンドラを示します。

OnProgress イベント ハンドラを使用すると、DB サーバーとの通信が可能になります。 イベント ハンドラは、次の引数を受け取ります：

• AMessage -- DB サービスからのメッセージ
• AKind -- メッセージの種類
• AResult -- ハンドラからの回答

例

 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;

関連項目

• FireDAC.Phys.ASA.TFDASAService