FireDAC.Phys.ASA.TFDASAService.OnProgress
Delphi
property OnProgress: TFDASAProgressEvent read FOnProgress write FOnProgress;
C++
__property TFDASAProgressEvent OnProgress = {read=FOnProgress, write=FOnProgress};
Inhaltsverzeichnis
Eigenschaften
Typ | Sichtbarkeit | Quelle | Unit | Übergeordnet |
---|---|---|---|---|
event | published | FireDAC.Phys.ASA.pas FireDAC.Phys.ASA.hpp |
FireDAC.Phys.ASA | TFDASAService |
Beschreibung
Gibt die Ereignisbehandlungsroutine an, die die Kommunikation mit dem DB-Server ermöglicht.
Mit der Eigenschaft OnProgress können Sie mit dem DB-Server kommunizieren. Die Ereignisbehandlungsroutine empfängt folgende Argumente:
AMessage
- Die Meldung von einem DB-DienstAKind
- Die Art der MeldungAResult
- Die Antwort von einer Ereignisbehandlungsroutine
Beispiel
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;