Collapse All
AnyDAC
ContentsIndexHome
PreviousUpNext
TADASAService.OnProgress Property
TADASAService Class  TADASAService Members  uADPhysASA Namespace  Example  published  Send Feedback

Specifies the event handler allowing to communicate with the DB server.

Group

published

Links
TADASAService Class, TADASAService Members, uADPhysASA Namespace, Example, published
Description

Use the OnProgress event handler to communicate with the DB server. The event handler receives arguments:

  • AMessage - message from a DB services;
  • AKind - message kind;
  • AResult - respond from a handler.
Syntax
property OnProgress: TADASAProgressEvent;
Example
procedure TForm1.ADASABackup1Progress(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;
What do you think about this topic? Send feedback!