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.
114 lines
5.0 KiB
Plaintext
114 lines
5.0 KiB
Plaintext
// ************************************************************************ //
|
|
// The types declared in this file were generated from data read from the
|
|
// WSDL File described below:
|
|
// WSDL : http://localhost:54972/webservice/DsWebService.asmx?WSDL
|
|
// Encoding : utf-8
|
|
// Version : 1.0
|
|
// (2015-05-21 15:35:56 - $Revision: 1.9.1.0.1.0.1.9 $)
|
|
// ************************************************************************ //
|
|
|
|
unit u_op_seae_DsWebService;
|
|
|
|
interface
|
|
|
|
uses InvokeRegistry, 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 : DsWebService
|
|
// soapAction: DsWebService/%operationName%
|
|
// transport : http://schemas.xmlsoap.org/soap/http
|
|
// binding : DsWebServiceSoap
|
|
// service : DsWebService
|
|
// port : DsWebServiceSoap
|
|
// URL : http://localhost:54972/webservice/DsWebService.asmx
|
|
// ************************************************************************ //
|
|
DsWebServiceSoap = interface(IInvokable)
|
|
['{48489AE1-E4DD-CDDC-2A95-DDE49A9C85D0}']
|
|
function HelloWorld: String; stdcall;
|
|
function UpdateCustomMainfast(const Xdoc: String; const XdocAfter: String; const Corpid: String; const SenderOp: String; const SenderHandphone: String; const SenderEmail: String; const SenderFax: String; const Mblno: String): String; stdcall;
|
|
function LoadCustomMainfastStatus(const Mblno: String): String; stdcall;
|
|
function SendBookingCargoSpace(const Xdoc: String): String; stdcall;
|
|
function ReceiveBookingCargoSpace(const Xdoc: String): String; stdcall;
|
|
function GetBsnoInfo(const Xdoc: String): String; stdcall;
|
|
function SetBookingCargoSpaceAudit(const Xdoc: String): String; stdcall;
|
|
function LoadAllCompany(const str: WideString ): WideString; stdcall; //overload;
|
|
function LoadBookingCompany(const str: WideString ): WideString; stdcall; //overload;
|
|
function LoadSenderCompany(const BSNO: String ): WideString; stdcall; //overload;
|
|
function LoadReceiverCompany(const BSNO: String ): WideString; stdcall; //overload;
|
|
function LoadUser(const CompanyID: WideString ): WideString; stdcall;
|
|
function SearchUser(const str: WideString;const PWD: WideString ): WideString; stdcall; //overload;
|
|
function GetCurrUserInfo(const SPXNO: WideString): WideString; stdcall; //overload;
|
|
function SearchCompany(const str: WideString;const PWD: WideString ): WideString; stdcall; //overload;
|
|
function GetCurrCompany(const SPXNO: WideString): WideString; stdcall; //overload;
|
|
function SHIPPINGORDER(const Xdoc: String): String; stdcall;
|
|
function SetShippingOrderAudit(const Xdoc: String): String; stdcall;
|
|
function BillOfLadingConfirm(const Xdoc: String): String; stdcall;
|
|
function ReceiveBillOfLadingConfirm(const Xdoc: String): String; stdcall;
|
|
function BusinessAction(const BusinessName : String;const Action: String;const Xdoc: String): String; stdcall;
|
|
function SendMSG(const Xdoc: String ): String; stdcall;
|
|
function ReceiveMSG(const Xdoc: String ): String; stdcall;
|
|
function SetMSGRec(const Xdoc: String ): String; stdcall;
|
|
function ReceiveBookingStatus(const BSNO: String ): String; stdcall;
|
|
function GetBookingFX(const Xdoc: String ): String; stdcall;
|
|
function RedirectBooking(const Xdoc: String ): String; stdcall;
|
|
|
|
end;
|
|
|
|
function GetDsWebServiceSoap(UseWSDL: Boolean=System.False; Addr: string=''): DsWebServiceSoap;
|
|
|
|
|
|
implementation
|
|
uses SOAPHTTPClient;
|
|
|
|
function GetDsWebServiceSoap(UseWSDL: Boolean; Addr: string): DsWebServiceSoap;
|
|
const
|
|
defWSDL = 'http://localhost:54972/webservice/DsWebService.asmx?WSDL';
|
|
defURL = 'http://localhost:54972/webservice/DsWebService.asmx';
|
|
defSvc = 'DsWebService';
|
|
defPrt = 'DsWebServiceSoap';
|
|
var
|
|
RIO: THTTPRIO;
|
|
begin
|
|
Result := nil;
|
|
if (Addr = '') then
|
|
begin
|
|
if UseWSDL then
|
|
Addr := defWSDL
|
|
else
|
|
Addr := defURL;
|
|
end;
|
|
RIO := THTTPRIO.Create(nil);
|
|
try
|
|
if UseWSDL then
|
|
begin
|
|
RIO.WSDLLocation := Addr;
|
|
RIO.Service := defSvc;
|
|
RIO.Port := defPrt;
|
|
end else
|
|
RIO.URL := Addr;
|
|
Result := (RIO as DsWebServiceSoap);
|
|
finally
|
|
if Result = nil then
|
|
RIO.Free;
|
|
end;
|
|
end;
|
|
|
|
|
|
initialization
|
|
InvRegistry.RegisterInterface(TypeInfo(DsWebServiceSoap), 'DsWebService', 'utf-8');
|
|
InvRegistry.RegisterDefaultSOAPAction(TypeInfo(DsWebServiceSoap), 'DsWebService/%operationName%');
|
|
InvRegistry.RegisterInvokeOptions(TypeInfo(DsWebServiceSoap),ioDocument);
|
|
end.
|