webservice系列教学（3）

primer_2004

浏览: 127967 次
性别:
来自: 广州

最近访客更多访客>>

gxh973121

joseph1985

lirihong

博主相关

博客

微博

相册

留言

关于我

文章分类

社区版块

存档分类

博客分类：

JSP&Servlet

WebService MFC Windows VB VB.NET

4．7使用vb.net调用
无需下载任何组件
新建项目Visual Basic项目windows 应用程序。
在解决方案资源管理器中添加web引用,输入wsdl文件所在地址。
将web引用改名为yundan.
yundan.（service_name）即可引用
*需引用System.web.services*
例程：

Public Class Form1
Inherits System.Windows.Forms.Form
#Region " Windows 窗体设计器生成的代码 "
Public Sub New()
MyBase.New()
InitializeComponent()
End Sub
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
Private components As System.ComponentModel.IContainer
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.Label1 = New System.Windows.Forms.Label()
Me.TextBox1 = New System.Windows.Forms.TextBox()
Me.SuspendLayout()
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(96, 40)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(91, 14)
Me.Label1.TabIndex = 0
Me.Label1.Text = "Webservice演示"
Me.TextBox1.Location = New System.Drawing.Point(88, 144)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.TabIndex = 1
Me.TextBox1.Text = "TextBox1"
Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
Me.ClientSize = New System.Drawing.Size(292, 273)
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.TextBox1, Me.Label1})
Me.Name = "Form1"
Me.Text = "VB.net webserive演示"
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim cc As yundan.Service1 = New yundan.Service1()
TextBox1.Text = cc.test(12, 123)
End Sub
End Class

4．8使用vb6.0调用
需下载msSoapToolkit20.exe
添加引用：Microsoft Soap Type Library
位置:”C:\Program Files\Common Files\MSSoap\Binaries\ MSSOAP1.dll”
    调用方法：
    Dim cc As New MSSOAPLib.SoapClient
    例程：
    新建工程标准EXE添加3个textbox控件，text1,text2,text3添加一个button控件Command1
    代码如下：

Option Explicit
Dim cc As New MSSOAPLib.SoapClient
Private Sub Command1_Click()
cc.mssoapinit "http://192.168.0.4/yundan/Service1.asmx?WSDL"
Me.Text3.Text = cc.test(CInt(Text1.Text), CInt(Text2.Text))
End Sub

4．9使用vbscript调用
需下载msSoapToolkit20.exe
引用：MSSOAP.SoapClient
例程：

Option Explicit
Const WSDL_URL = "http://192.168.0.4/yundan/service1.wsdl"
WScript.echo "Connecting: " & WSDL_URL
Dim Calc
Set Calc = CreateObject("MSSOAP.SoapClient")
Calc.mssoapinit WSDL_URL
Dim Answer
Answer = Calc.test(14,28)
WScript.Echo "14+28=" & Answer

将其存成domo.vbs文件，直接双击运行。

4.10使用vc调用
需下载mssoaptoolkit20.exe
引用
#import "msxml3.dll"
using namespace msxml2;

#import "c:\program files\common files\mssoap\binaries\mssoap1.dll" exclude("istream", "isequentialstream", "_large_integer", "_ularge_integer", "tagstatstg", "_filetime") raw_interfaces_only
using namespace mssoaplib;
例程：
新建工程àmfc appwizard(exe)[ mclient]àstep1à基本对话à其他默认值即可
修改源文件：

< stdafx.h>
// stdafx.h : include file for standard system include files,
// or project specific include files that are used frequently, but
// are changed infrequently
//
#if !defined(afx_stdafx_h__045cd307_9518_4af1_8ce3_8ffe38d1acb2__included_)
#define afx_stdafx_h__045cd307_9518_4af1_8ce3_8ffe38d1acb2__included_
#if _msc_ver > 1000
#pragma once
#endif // _msc_ver > 1000
#define vc_extralean // exclude rarely-used stuff from windows headers
#include <afxwin.h> // mfc core and standard components
#include <afxext.h> // mfc extensions
#include <afxdisp.h> // mfc automation classes
#include <afxdtctl.h> // mfc support for internet explorer 4 common controls
#ifndef _afx_no_afxcmn_support
#include <afxcmn.h> // mfc support for windows common controls
#endif // _afx_no_afxcmn_support
#import "msxml3.dll"
using namespace msxml2;
#import "c:\program files\common files\mssoap\binaries\mssoap1.dll" exclude("istream", "isequentialstream", "_large_integer", "_ularge_integer", "tagstatstg", "_filetime") raw_interfaces_only
using namespace mssoaplib;
#define msg(message) \
{ \
::messagebox(null,_t(message),null,mb_ok | mb_iconexclamation| mb_applmodal);\
goto cleanup; \
}
#define check_hresult(hr, message) \
if (failed(hr)) \
{ \
msg(message); \
}
//{{afx_insert_location}}
// microsoft visual c++ will insert additional declarations immediately before the previous line.
#endif // !defined(afx_stdafx_h__045cd307_9518_4af1_8ce3_8ffe38d1acb2__included_)
<mclient.h>
// mclient.h : main header file for the mclient application
//
#if !defined(afx_mclient_h__9a397da6_5a62_4aef_be5e_6c7629322ecc__included_)
#define afx_mclient_h__9a397da6_5a62_4aef_be5e_6c7629322ecc__included_
#if _msc_ver > 1000
#pragma once
#endif // _msc_ver > 1000
#ifndef __afxwin_h__
#error include 'stdafx.h' before including this file for pch
#endif
#include "resource.h" // main symbols
/////////////////////////////////////////////////////////////////////////////
// cmclientapp:
// see mclient.cpp for the implementation of this class
//
class cmclientapp : public cwinapp
{
public:
cmclientapp();
// overrides
// classwizard generated virtual function overrides
//{{afx_virtual(cmclientapp)
public:
virtual bool initinstance();
//}}afx_virtual
// implementation
//{{afx_msg(cmclientapp)
// note - the classwizard will add and remove member functions here.
// do not edit what you see in these blocks of generated code !
//}}afx_msg
declare_message_map()
};
/////////////////////////////////////////////////////////////////////////////
//{{afx_insert_location}}
// microsoft visual c++ will insert additional declarations immediately before the previous line.
#endif // !defined(afx_mclient_h__9a397da6_5a62_4aef_be5e_6c7629322ecc__included_)

分享到：

webservice系列教学（4） | webservice系列教学（2）

2007-11-05 23:14
浏览 1279
评论(0)
查看更多

发表评论

您还没有登录,请您登录后再发表评论

最近访客更多访客>>

博主相关

文章分类

社区版块

存档分类

最新评论