如果DataSnap服务器方法的执行时间比较长，这时候可能需要在客户端用进度条显示当前服务器方法的执行进度。要实现这种需求，现在可以利用DataSnap的回调功能，此功能是从Delphi 2010版本开始被引入的。
要实现回调，服务器方法需要暴露给客户端一个或多个类型为TDBXCallback的参数。例如：...{$METHODINFO ON} TServerMethods1 = class(TComponent) private { Private declarations } public { Public declarations } function LongTimeRunFunc(InitCallback, ProgCallback: TDBXCallback): boolean; end;{$METHODINFO OFF}...LongTimeRunFunc方法带有两个回调参数，InitCallback用来初始化客户端TProgressBar的设置，ProgCallback根据当前方法的执行进度，设置客户端TProgressBar.Position的属性。
implementation...function TServerMethods1.LongTimeRunFunc(InitCallback, ProgCallback: TDBXCallback): boolean;var Max: Integer; I: Integer;begin Max := Random(120) + 1; InitCallback.Execute(TJSONNumber.Create(Max)).Free;
for I := 0 to Max do begin ProgCallback.Execute(TJSONNumber.Create(I)).Free; sleep(1000); end;
Result := True;end;...LongTimeRunFunc函数生成一个随机数，表示将执行的秒数。InitCallback和ProgCallback在execute时，将等待客户端执行完毕才继续。
而客户端这边的代码，需要申明两个继承自TDBXCallback（抽象类）的类，并且重载Execute方法，... TInitCallback = class(TDBXCallback) function Execute(const Arg: TJSONValue): TJSONValue; override; end;
TProgCallback = class(TDBXCallback) function Execute(const Arg: TJSONValue): TJSONValue; override; end;...
implementation...function TProgCallback.Execute(const Arg: TJSONValue): TJSONValue;begin with Form2 do begin ProgressBar1.Position := TJSONNumber(Arg).AsInt; btnStart.Enabled := (TJSONNumber(Arg).AsInt = ProgressBar1.Max); end; //刷新屏幕 Application.ProcessMessages; Result := TJSONNull.Create;end;
function TInitCallback.Execute(const Arg: TJSONValue): TJSONValue;begin with Form2 do begin ProgressBar1.Max := TJSONNumber(Arg).AsInt; ProgressBar1.Step := 5; Edit1.Text := '总时长：' + TJSONNumber(Arg).ToString + '秒'; btnStart.Enabled := False; end; Result := TJSONNull.Create;end;
procedure TForm2.btnStartClick(Sender: TObject);begin ClientModule1.ServerMethods1Client.LongTimeRunFunc(InitCallback, ProgCallback);end;
Initialization InitCallback := TInitCallback.Create; ProgCallback := TProgCallback.Create;...
