webservice系列教学(16)-如何调用webservice(vc7)

web

//////////////////////////////////////////////////////////////////////////////////////////////////
//  function: CMClientDlg::assignItem()
//
//  parameters: (LVITEM *item, UINT mask, int iItem, int iSubItem, LPTSTR pszText, int cchTextMax)
//
//  description: assigns the given values  for a LVITEM type item
//
//  returns: void
//
//////////////////////////////////////////////////////////////////////////////////////////////////
void CMClientDlg::assignItem(LVITEM *item, UINT mask, int iItem, int iSubItem, LPTSTR pszText, int cchTextMax)
{
    item->mask            = mask;
    item->iItem            = iItem;
    item->iSubItem        = iSubItem;
    item->pszText        = pszText;
    item->cchTextMax    = cchTextMax;
    return;
}
//////////////////////////////////////////////////////////////////////////////////////////////////
//  function: CMClientDlg::AssignpRef()
//
//  parameters: (VARIANT *var1, VARIANT *var2)
//
//  description: assigns the value of var1 ,from var2 variant type
//
//  returns: void
//
//////////////////////////////////////////////////////////////////////////////////////////////////
void CMClientDlg::AssignpRef(VARIANT *var1, VARIANT *var2)
{
    switch (var2->vt)
    {
    case VT_BOOL:
        V_BOOLREF(var1)     = &var2->boolVal;
        break;
    case VT_BSTR:
        V_BSTRREF(var1)     = &var2->bstrVal;
        break;
    case VT_DATE:
        V_DATEREF(var1)     = &var2->date;
        break;
    case VT_DECIMAL:
        V_DECIMALREF(var1)  = &var2->decVal;
        break;
    case VT_I1:
        V_I1REF(var1)       = &var2->cVal;
        break;
    case VT_I2:
        V_I2REF(var1)       = &var2->iVal;
        break;
    case VT_I4:
        V_I4REF(var1)       = &var2->lVal;
        break;
    case VT_R4:
        V_R4REF(var1)       = &var2->fltVal;
        break;
    case VT_R8:
        V_R8REF(var1)       = &var2->dblVal;
        break;
    case VT_UI1:
        V_UI1REF(var1)      = &var2->bVal;
        break;
    case VT_UI2:
        V_UI2REF(var1)      = &var2->uiVal;
        break;
    case VT_UI4:
        V_UI4REF(var1)      = &var2->ulVal;
        break;
    case VT_INT:
        V_INTREF(var1)      = &var2->intVal;
        break;
    case VT_CY:
        V_CYREF(var1)       = &var2->cyVal;
        break;
    default :
        V_R8REF(var1)       = &var2->dblVal;
    };
    return;
}
void CMClientDlg::DisableButtons()
{
    GetDlgItem(IDC_EXECUTE)->EnableWindow(FALSE);
    GetDlgItem(IDC_CLOSE)->EnableWindow(FALSE);
    GetDlgItem(IDC_EDIT)->EnableWindow(FALSE);
    GetDlgItem(IDBROWSE)->EnableWindow(FALSE);
    GetDlgItem(IDLOAD)->EnableWindow(FALSE);
}
void CMClientDlg::EnableButtons()
{
     GetDlgItem(IDC_EXECUTE)->EnableWindow(TRUE);
     GetDlgItem(IDC_CLOSE)->EnableWindow(TRUE);
     GetDlgItem(IDC_EDIT)->EnableWindow(TRUE);
     GetDlgItem(IDBROWSE)->EnableWindow(TRUE);
     GetDlgItem(IDLOAD)->EnableWindow(TRUE);
}

时间: 2024-12-23 01:42:39

webservice系列教学(16)-如何调用webservice(vc7)的相关文章

webservice系列教学(3)-如何调用webservice

web 4.如何调用webservice4.0 webservice的调用过程    客户端:取得服务端的服务描述文件WSDL,解析该文件的内容,了解服务端的服务信息,以及调用方式.根据需要,生成恰当的SOAP请求消息(指定调用的方法,已经调用的参数),发往服务端.等待服务端返回的SOAP回应消息,解析得到返回值. 服务端:生成服务描述文件,以供客户端获取.接收客户端发来的SOAP请求消息,解析其中的方法调用和参数格式.根据WSDL和WSML的描述,调用相应的COM对象来完成指定功能,并把返回值

webservice系列教学(6)-如何调用webservice(C#,)

web 4. 5使用C#调用无需下载任何组件新建项目Visual C#项目windows应用程序.在解决方案资源管理器中添加web引用,输入wsdl文件所在地址.将web引用改名.yundan.(service_name)即可引用*需引用System.web.services*例程:using System;using System.Drawing;using System.Collections;using System.ComponentModel;using System.Windo

webservice系列教学(5)-如何调用webservice(Jscript,vbscript)

js|jscript|vbscript|web 4. 3 在asp中使用Jscript调用需下载msSoapToolkit20.exe引用:MSSOAP.SoapClient    例程:    <%@ LANGUAGE = JScript %><HTML><HEAD><TITLE>webservice演示</TITLE></HEAD><BODY>    <%         var WSDL_URL = "

webservice系列教学(8)-如何调用webservice(vb.net)

web 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 窗体设计器生成的代码

webservice系列教学(9)-如何调用webservice(vb6.0,vbscript)

vbscript|web 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添

webservice系列教学(4)-如何调用webservice(pb,java)

web 4.1 使用PowerBuilder调用    适用版本8.0 需下载Bulletin Web Services Toolkit 4.14.2使用java调用需要下载apache soap.下载地址:http://xml.apache.org/soap/index.html导入:import org.apache.soap.*;import org.apache.soap.rpc.*;例程:import java.io.*;import java.util.*;import java.n

webservice系列教学(10)-如何调用webservice(vc1)

web 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&

webservice系列教学(7)-如何调用webservice(javascript)

需下载msSoapToolkit20.exe引用:MSSOAP.SoapClient    例程:var WSDL_URL = "http://192.168.0.4/yundan/service1.wsdl"WScript.echo("Connecting: " + WSDL_URL)var Calc = WScript.CreateObject("MSSOAP.SoapClient")Calc.mssoapinit(WSDL_URL, &qu

webservice系列教学(15)-如何调用webservice(vc6)

web ////////////////////////////////////////////////////////////////////////////////////////////////////  function: CMClientDlg::AddtoTree()////  parameters: (HTREEITEM hParent, HTREEITEM hInsertAfter, LPTSTR pszData, UINT mask, IUnknown //