|
AnyDAC
|
Specifies the event handler allowing to handle the DB server feedback.
property OnProgress: TADPhysServiceProgressEvent;
ADIBBackup1.DriverLink := ADPhysIBDriverLink1; // set host, database, etc properties ADIBBackup1.Verbose := True; ADIBBackup1.OnProgress := Form1Progress; procedure TForm1.Form1Progress(ASender: TADPhysDriverService; const AMessage: String); begin Memo1.Lines.Add(AMessage); Application.ProcessMessages; end;
|
What do you think about this topic? Send feedback!
|