利用DataSnap的回调功能在客户端显示服务器方法的执行进度
来源:互联网 发布:wlan mac地址怎么修改 编辑:程序博客网 时间:2024/05/18 20:53
如果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;
...
- 利用DataSnap的回调功能在客户端显示服务器方法的执行进度
- asp.net利用多线程执行长时间的任务,客户端显示出任务的执行进度
- asp.net利用多线程执行长时间的任务,客户端显示出任务的执行进度
- datasnap——动态注册服务类 datasnap——动态注册服务类 在DataSnap的应用程序时,我们首先需要注册的服务器类,以提供访问客户端应用程序的服务器方法。通常的做法是使用DSSer
- asp.net利用多线程执行长时间的任务,客户端显示出任务的执行进度的示例
- asp.net利用多线程执行长时间的任务,客户端显示出任务的执行进度的示例(一)
- asp.net利用多线程执行长时间的任务,客户端显示出任务的执行进度的示例(二)
- asp.net利用多线程执行长时间的任务,客户端显示出任务的执行进度的示例(1,2)
- asp.net利用多线程执行长时间的任务,客户端显示出任务的执行进度的示例
- asp.net利用多线程执行长时间的任务,客户端显示出任务的执行进度的示例
- asp.net利用多线程执行长时间的任务,客户端显示出任务的执行进度的示例
- asp.net利用多线程执行长时间的任务,客户端显示出任务的执行进度的示例
- asp.net利用多线程执行长时间的任务,客户端显示出任务的执行进度的示例(转)
- asp.net利用多线程执行长时间的任务,客户端显示出任务的执行进度的示例(一)
- asp.net利用多线程执行长时间的任务,客户端显示出任务的执行进度的示例(二)
- asp.net利用多线程执行长时间的任务,客户端显示出任务的执行进度的示例
- asp.net利用多线程执行长时间的任务,客户端显示出任务的执行进度的示例
- 在VC++程序中显示存储过程的执行进度
- Itext中文处理(更新版) (转帖)
- linux下vi命令详解
- IIS 500错误,一步帮你搞定
- Perl Learning (7_1) —— 漫游正则表达式王国
- Linux设备驱动编程之内存与I/O操作
- 利用DataSnap的回调功能在客户端显示服务器方法的执行进度
- Android Activity的生命周期
- 从文件到字符设备
- 矩阵转置
- Windows API一日一练(58)FindFirstFile和FindNextFile函数
- 学java初步,现在不知如何学习
- 为 HTC 的 Android 手机正名
- 推荐几个itouch必安装软件|使用技巧
- Unicode 8 和 Unicode 16的转换代码