`
primer_2004
  • 浏览: 124221 次
  • 性别: Icon_minigender_1
  • 来自: 广州
社区版块
存档分类
最新评论

webservice系列教学（3）

WebServiceMFCWindowsVBVB.NET
阅读更多
4．7使用vb.net调用
无需下载任何组件
新建项目Visual Basic项目windows应用程序。
在解决方案资源管理器中添加web引用,输入wsdl文件所在地址。
将web引用改名为yundan.
yundan.（service_name）即可引用
*需引用System.web.services*
例程：
  1. Public Class Form1   
  2.         Inherits System.Windows.Forms.Form   
  3. #Region " Windows 窗体设计器生成的代码 "   
  4.     Public Sub New()   
  5.         MyBase.New()   
  6.         InitializeComponent()   
  7.     End Sub   
  8.     Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)   
  9.         If disposing Then   
  10.             If Not (components Is Nothing) Then   
  11.                 components.Dispose()   
  12.             End If   
  13.         End If   
  14.         MyBase.Dispose(disposing)   
  15.     End Sub   
  16.     Private components As System.ComponentModel.IContainer   
  17.     Friend WithEvents Label1 As System.Windows.Forms.Label   
  18.     Friend WithEvents TextBox1 As System.Windows.Forms.TextBox   
  19.     <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()   
  20.         Me.Label1 = New System.Windows.Forms.Label()   
  21.         Me.TextBox1 = New System.Windows.Forms.TextBox()   
  22.         Me.SuspendLayout()   
  23.         Me.Label1.AutoSize = True  
  24.         Me.Label1.Location = New System.Drawing.Point(96, 40)   
  25.         Me.Label1.Name = "Label1"  
  26.         Me.Label1.Size = New System.Drawing.Size(91, 14)   
  27.         Me.Label1.TabIndex = 0  
  28.         Me.Label1.Text = "Webservice演示"  
  29.         Me.TextBox1.Location = New System.Drawing.Point(88, 144)   
  30.         Me.TextBox1.Name = "TextBox1"  
  31.         Me.TextBox1.TabIndex = 1   
  32.         Me.TextBox1.Text = "TextBox1"  
  33.         Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)   
  34.         Me.ClientSize = New System.Drawing.Size(292, 273)   
  35.         Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.TextBox1, Me.Label1})   
  36.         Me.Name = "Form1"  
  37.         Me.Text = "VB.net webserive演示"  
  38.         Me.ResumeLayout(False)   
  39.     End Sub   
  40. #End Region   
  41.     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load   
  42.         Dim cc As yundan.Service1 = New yundan.Service1()   
  43.         TextBox1.Text = cc.test(12, 123)   
  44.     End Sub   
  45. 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
    代码如下：
  1. Option Explicit   
  2. Dim cc As New MSSOAPLib.SoapClient   
  3. Private Sub Command1_Click()   
  4. cc.mssoapinit "http://192.168.0.4/yundan/Service1.asmx?WSDL"   
  5. Me.Text3.Text = cc.test(CInt(Text1.Text), CInt(Text2.Text))   
  6. End Sub  
4．9使用vbscript调用
需下载msSoapToolkit20.exe
引用：MSSOAP.SoapClient
    例程：
  1. Option Explicit   
  2. Const WSDL_URL = "http://192.168.0.4/yundan/service1.wsdl"  
  3. WScript.echo "Connecting: " & WSDL_URL   
  4. Dim Calc   
  5. Set Calc = CreateObject("MSSOAP.SoapClient")   
  6. Calc.mssoapinit WSDL_URL   
  7. Dim Answer   
  8. Answer = Calc.test(14,28)   
  9. 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à基本对话à其他默认值即可
修改源文件：
  1. < stdafx.h>  
  2. // stdafx.h : include file for standard system include files,   
  3. //  or project specific include files that are used frequently, but   
  4. //      are changed infrequently   
  5. //   
  6.   
  7. #if !defined(afx_stdafx_h__045cd307_9518_4af1_8ce3_8ffe38d1acb2__included_)   
  8. #define afx_stdafx_h__045cd307_9518_4af1_8ce3_8ffe38d1acb2__included_   
  9.   
  10. #if _msc_ver > 1000   
  11. #pragma once   
  12. #endif // _msc_ver > 1000   
  13.   
  14. #define vc_extralean        // exclude rarely-used stuff from windows headers   
  15.   
  16. #include <afxwin.h>         // mfc core and standard components   
  17. #include <afxext.h>         // mfc extensions   
  18. #include <afxdisp.h>        // mfc automation classes   
  19. #include <afxdtctl.h>       // mfc support for internet explorer 4 common controls   
  20. #ifndef _afx_no_afxcmn_support   
  21. #include <afxcmn.h>         // mfc support for windows common controls   
  22. #endif // _afx_no_afxcmn_support   
  23.   
  24.   
  25.   
  26. #import "msxml3.dll"    
  27. using namespace msxml2;   
  28.   
  29. #import "c:\program files\common files\mssoap\binaries\mssoap1.dll" exclude("istream", "isequentialstream", "_large_integer", "_ularge_integer", "tagstatstg", "_filetime") raw_interfaces_only   
  30. using namespace mssoaplib;   
  31.   
  32.   
  33. #define msg(message) \   
  34. { \   
  35.     ::messagebox(null,_t(message),null,mb_ok | mb_iconexclamation| mb_applmodal);\   
  36.     goto cleanup; \   
  37. }   
  38.   
  39.   
  40. #define check_hresult(hr, message) \   
  41. if (failed(hr)) \   
  42. { \   
  43.     msg(message); \   
  44. }    
  45.   
  46.   
  47. //{{afx_insert_location}}   
  48. // microsoft visual c++ will insert additional declarations immediately before the previous line.   
  49.   
  50. #endif // !defined(afx_stdafx_h__045cd307_9518_4af1_8ce3_8ffe38d1acb2__included_)   
  51. <mclient.h>  
  52. // mclient.h : main header file for the mclient application   
  53. //   
  54.   
  55. #if !defined(afx_mclient_h__9a397da6_5a62_4aef_be5e_6c7629322ecc__included_)   
  56. #define afx_mclient_h__9a397da6_5a62_4aef_be5e_6c7629322ecc__included_   
  57.   
  58. #if _msc_ver > 1000   
  59. #pragma once   
  60. #endif // _msc_ver > 1000   
  61.   
  62. #ifndef __afxwin_h__   
  63.     #error include 'stdafx.h' before including this file for pch   
  64. #endif   
  65.   
  66. #include "resource.h"       // main symbols   
  67.   
  68. /////////////////////////////////////////////////////////////////////////////   
  69. // cmclientapp:   
  70. // see mclient.cpp for the implementation of this class   
  71. //   
  72.   
  73. class cmclientapp : public cwinapp   
  74. {   
  75. public:   
  76.     cmclientapp();   
  77.   
  78. // overrides   
  79.     // classwizard generated virtual function overrides   
  80.     //{{afx_virtual(cmclientapp)   
  81.     public:   
  82.     virtual bool initinstance();   
  83.     //}}afx_virtual   
  84.   
  85. // implementation   
  86.   
  87.     //{{afx_msg(cmclientapp)   
  88.         // note - the classwizard will add and remove member functions here.   
  89.         //    do not edit what you see in these blocks of generated code !   
  90.     //}}afx_msg   
  91.     declare_message_map()   
  92. };   
  93.   
  94.   
  95. /////////////////////////////////////////////////////////////////////////////   
  96.   
  97. //{{afx_insert_location}}   
  98. // microsoft visual c++ will insert additional declarations immediately before the previous line.   
  99.   
  100. #endif // !defined(afx_mclient_h__9a397da6_5a62_4aef_be5e_6c7629322ecc__included_)   
分享到：
| webservice系列教学（2）
评论
发表评论

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

相关推荐

Magicbox
Global site tag (gtag.js) - Google Analytics