Midas的三種調用遠程方法的方式
Midas的三種調用遠程方法的方式
1．晚綁定
//使用 Late Binding
…
DCOMConnection1.AppServer.GetSystemInfo(vTime, vRDM, vThread);
藉 由 TDCOMConnection( 或 是 TSocketConnection ，
TCORBAConnection)的 AppServer 特性取得遠端應用程式伺服器，再呼叫其中
的 GetSystemInfo 方法。這種方式可以正確的呼叫到遠端應用程式伺服器之中
提供的服務。但是你必須知道的是 AppServer 特性回傳的是一個 Variant 型態
的變數，當程式透過 Variant 呼叫遠端方法時，Delphi 會以 IDispatch 介面動態
的和遠端應用程式伺服器溝通，組合呼叫方法和參數，最後再進行呼叫。所以
這種呼叫方式需要執行非常多額外的工作，因此並不是很有效率。只是因為
TDCOMConnection 元件直接提供了 AppServer 這個特性可以讓軟體人員很方
便的呼叫遠端方法，所以幾乎所有的人都是使用這種方式(當然也包括懶惰的
我在內)。
2．早綁定
最有效率的遠端呼叫方式-Early Binding
使用 Early Binding 的好處是 Delphi 在編譯應
用程式時便可以檢查程式師使用的語法是不是正確，傳遞的參數形態是不是正
確，以及編譯器可以事先便產生所有必要的執行碼，因此不需要應用程式執行
時再使用動態方式和遠端應用程式伺服器溝通，所以在執行效率上比起使用 所以在執行效率上比起使用 所以在執行效率上比起使用 所以在執行效率上比起使用Late Binding 更有效率，也更安全。
//使用 Early Binding
…
begin
(DCOMConnection1.GetServer as IrdmDemo3).GetSystemInfo(vTime,
vRDM, vThread);
…
end;
需要在用戶端應用程式啟動時，
載入應用程式伺服器的 Type Library 並且註冊它，之後就可以使用 Early
Binding 的方式呼叫遠端方法了。例如在這個範例中我於表格的 OnCreate 事件
處理函式中加入了如下的程式碼：
procedure TForm2.FormCreate(Sender: TObject);
begin
OleCheck(LoadTypeLib('puperserver.tlb', servertlb));
end;
LoadTypeLib 可以載入指定的 Type Library 並且註冊它。因此你可以把所
有需要以 Early Binding 存取的應用程式伺服器的 Type Library 檔案(.tlb 的檔案)
拷貝到用戶端機器的特定目錄之下，例如 C:/AppServerTLB，然後使用
OleCheck(LoadTypeLib('c:/AppServerTlb/puperserver.tlb', servertlb)); 的程式碼載入指定的Type Library。
使用 Early Binding 雖然可以大幅增加遠端呼叫的執行效率，但是天下沒
有白吃的午餐，當你使用視覺化Type Library 編輯器異動應用程式伺服器介面
時，例如增加其中的方法，或是修改其中的參數，那麼你必須重新拷貝這個
Type Library 到用戶端機器的 C:/AppServerTLB 目錄之下，否則用戶端的Type
Library 和應用程式伺服器的服務就不一致了。當然你也可以把所有的 Type
Library 檔案拷貝到網路的全域目錄之下，然後讓用戶端都從這個目錄中載入
Type Library，如此就可以保證用戶端應用程式能夠取得最新的 Type Library
的資訊了。另外 Early Binding 有一個限制，那就是它只能使用在 DCOM 的通訊協定之中。
Early Binding的方式雖然很有效率，但可惜的是不是所有的多層應用系統
都可以使用它。例如如果你是使用 Socket 通訊協定的話，就無法使用 Early
Binding。
3．DISPATCH TABLE
比 Late Binding 更有效率。
在Delphi 中使用視覺化 Type Library 編
輯器定義應用程式伺服器的服務後，Delphi 便會在 Type library 的 wrapper 類別中自動產生 Dispatch Table 的介面。你可以在Delphi 中開啟應用程式伺服器的 wrapper 類別原始程式(通常是 XXX_TLB.PAS 這個檔案，XXX 代表你的應用程式伺服器的名稱)，在 wrapper 類別中會有一個以 disp 結尾的介面，這個介面就是應用程式伺服器的 Dispatch Table。
IrdmDemo3Disp = dispinterface
['{AFC25B93-37E0-11D3-AA94-0080C8518D04}']
例如在下面的程式碼中首先宣告一個 IrdmDemo3Disp 的變數 aDisp，然
後把 TDCOMConnection 的 AppServer 特性先轉換為 IDispatch，再轉換為
IrdmDemo3Disp 介面，再指定給 aDisp 變數，最後就可以使用這個變數呼叫遠
端方法了。
//使用 Dispatch Interface
var
aDisp : IrdmDemo3Disp;
begin
…
begin
aDisp := IrdmDemo3Disp(IDispatch(DCOMConnection1.AppServer));
aDisp.GetSystemInfo(vTime, vRDM, vThread);
…
end;
…
end;
由於 Dispatch Table 介面可以由視覺化 Type Library 編輯器自動產生，而
且又能夠使用同時使用在 DCOM 和 Socket 通訊協定之中，因此如果你不想像
上一小節討論的一樣在用戶端分發應用程式伺服器的 Type Library，那麼你就
可以考慮使用 Dispatch Table 的呼叫方式，因為它幾乎和 Late Binding 一樣很方便，而且在執行效率上是比 Late Binding 來得良好。