|
7.3.5 控制服務器應用程序的執行
客戶程序控制服務器應用程序的一個方面是：必要的時候客戶程序可以啟動服務器程序，并裝載會話主題。
而客戶程序控制服務器應用程序更重要的一點是向服務器發送服務器承認的宏命令，來完成對服務器應用程序的各種操作。服務器到底支持哪些宏命令，可參閱服務器應用程序文檔。
發送宏命令要使用DDEClientConv的兩個方法 ExecuteMacro和ExecuteMacroLines ，它們的語法如下：
function ExecuteMacro(Cmd: PChar; WaitFlag: Boolean): Boolean;
function ExecuteMacroLines(Cmd: TStrings;WaitFlag: Boolean): Boolean;
Cmd是欲發送的宏命令字符串或宏命令字符串鏈表。WaitFlag決定了在DDE 服務器程序執行宏命令時客戶程序的行為。如果WaitFlag設置為True，則在服務器宏命令執行完畢前，不允許對ExecuteMacro、ExecuteMacroLines、PokeData、PokeDataLines這些方法的成功調用，它們都不向服務器發送數據并返回False。如果WaitFlag設置為False，則調用的方法在第一個宏執行完畢前即試圖向服務器發送數據。
WaitFalg的設置也取決于服務器應用程序。一些應用程序當在第一個宏執行完之前就試圖向它發送數據或命令時，可能導致第一個宏執行失敗或導致不可預料的后果。具體情況可查閱服務器應用程序文檔。
函數返回值表示命令串是否被成功傳輸。而宏命令執行是否成功客戶是無法檢測到的。
7.3.6 格式化文本
DDEClientConv有一個布爾屬性FormartChars，用于決定是否格式化文本。所謂格式化文本是指從傳輸來的文本數據中過濾掉BackSpace(8)、 Tab(7) 、Linefeed(10) 、Return(13)等字符。括號內是字符的ASCII碼。許多時候這些字符將導致DDE客戶數據顯示的混亂。
FormatChars的缺省值是False。
7.3.7 響應DDE事件
部件DDEClientConv有兩個事件OnOpen和OnClose，分別在DDE 會話建立和中止時觸發。部件DDEClientItem有一個OnChange事件。這一事件常用于DDE項目數據的轉儲和顯示，如(7.3.1)節所示。
在自動模式下，OnOpen事件在包含DDEClientConv部件的窗口創建時觸發，或在調用SetLink方法時觸發，OnClose事件在客戶程序或服務器程序關閉時觸發。
在人工模式下，OnOpen事件在調用OpenLink 方法時觸發，OnClose事件在調用ColseLink方法時觸發。
7.3.8 利用客戶程序和Excel交換數據
下面我們建立一個DDE客戶程序，并利用這一程序與Excel中的一個工作表交換數據。程序設計界面
界面中包含一個DDE會話部件DDEClientConv1和DDE項目部件DDEClientItem1，用于建立和維護DDE聯接；一個RadioGroup控件和其中的兩個無線電按鈕AutoRadio、ManualRadio，用于設置聯接模式；一個GroupBox控件和其中的兩個按鈕RequestBtn和PokeBtn，用于控制數據的申請和發送，其中RequestBtn在自動模式下變灰；一個文本框Memo1用于保存DDE數據；一個按鈕PasteBtn用于粘貼聯接信息并建立DDE聯接；另外一個按鈕CloseBtn用于關閉系統。
設計時把DDEClientConv1的FormatChars屬性置為True，這樣可以保留服務器傳來數據的顯示格式；ConnectMode保留ddeAutomatic的缺省設置。
程序在類TForm1中定義了一個私有數據成員Automatic，用于標志聯接模式；三個字符串數據成員DDEService、DDETopic、DDEItem用于記錄聯接信息。
窗口生成時進行變量和部件狀態的初始化。
procedure TForm1.FormCreate(Sender: TObject);
begin
RequestBtn.Enabled := False;
AutoRadio.Checked := True;
Automatic := True;
end;
當聯接模式改變時，程序進行相應的處理。
自動模式轉換為人工模式：
procedure TForm1.ManualRadioClick(Sender: TObject);
begin
if Automatic then
begin
RequestBtn.Enabled := ManualRadio.Checked;
DDEClientConv1.ConnectMode := ddeManual;
Automatic := False;
end;
end;
人工模式轉換為自動模式：
procedure TForm1.AutoRadioClick(Sender: TObject);
begin
if not Automatic then
begin
RequestBtn.Enabled := ManualRadio.Checked;
If (DDEService = '') or (DDETopic = '') then
begin
MessageDlg(' Can not Set Link.',mtWarning,[mbOK],0);
Exit;
end;
DDEClientConv1.SetLink (DDEService, DDETopic);
DDEClientItem1.DdeConv := DDEClientConv1;
DDEClientItem1.DDEItem := DDEItem;
DDEClientConv1.ConnectMode := ddeAutomatic;
Automatic := True;
end;
end;
當從自動模式轉換到人工模式，只需要簡單修改相應屬性即可；而從人工模式轉換到自動模式，則需要調用SetLink重新建立聯接，否則往往會引發一個DDE異常。
聯接的建立采用從剪貼板粘貼聯接信息的方式，這是最具有靈活性的一種方法。
procedure TForm1.PasteBtnClick(Sender: TObject);
begin
if GetPasteLinkInfo (DDEService, DDETopic, DDEItem) then
begin
DDEClientConv1.SetLink (DDEService, DDETopic);
if Automatic then
begin
DDEClientItem1.DdeConv := DDEClientConv1;
DDEClientItem1.DDEItem := DDEItem;
end;
end;
end;
GetPasteInfo是 DDEMan庫單元中定義的一個函數，用于檢測剪貼板上是否有聯接信息并返回相應的DDE服務、主題和項目。
對于人工模式，必須由客戶顯式向服務器申請數據。在這種模式下DDE項目部件是多余的，接收到的DDE聯接信息用一個字符串來記錄。下面是實現代碼。
procedure TForm1.RequestBtnClick(Sender: TObject);
var
TheData: PChar;
begin
If DDEItem = '' then
begin
MessageDlg('Can not Request Data',mtWarning,[mbOK],0);
Exit;
end;
TheData := StrAlloc(79);
DDEClientConv1.OpenLink;
TheData := DDEClientConv1.RequestData(DDEItem);
DDEClientConv1.CloseLink;
if TheData <> nil then
Memo1.Text := StrPas(TheData);
StrDisPose(TheData);
end;
OpenLink、CloseLink方法用于打開和關閉聯接。RequestData方法向服務器申請數據并返回到一個PChar字符串中。字符串必須顯式分配內存并在退出時釋放。
數據發送在不同聯接模式下是不同的。對于人工模式，增加了聯接的打開和關閉操作。程序清單如下。
procedure TForm1.PokeBtnClick(Sender: TObject);
begin
If DDEItem = '' then
begin
MessageDlg('Can not Poke Data.',mtWarning,[mbOK],0);
Exit;
end;
if Automatic then
DDEClientConv1.PokeDataLines(DDEItem,Memo1.Lines)
else
begin
DDEClientConv1.OpenLink;
DDEClientConv1.PokeDataLines(DDEItem,Memo1.Lines);
DDEClientConv1.CloseLink;
end;
end;
打開Microsoft Office中的Excel，裝入一個文件，把相關的單元選中，拷貝到剪貼板上。而后運行程序，按下Paste Link按鈕，DDE聯接就建立起來，相關單元中的數據顯示在Memo1中。之后可以進行模式轉換、數據申請、申請發送等一系列工作。運行后的屏幕顯示如下圖所示。
[1] [2] [3] 下一頁
|
