当前位置:学Delphi网文档资料技术资料其他

Delphi编程RemObject的异步调用

减小字体 增大字体 作者:佚名  来源:转载  发布时间:2011-02-18 22:55:24

特别在internet上,让用户等候处理结果是非常不明智的。用 Remobject的异步调用易如反掌。

在D2007中IDE调用SERVICE BUILDER菜单codegen/delphi/async interface生成单元_Async.pas。在自己的单元中如:myunit.pas 使用uses _Async.pas。

接下来在myunit.pas中增加2各按钮:invoke_buttom 和receive_buttom,再增加一个timer。

procdure invoke_buttom (...)
begin
fProxy := CoCalcServer_Async.Create(binmessage1,htpchannel1);
fProxy.Invoke_???(...);
invoke_buttom.Enabled := False;
end;

procdure receive_buttom (...)
begin
   ShowMessage(ReceiveClick(...);
fProxy. := nil;
invoke_buttom.Enabled := True;
receive_buttom.Enabled := False;
end;

procdure time1_checktimer(...)
begin
   receive_buttom.Enabled := Assigned(fProxy) and fProxy.AnswerReceived;
end;
fProxy.AnswerReceived属性在接口中已经定义。用于判断调用是否完成。

来自:http://blog.csdn.net/aroc_lo/archive/2010/04/07/5456852.aspx

Tags:

作者:佚名
  • 好的评价 如果您觉得此文章好,就请您
      0%(0)
  • 差的评价 如果您觉得此文章差,就请您
      0%(0)

文章评论评论内容只代表网友观点,与本站立场无关!

   评论摘要(共 0 条,得分 0 分,平均 0 分) 查看完整评论

广告位置B