|
|
// ************************************************************************ //
|
|
|
// 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.
|