FireDAC.Phys.ASA.TFDASAService.OnProgress
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;