WebService 服務端用戶端 執行個體（一）

標籤：style   http   使用   os   io   資料   for   cti   

  Delphi中WebService包含的組件解釋(有7個)  
   (1) THTTPRIO-------:使用Http訊息來調用遠程使用SOAP的介面對象     (2) THTTPReqResp---:給伺服器發送一個SOAP訊息, THTTPReqResp在可調用介面上執行一個方法請求.    
   (3) TOPToSoapDomConvert ----:TOPToSoapDomConvert處理Soap方法請求的組合與分發  
   (4) TSoapConnection:TSoapConnection在用戶端的多層資料庫應用中建立並維護用戶端和作為WebService 的遠程應用伺服器間的串連     (5) THTTPSoapDispatcher -----:通過將Soap訊息轉寄給調用者,THTTPSoapDispatcher對Soap訊息做出響應.  
   (6) TWSDLHTMLPublish -----:TWSDLHTMLPublish發布描敘webService應用的Wsdl文檔 
    (7) THTTPSoapPascalInvoker -----:THTTPSoapPascalInvoker解釋Soap的請求資訊,並執行相應的可調用介面.

 

一、服務端

1、File>New>WebService>Soap Server Application

2、Stand-alone vcl Application

3、8080 Test Port

4、Add New WebService Class Name :soapTest

5、Add Function GetTime

String TGetTimeImpl::GetTime(void)
{
 String str;
 str = Now();

}

Application後產生3個組件
一個是調用者組件:THTTPSoapPascalInvoker:完成Soap訊息和....
一個是調度者組件:THTTPSoapDispatcher:自動響應送入的soap訊息,並且把他們傳遞給調用者,可以使用他的WebDispatch屬性來識別應用程式響應的http請求.
      包括設定PathInfo屬性來指明指嚮應用程式的任何URL的路徑部分,設定MethodType屬性來指明請求訊息的方法頭.
一個是WSDL發行者:TWSDLHTMLPublisher:WSDL發行者發布描敘介面以及如何調用他們的wsdl文檔,使用非delphi編寫的用戶端程式也可以調用WebService應用程式.
 

二、用戶端

方法一

1、New VCL Application

2、Add HTTPRIO Component

3、IDE Menu Component>Import WSDL

方法二

1、File>New>Other>WebService>WSDL Importer ... >Next>Finish

2、Add Form ,Add HTTPRIO Component