回调函数

xiaoxiao2021-02-28  91

    如果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; ...

转载请注明原文地址: https://www.6miu.com/read-63816.html

最新回复(0)