H
hnlg81004
Unregistered / Unconfirmed
GUEST, unregistred user!
unit ALEService;<br><br>interface<br><br>uses InvokeRegistry, SOAPHTTPClient, Types, XSBuiltIns;<br><br>type<br><br>EmptyParms = class; { "urn:epcglobal:ale:wsdl:1" }<br><br>EmptyParms = class(TRemotable)<br> private<br> public<br> constructor Create; override;<br> published<br> end;<br><br>GetALEID = EmptyParms; { "urn:ale.logicalloy.com"[L] }<br>GetALEIDResult = type WideString; { "urn:ale.logicalloy.com"[L] }<br><br>function getALEID(const parms: GetALEID): GetALEIDResult; stdcall;<br><br>implementation<br><br>constructor EmptyParms.Create;<br>begin<br> inherited Create;<br> FSerializationOptions := [xoLiteralParam];<br>end;<br><br>initialization<br>RemClassRegistry.RegisterXSInfo(TypeInfo(GetALEID), 'urn:ale.logicalloy.com', 'GetALEID');<br>RemClassRegistry.RegisterXSInfo(TypeInfo(GetALEIDResult), 'urn:ale.logicalloy.com', 'GetALEIDResult');