服务器与客户端回叫

服务器与客户端回叫

   从Delphi2010开始,DataSnap支持回叫(Call Back)机制。这样,在调用耗时较长的方法时,通过回叫机制,返回服务器进程或正在处理的目标对象。

    一、客户端实现步骤
    在客户端声明TClientModule1的单元文件uClientModule中:
    1、声明一个从TDBXCallback继承下来的对象(用于回叫参数值),并实现复载的步骤。

type
  TInitCallback = class(TDBXCallback)
    function Execute(const Arg: TJSONValue): TJSONValue; override;
  end;

  TProgCallback = class(TDBXCallback)
    function Execute(const Arg: TJSONValue): TJSONValue; override;
  end;

    2、初始化创建该对象

Initialization      // 初始化 创建
  InitCallback := TInitCallback.Create;
  ProgCallback := TProgCallback.Create;

    3、实现声明的方法

function TProgCallback.Execute(const Arg: TJSONValue): TJSONValue;
begin
  with MainFrm do
  begin
    ProgressBar1.Position  := TJSONNumber(Arg).AsInt;
    Button5.Enabled := (TJSONNumber(Arg).AsInt = ProgressBar1.Max);
  end;
  //刷新屏幕
  Application.ProcessMessages;
  Result := TJSONNull.Create;     // 回传Null值
end;

function TInitCallback.Execute(const Arg: TJSONValue): TJSONValue;
begin
  with MainFrm do
  begin
    ProgressBar1.Max := TJSONNumber(Arg).AsInt;
    ProgressBar1.Step := 5;
    Edit1.Text := '总时长:' + TJSONNumber(Arg).ToString + '秒';
    Button5.Enabled := False;
  end;
  Result := TJSONNull.Create;
end;

    4、调用回叫方法
procedure TMainFrm.Button5Click(Sender: TObject);
begin
  ClientModule1.ServerMethods1Client.LongTimeRunFunc(InitCallback, ProgCallback);
end;

    二、服务器端实现步骤
    在服务器端声明TServerMethods1的单元文件uServerMethods中:
    1、编写一个带回叫机制的方法
    在方法的形参中,带入客户端的回叫参数:

function TServerMethods1.LongTimeRunFunc(InitCallback, ProgCallback: TDBXCallback): boolean;
var Max: Integer;
    I: Integer;
begin
  Max := Random(120) + 1;
  InitCallback.Execute(TJSONNumber.Create(Max)).Free;   // 将Max值通过JSON格式,通过InitCallback执行回叫后,释放该对象
  for I := 0 to Max do
  begin
    ProgCallback.Execute(TJSONNumber.Create(I)).Free;   // 将I值通过JSON格式,通过ProgCallback执行回叫后,释放该对象
    sleep(1000);
  end;
  Result := True;
end;

    2、声明该方法

  public
    { Public declarations }
    function LongTimeRunFunc(InitCallback, ProgCallback: TDBXCallback): boolean; 

    三、客户端声明服务器端输入方法的对象
    服务器端声明的方法(对象),需要在客户端中声明,才能使得二者之间实现数据传递。
    1、执行服务器端程序。
    2、在客户端的ClientModule1的单元,通过鼠标右键点击SQLConnection1,选择“Generate DataSnap client classses”项目。

    四、运行机制
    客户端声明的TProgCallback是继承TDBXCallback的对象,它复载虚方法Execute,在服务器端运行,接受一个TJSONValue的参数,并且回传一个TJSONValue的结果值。TDBXCallback的回叫机制很有意思:服务器端在回叫客户端的方法时,可以将需要回传缎带客户端的值或对象,以TJSONValue的形式,当作虚方法Execute的参数回传缎带客户端,而客户端的方法,在被回叫执行完毕后,也可以将执行结果,以TJSONValue的形式,回传给服务器端。

你可能感兴趣的:(数据,服务器,Delphi,XE,DataSnap)