FireDAC.Phys.ASA.TFDASAService.OnProgress

Aus RAD Studio API Documentation
Wechseln zu: Navigation, Suche

Delphi

property OnProgress: TFDASAProgressEvent read FOnProgress write FOnProgress;

C++

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

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-Dienst
  • AKind - Die Art der Meldung
  • AResult - 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;

Siehe auch