怎样在VB6中访问WEBSERVICE

俺想在VB6中调用WEBSERVICE，可是不知道怎么用，听说有专门给VB6用的SOAP开发包，谁能给个具体的例子？ 问题点数：50、回复次数：2Top

1 楼SoHo_Andy（冰）回复于 2003-12-04 08:12:59 得分 50

在VB中调用Webservice实例  
   
  这个就要相对来说复杂一些    
  首先在vb中建立一个”标准EXE”的工程。添加引用：Microsoft     Soap     Type     library。注意：如果没有安装Microsoft     Soap     Toolkit,是没有这个类型库的。    
  可以在http://www.ourfly.com中下载。    
  添加一个text    
  Private     Sub     Form_Load()    
                  Text1.Text     =     add()    
  End     Sub    
   
  Public     Function     Add()     As     String    
          Dim     objSoapClient     As     New     SoapClient    
          objSoapClient.ClientProperty("ServerHTTPRequest")     =     True    
          Call     objSoapClient.mssoapinit("http://localhost/webserver/service1.asmx?WSDL",     "Service1",     "Service1Soap")    
  这句也可以    
  objSoapClient.mssoapinit("http://localhost/webserver/service1.asmx?WSDL")    
   
                  Add     =     objSoapClient.Show("龙卷风.NET")    
  End     Function    
   
  调试成功需要注意的：    
  运行服务端webservice的程序，出现下面时    
  支持下列操作。有关正式定义，请查看服务说明。    
  点击服务说明，会得到完整的wsdl文件    
  http://localhost/webserver/Service1.asmx?WSDL    
  我们就要使用这个文件，其中包含了我们定义的方法等等。    
   
  Mssoapinit(bstrWSDLFile     as     string,[bStrServiceName     as     string     ],[bStrport     as     string     ]     ,[bstrWSMLDile     as     string])的用法：    
  其中第二个，第三个参数在wsdl文件中可以找到。也可以省略。    
  Top

2 楼SoHo_Andy（冰）回复于 2003-12-04 08:15:56 得分 0

下面是以前网友调试成功的例子  
  Private   Client   As   SoapClient  
  Dim   soap  
  Private   Sub   Connect()  
        Set   Client   =   New   SoapClient30  
        Client.ClientProperty("ServerHTTPRequest")   =   True  
        Call   Client.MSSoapInit("http://localhost:7001/client/Client/wsdl.jsp",   "ClientRemote",   "ClientRemotePort")  
  End   Sub  
     
  Private   Sub   getTemperature_Click()  
          On   Error   GoTo   ErrorHandler  
           
          Connect  
           
          Exit   Sub  
  ErrorHandler:  
          MsgBox   Client.FaultString,   vbExclamation  
  End   SubTop

相关问题

• vb6
• webservice
• wsdl
• client
• 文件
• vb
• soap
• service
• objsoapclient
• mssoapinit

• 帖主：yuejin
• SoHo_Andy

• Visual Basic类图书
• Visual Basic类源码下载