关于webservice的异步调用实例

关于webservice的异步调用简单实例
无论在任何情况下，被调用方的代码无论是被异步调用还是同步调用的情况下，被调用方的代码都是一样的，

下面，我们就以异步调用一个webservice 为例作说明。
这是一个webservice

    _
    public function delcurtable(byval tbname as string) as boolean
        try
            return true
        catch ex as exception
            return false
        end try
    end function

关于这个webservice的同步调用方法，我就不做说明了
异步调用：
 private a as vbwebservice.datamanage'定义一个webservice变量
  dim ar as iasyncresult
public sub callback1(byval ar as iasyncresult)
''这里可以不写任何代码
'这里的代码在调用方运行结束后，开始运行
end sub

#region "异步调用"
private sub btnstart_click()
dim cb as asyncallback=new asyncallback(address(me.callback1))
ar=a.begindelcurtable("zdf",cb,a)
end sub

private sub btnend_click()
if ar is nothing then
exit sub
end if
if  ar.iscompleted then
dim m as boolean=a.enddelcurtable(ar)
messagebox.show(m.tostring)
end if
end sub
#end region
注意：“返回异步调用的结果一次只能调用一次，如果想再执行一遍，就必须重新执行一遍begin的方法”
以上是vb.net的用法，下面是c#的用法
cwebservice.datamanage  a;
  system.iasyncresult ar;
  private void form1_load(object sender, system.eventargs e)
  {
   a=new cwebservice.datamanage();
  }

  
  public void callback1(system.iasyncresult ar)
  {
  }

  private void btnstart_click(object sender, system.eventargs e)
  {
   system.asynccallback cb=new asynccallback(this.callback1);
   ar=a.begindelcurtable("zhang",cb,a);
  }

  private void btnend_click(object sender, system.eventargs e)
  {
   if(ar==null)
   {
    messagebox.show("null");
    return ;
   }
   if(ar.iscompleted )
   {
    bool m=a.enddelcurtable(ar);
    messagebox.show(m.tostring());
   }
   else
   {
    messagebox.show("为完成");
   }
  }

商业源码热门下载www.html.org.cn