1.研究了半天,向前輩們請教,加上網上的搜索,終於解決
// ************************************************************************ //
// The types declared in this file were generated from data read from the
// WSDL File described below:
// WSDL : http://localhost:8081/WebServices/SimpleService.asmx?wsdl
// Encoding : utf-8
// Codegen : [wfDebug,wfVerbose,wfSkipHttpBindings,wfMapStringsToWideStrings,wfSkipUnusedTypes]
// Version : 1.0
// (2009-12-02 11:32:00 - $Revision: 1.0.1.0.1.82 $)
// ************************************************************************ //
#include <vcl.h>
#pragma hdrstop
#if !defined(SimpleServiceH)
#include "SimpleService.h"
#endif
namespace NS_SimpleService {
_di_SimpleServiceSoap GetSimpleServiceSoap(bool useWSDL, AnsiString addr)
{
static const char* defWSDL= "http://172.18.6.253:9998/WebServices/SthisService.asmx?wsdl";
static const char* defURL = "http://172.18.6.253:9998/WebServices/SthisService.asmx";
static const char* defSvc = "SimpleService";
static const char* defPrt = "SimpleServiceSoap";
if (addr=="")
addr = useWSDL ? defWSDL : defURL;
THTTPRIO* rio = new THTTPRIO(0);
if (useWSDL) {
rio->WSDLLocation = addr;
rio->Service = defSvc;
rio->Port = defPrt;
rio->Converter->Options<<soUTF8InHeader;
rio->HTTPWebNode->UseUTF8InHeader = true;
} else {
rio->URL = addr;
}
_di_SimpleServiceSoap service;
rio->QueryInterface(service);
if (!service)
delete rio;
return service;
}
// ************************************************************************ //
// This routine registers the interfaces and types used by invoke the SOAP
// Service.
// ************************************************************************ //
static void RegTypes()
{
/* SimpleServiceSoap */
InvRegistry()->RegisterInterface(__interfaceTypeinfo(SimpleServiceSoap), L"http://abc.com/", L"utf-8");
InvRegistry()->RegisterInvokeOptions(__interfaceTypeinfo(SimpleServiceSoap), ioDocument);
InvRegistry()->RegisterDefaultSOAPAction(__interfaceTypeinfo(SimpleServiceSoap), L"http://abc.com/%operationName%");
}
#pragma startup RegTypes 32
}; // NS_SimpleService