User_LoginResult = type WideString;
{ "http://tempuri.org/" }
Get_Operator_InfoResult = type WideString;
{ "http://tempuri.org/" }
Get_Organization_AreaResult = type WideString;
{ "http://tempuri.org/" }
// ************************************************************************ //
// Namespace : http://tempuri.org/
// soapAction: http://tempuri.org/%operationName%
// transport : http://schemas.xmlsoap.org/soap/http
// style :do
cument
// binding : CommonSoap
// service : Common
// port : CommonSoap
// URL : http://10.52.133.82:81/Service1.asmx
// ************************************************************************ //
CommonSoap = interface(IInvokable)
['{8A426263-ED42-FB04-0C2D-02012519B91E}']
function User_Login(const User_ID: WideString;
const PassWord: WideString): User_LoginResult;
stdcall;
function Add_Operator(const User_ID: WideString;
const Name: WideString;
const Department: Byte;
const Manager: Byte;
const Auth: Byte;
const Expire: WideString;
const Home: Integer;
const Id_Card: WideString;
const Stat: Byte;
const Creator: WideString
): WideString;
stdcall;
function Get_Operator_Info(const User_ID: WideString): Get_Operator_InfoResult;
stdcall;
function Change_PW(const User_ID: WideString;
const Old_PW: WideString;
const New_PW: WideString): WideString;
stdcall;
function Get_Organization_Area(const Home: Integer): Get_Organization_AreaResult;
stdcall;
function Add_Organization(const Name: WideString;
const Org_Type: Byte;
const Home: Integer;
const Area: Integer;
const Addr: WideString;
const Principal: WideString;
const MSISDN: WideString;
const Tel: WideString;
const Fax: WideString;
const Stat: Byte;
const Creator: WideString): WideString;
stdcall;
end;
在Delphi7下调用User_Login('dd', 'dd);得到：
s := <information xmlns=""><name>test</name><department>直销中心</department><manager>否</manager><authority>禁止</authority><home_county>新罗城区</home_county><result>登陆成功</result></information>
代码如下：
var
f: CommonSoap;
s: String;
XmlDoc: IXmlDocument;
begin
f := (HTTPRIO1 as CommonSoap);
s := f.User_Login(Edit1.Text, Edit2.Text);
//
XMLDoc := NewXMLDocument;
XMLDoc.Encoding := 'utf-8';
XmlDoc.XML.Add(s);
XmlDoc.Active := True;
end;
为什么执行到XmlDoc.Active := True的时候会报错呢？
