Delphi 调用.NET(C#) Web Service

 

Delphi调用.NET的WebService,是非常容易和方便的，下面用C#提供的

Login服务 ,来说明Delphi的调用方法.Login返回的是一个字符串.

一般有以下布骤:

A.调用第一步，完成C#，asmx文件生的调用函数

view plain copy to clipboard print ?

1. unit UnitMJWebLogin;
   
2. 
   
3. interface  
   
4. 
   
5. uses InvokeRegistry, SOAPHTTPClient, Types, XSBuiltIns;
   
6.   
7. type   
8.    // Namespace : http://tempuri.org/ 
9.    // soapAction: http://tempuri.org/%operationName%
10.    // transport : http://schemas.xmlsoap.org/soap/http  
11.    // style      : document   
12.    // binding    : MJLoginSoap 
13.    // service    : MJLogin   
14.    // port       : MJLoginSoap   
15.    // URL        : http://127.0.0.1/EPlatform/bin/MJLogin/MJLogin.asmx 
16.    // ************************************************************************ //   
17.    IMJWebLogin = interface (IInvokable)   
18.    [ '{EEAFD61D-DA43-1CB6-C349-E5DD8110DE17}' ]  
19.     function    Login( const aLoginName: WideString; const aPassword: WideString; const aCPUID: WideString; const aHardDiskID: WideString): string ; stdcall;  
20. {根据ASMX生成的函数}   
21.    end ;   
22. function GetMJLoginSoap(UseWSDL: Boolean=System . False; Addr: string = '' ; HTTPRIO: THTTPRIO = nil ): IMJWebLogin;
    
23. 
    
24. implementation   
25.   
26. uses   
27.     UnitCommon ;   
28. 
    
29. function GetMJLoginSoap(UseWSDL: Boolean; Addr: string ; HTTPRIO: THTTPRIO): IMJWebLogin;   
30.   
31. const   
32.    defWSDL = 'http://127.0.0.1/EPlatform/wsdl/Login.wsdl' ;   
33.    defURL   = 'http://127.0.0.1/EPlatform/MJLogin/MJLogin.asmx' ;   
34.    defSvc   = 'MJLogin' ;   
35.    defPrt   = 'MJLoginSoap' ;   
36.   
37. var   
38.    RIO: THTTPRIO;   
39.   
40. begin   
41.    Result := nil ;  
42.    if (Addr = '' ) then   
43.    begin   
44.      if UseWSDL then   
45.        Addr := defWSDL   
46.      else   
47.        Addr := defURL;   
48.    end ;   
49.   
50.    if HTTPRIO = nil then   
51.      RIO := THTTPRIO . Create( nil )  
52.    else   
53.      RIO := HTTPRIO;   
54.    try   
55.      Result := (RIO as IMJWebLogin);  
56.      if UseWSDL then   
57.      begin   
58.        RIO . WSDLLocation := Addr;  
59.        RIO . Service := defSvc;   
60.        RIO . Port := defPrt;  
61.      end else   
62.        RIO . URL := Addr;   
63.    finally   
64.      if (Result = nil ) and (HTTPRIO = nil ) then   
65.        RIO . Free;   
66.    end ;   
67. end ;   
68.   
69.   
70.   
71.   
72.   
73. initialization   
74.    InvRegistry . RegisterInterface(TypeInfo(IMJWebLogin), 'http://tempuri.org/' , 'GB2312' );   
75.    InvRegistry . RegisterDefaultSOAPAction(TypeInfo(IMJWebLogin), 'http://tempuri.org/%operationName%' );   
76.    InvRegistry . RegisterInvokeOptions(TypeInfo(IMJWebLogin), ioDocument);   
77. end .   

unit UnitMJWebLogin; interface uses InvokeRegistry, SOAPHTTPClient, Types, XSBuiltIns; type // Namespace : http://tempuri.org/ // soapAction: http://tempuri.org/%operationName% // transport : http://schemas.xmlsoap.org/soap/http // style : document // binding : MJLoginSoap // service : MJLogin // port : MJLoginSoap // URL : http://127.0.0.1/EPlatform/bin/MJLogin/MJLogin.asmx // ************************************************************************ // IMJWebLogin = interface(IInvokable) ['{EEAFD61D-DA43-1CB6-C349-E5DD8110DE17}'] function Login(const aLoginName: WideString; const aPassword: WideString; const aCPUID: WideString; const aHardDiskID: WideString): string; stdcall; {根据ASMX生成的函数} end; function GetMJLoginSoap(UseWSDL: Boolean=System.False; Addr: string=''; HTTPRIO: THTTPRIO = nil): IMJWebLogin; implementation uses UnitCommon ; function GetMJLoginSoap(UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO): IMJWebLogin; const defWSDL = 'http://127.0.0.1/EPlatform/wsdl/Login.wsdl'; defURL = 'http://127.0.0.1/EPlatform/MJLogin/MJLogin.asmx'; defSvc = 'MJLogin'; defPrt = 'MJLoginSoap'; 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 IMJWebLogin); 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(IMJWebLogin), 'http://tempuri.org/', 'GB2312'); InvRegistry.RegisterDefaultSOAPAction(TypeInfo(IMJWebLogin), 'http://tempuri.org/%operationName%'); InvRegistry.RegisterInvokeOptions(TypeInfo(IMJWebLogin), ioDocument); end.

B.调用ASMX,定位WSDL文件位置

view plain copy to clipboard print ?

1. procedure TFrm_Login . SetSoapConnection;   
2. begin   
3. self . HTTPRIO_Login . WSDLLocation := 'HTTP://127.0.0.1/EPlatform/wsdl/Login.wsdl' ;   
4. end ;  

procedure TFrm_Login.SetSoapConnection; begin self.HTTPRIO_Login.WSDLLocation := 'HTTP://127.0.0.1/EPlatform/wsdl/Login.wsdl'; end;

C.调用第三步，完成登录事件的编写

view plain copy to clipboard print ?

1. procedure TFrm_Login . Btn_SureClick(Sender: TObject);   
2. var   
3.    HttpCallResult : string ;   
4. begin   
5.    self . SetSoapConnection;   
6.    try   
7.    HttpCallResult :=   
8.     (self . HTTPRIO_Login as IMJWebLogin).Login(Trim(self . ComboBox_LoginName . Text),   
9.                                                Trim(self . Edit_Password . Text),   
10.                                                Trim(self . FUser . FCPUID),Trim(self . FUser . FHardDiskID)) ;   
11.    except   
12.      showmessage( '目前服务器忙,请稍候连接服务器' );   
13.      exit ;   
14.    end    ;   
15.    if HttpCallResult= '密码错误' then begin   
16.       showmessage (HttpCallResult);   
17.       self . Edit_Password . SelectAll;   
18.       self . Edit_Password . SetFocus;   
19.       exit;   
20.    end ;   
21. end ;  

procedure TFrm_Login.Btn_SureClick(Sender: TObject); var HttpCallResult : string ; begin self.SetSoapConnection; try HttpCallResult := (self.HTTPRIO_Login as IMJWebLogin).Login(Trim(self.ComboBox_LoginName.Text), Trim(self.Edit_Password.Text), Trim(self.FUser.FCPUID),Trim(self.FUser.FHardDiskID)) ; except showmessage('目前服务器忙,请稍候连接服务器'); exit ; end ; if HttpCallResult='密码错误' then begin showmessage (HttpCallResult); self.Edit_Password.SelectAll; self.Edit_Password.SetFocus; exit; end ; end;

D.注意SOAP控件的设置

USEUTF8要设为TRUE，否则为乱码。

完成以上步骤,WebService就可以调用成功了.对于复杂的数据要结合XmlDocument一起使用.