You cannot select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

129 lines
4.2 KiB
Plaintext

This file contains ambiguous Unicode characters!

This file contains ambiguous Unicode characters that may be confused with others in your current locale. If your use case is intentional and legitimate, you can safely ignore this warning. Use the Escape button to highlight these characters.

// ************************************************************************ //
// The types declared in this file were generated from data read from the
// WSDL File described below:
// WSDL : http://www.cmlog.com.cn:8003/cmlwebservice/CaragtQuery_Cxwl.asmx?wsdl
// Encoding : utf-8
// Version : 1.0
// (2014-04-02 10:12:56 - 1.33.2.5)
// ************************************************************************ //
unit CaragtQuery_Cxwl;
interface
uses InvokeRegistry, SOAPHTTPClient, Types, XSBuiltIns;
type
// ************************************************************************ //
// The following types, referred to in the WSDL document are not being represented
// in this file. They are either aliases[@] of other types represented or were referred
// to but never[!] declared in the document. The types from the latter category
// typically map to predefined/known XML or Borland types; however, they could also
// indicate incorrect WSDL documents that failed to declare or import a schema type.
// ************************************************************************ //
// !:string - "http://www.w3.org/2001/XMLSchema"
// ************************************************************************ //
// Namespace : http://tempuri.org/
// soapAction: http://tempuri.org/GetInfo
// transport : http://schemas.xmlsoap.org/soap/http
// binding : CaragtQuery_CxwlSoap
// service : CaragtQuery_Cxwl
// port : CaragtQuery_CxwlSoap
// URL : http://www.cmlog.com.cn:8003/cmlwebservice/CaragtQuery_Cxwl.asmx
// ************************************************************************ //
CaragtQuery_CxwlSoap = interface(IInvokable)
['{DB494E51-36FE-B195-4707-EC10FA17B564}']
function GetInfo(const mbillno: WideString; const key: WideString): WideString; stdcall;
end;
function GetCaragtQuery_CxwlSoap(UseWSDL: Boolean=System.False; Addr: string=''; HTTPRIO: THTTPRIO = nil): CaragtQuery_CxwlSoap;
function GetCaragtQuery_CxwlSoap_LW(UseWSDL: Boolean=System.False; Addr: string=''; HTTPRIO: THTTPRIO = nil): CaragtQuery_CxwlSoap;
//http://www.cmlog.com:8003/cmlwebservice/CaragtQuery_Qlwwl.asmx
implementation
function GetCaragtQuery_CxwlSoap(UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO): CaragtQuery_CxwlSoap;
const
defWSDL = 'http://www.cmlog.com.cn:8003/cmlwebservice/CaragtQuery_Cxwl.asmx?wsdl';
defURL = 'http://www.cmlog.com.cn:8003/cmlwebservice/CaragtQuery_Cxwl.asmx';
defSvc = 'CaragtQuery_Cxwl';
defPrt = 'CaragtQuery_CxwlSoap';
var
RIO: THTTPRIO;
begin
Result := nil;
if (Addr = '') then
begin
if UseWSDL then
Addr := defWSDL
else
Addr := defURL;
end;
if HTTPRIO = nil then
RIO := THTTPRIO.Create(nil)
else
RIO := HTTPRIO;
try
Result := (RIO as CaragtQuery_CxwlSoap);
if UseWSDL then
begin
RIO.WSDLLocation := Addr;
RIO.Service := defSvc;
RIO.Port := defPrt;
end else
RIO.URL := Addr;
finally
if (Result = nil) and (HTTPRIO = nil) then
RIO.Free;
end;
end;
function GetCaragtQuery_CxwlSoap_LW(UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO): CaragtQuery_CxwlSoap;
const
defWSDL = 'http://www.cmlog.com.cn:8003/cmlwebservice/CaragtQuery_Qlwwl.asmx?wsdl';
defURL = 'http://www.cmlog.com.cn:8003/cmlwebservice/CaragtQuery_Qlwwl.asmx.asmx';
defSvc = 'CaragtQuery_Qlwwl';
defPrt = 'CaragtQuery_QlwwlSoap';
var
RIO: THTTPRIO;
begin
Result := nil;
if (Addr = '') then
begin
if UseWSDL then
Addr := defWSDL
else
Addr := defURL;
end;
if HTTPRIO = nil then
RIO := THTTPRIO.Create(nil)
else
RIO := HTTPRIO;
try
Result := (RIO as CaragtQuery_CxwlSoap);
if UseWSDL then
begin
RIO.WSDLLocation := Addr;
RIO.Service := defSvc;
RIO.Port := defPrt;
end else
RIO.URL := Addr;
finally
if (Result = nil) and (HTTPRIO = nil) then
RIO.Free;
end;
end;
initialization
InvRegistry.RegisterInterface(TypeInfo(CaragtQuery_CxwlSoap), 'http://tempuri.org/', 'utf-8');
InvRegistry.RegisterDefaultSOAPAction(TypeInfo(CaragtQuery_CxwlSoap), 'http://tempuri.org/GetInfo');
InvRegistry.RegisterInvokeOptions(TypeInfo(CaragtQuery_CxwlSoap), ioDocument);//<2F><>һ<EFBFBD><D2BB><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1>û<EFBFBD><C3BB>
end.