Use Delphi to call WebService through soap Toolkit 3.0
Install Ms soap Toolkit 3.0 first
Unit callwebservicebycomobject;
Interface
Uses
Windows, messages, sysutils, variants, classes, graphics, controls, forms,
Dialogs, comobj, stdctrls;
Type
Tform1 = Class (tform)
Button1: tbutton;
Edit1: tedit;
Procedure button1click (Sender: tobject );
Private
{Private Declarations}
Public
{Public declarations}
End;
VaR
Form1: tform1;
Implementation
{$ R *. DFM}
Procedure tform1.button1click (Sender: tobject );
VaR
Vwsobj: olevariant;
Begin
Vwsobj: = createoleobject ('mssoap. soapclient30 ');
Vwsobj. clientproperty ('serverhttprequest '): = true; // you can use the IE proxy server. If the browser proxy comment is used, an error will be returned.
Vwsobj. mssoapinit (TRIM (edit1.text); // edit1.text: = 'HTTP: // 10.35.8.179/test/wsautoupgrade. asmx? WSDL '; input parameters
Showmessage (vwsobj. helloworld ());
End;
End.
{Description of mssoapinit in msdn
Mssoapinit
This method initializes the object implementingIsoapclientInterface using the Web Services Description Language (WSDL) file as input. All the operations in the identified service are bound toIsoapclientObject during initialization. Thus, you can call the operations defined in the service usingIsoapclientObject.
HRESULT mssoapinit(Parameters
BSTR bstrWSDLFile,
BSTR bstrServiceName,
BSTR bstrPort,
BSTR bstrWSMLFile
);
The following table describes the common return values.
| Value | Description |
|---|---|
| S_ OK | Success. |
| E_notimpl | The function contains no implementation. |
| E_outofmemory | Out of memory. |
TheMssoapinitMethod is part of the high-level API on the client side. to use this method, first you simply createSoapclientObject on the client.SoapclientObject implementsIsoapclientInterface. Then, you callMssoapinitMethod Using the WSDL file name, service name, and port name as parameters. Now, the client can call any operations defined in the WSDL file for the requested service or port.
RequirementsOS versions:Windows CE. Net 4.0 and later.
Header:Mssoap. h.
Link Library:UUID. Lib.
A quick introduction to WSDL | a quick introduction to wsml | isoapclient
}
The following is an excerpt from the Internet, not verified
Appendix:
1. Use JavaScript to call
// Use the specific address
VaR wsdl_url = "http: // 10.20.10.220/zjdxgc/service. asmx? WSDL"
Wscript. Echo ("Connecting:" + wsdl_url)
VaR soapclient = wscript. Createobject ("mssoap. soapclient30 ")
Soapclient. mssoapinit (wsdl_url ,"","","")
VaR res, username, password
// Use the specific user name and password
Username = "0410307444"
Password = "00000"
Res = soapclient. xscheckpassword (username, password)
Wscript. Echo ("Return Value:" + Res)
Ii. asp call written in the VB background
<HTML>
<Head>
<Title> webservie demonstration </title>
</Head>
<Body>
<%
Dim soapclient
'Use the specific address
Const wsdl_url = "http: // 10.20.10.220/zjdxgc/service. asmx? WSDL"
Set soapclient = Createobject ("mssoap. soapclient30 ")
Soapclient. clientproperty ("serverhttprequest") = true
Call soapclient. mssoapinit (wsdl_url ,"","","")
Dim res, username, password
'Use the specific user name and password
Username = "0410307444"
Password = "00000"
Res = soapclient. xscheckpassword (username, password)
Res = soapclient. zfcwjk ("","","","","")
%>
<H1> webservie demonstration <B> returned results: </B> <% = res %> <p>
</Body>
</Html>
Start building with 50+ products and up to 12 months usage for Elastic Compute Service
1 on 1 presale consultation
24/7 Technical Support 6 Free Tickets per Quarter Faster Response
Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.
A comprehensive suite of global cloud computing services to power your business
Payment Methods We Support
