用Delphi開發DirectX控件 (2000年12月20日) 

本站更新  分類:   作者:整理編輯：China ASP  推薦:   閱讀次數:418  
(http://www.codesky.net)  

--------------------------------------------------------------------------------

　　Microsoft推出的DirectX使我們在Windows9x下開發游戲軟件便利了許多。一般在介紹DirectX 的資料里都講的是如何用VC++來開發，其實inprise公司的語言也可以用來開發基于DirectX的游戲軟件。我們這里用的是DirectX控件，它有Delphi3和Delphi4不同的版本。在
http://www.ingjapan.ne.jp/hori/ 處你可以download，是由一個日本人寫的，而且，這套控件是完全免費的，你可以自由使用。在這套控件里有DirectX的各種范例程序，我們今天來討論一下其中基于DirectX的網絡通信程序如何開發。

　　想必大家都看到過那些硝煙紛飛的即時戰略游戲，這些游戲中一個很誘人的買點就是可以幾個人同時加入戰斗，各自扮演一方高手，殺它個你死我活。那么這些即時戰略游戲中的網絡對戰部分是怎么寫的呢?其實在Microsoft的DirectX中專門有一類API就是負責網絡通信的，不管是基于IPX，還是TCP/IP，或者是Modem，它都可以圓滿解決。而作為程序設計的我們一般來說不用操心這些連接方式不同而帶來的代碼的不同，我們可以一視同仁，只要寫一套統一的代碼就可以了，各種連接方式的細節問題我們就交給DirectX去處理了。

　　下面我們具體分析一下一個chat聊天程序的構造。運行samples\network\chat.dpr，我們就看到了一個最簡單的聊天程序了。首先程序會讓你選擇連接的方式：IPX連接、Internet TCP/IP連接、調制解調器連接和串行連接；選擇好連接方式后（下面假設你是選擇用TCP/IP方式連接），你可以選擇是創建一個新游戲還是進入一個已經存在的游戲（當然現在這里的游戲就是指一個聊天程序！）；如果你是選擇建立一個新游戲，那么接下來要你輸入游戲的名字和你的名字，然后聊天就開始了；如果你是選擇加入一個已經存在的游戲的話，那么你可以通過輸入指定的IP地址來連接或者索性讓程序去搜索有哪些已經存在的游戲名字。如果你在連接方式中選擇的是調制解調器連接的話，就稍微復雜一些，需要選擇調制解調器，并準備撥號和應答等。有沒有發現這些連接的方式和過程和我們通常在游戲中看到的很相似?由于這些關于連接的對話框都是由DirectX提供的，因而會有一點語言上的問題。如果你安裝的是DirectX的中文版本的話，那么你看見的將全部是中文。（順便說一句，這套Delphi 控件所支持的DirectX必須在5.0版本以上。）
　　這個程序本身并不復雜，下面是其主要的幾個過程，我們已經加上了較為詳細的注釋：

　　//增加游戲者
　　procedure TMainForm.DXPlay1AddPlayer(Sender: TObject; Player: TDXPlayPlayer);
　　begin
　　 Memo1.Lines.Add(Format(' %s entered a room.', [Player.Name]));
　　end;


　　//游戲者離開
　　procedure TMainForm.DXPlay1DeletePlayer(Sender: TObject;Player: TDXPlayPlayer);
　　begin
　　 Memo1.Lines.Add(Format(' %s left a room.', [Player.Name]));
　　end;

　　
　　//DirectPlay打開
　　procedure TMainForm.DXPlay1Open(Sender: TObject);
　　var
　　 i: Integer;
　　begin
　　 for i:=0 to DXPlay1.Players.Count－1 do
if DXPlay1.Players[i].RemotePlayer then
Memo1.Lines.Add(Format(' %s is entering a room.', [DXPlay1.Players[i].Name]));
end;

　procedure TMainForm.FormDestroy(Sender: TObject);
　　begin
　　 DXPlay1.Close;
　　end;

　　//窗口創建執行事件
　　procedure TMainForm.FormCreate(Sender: TObject);
　　begin
　　 try
　　 //DirectPlay 打開
DXPlay1.Open;
　　 except
　　 //防錯處理
on E: Exception do
begin
Application.ShowMainForm := False;
Application.HandleException(E);
Application.Terminate;
end;
　　 end;

　　 //顯示有關信息在窗口的caption
　　 MainForm.Caption := Format('%s : %s', [DXPlay1.ProviderName, DXPlay1.SessionName]);
　　end;

　　//當有消息發送時
　　procedure TMainForm.DXPlay1Message(Sender: TObject; Player: TDXPlayPlayer; Data: Pointer;DataSize: Integer);
　　var
　　 s: string;
　　begin
　　 case DXPlayMessageType(Data) of 
DXCHAT_MESSAGE:
begin
if TDXChatMessage(Data^).Len<=0 then
s := ''
else begin
//計算字符串長度和內容
SetLength(s, TDXChatMessage(Data^).Len);
StrLCopy(PChar(s), @TDXChatMessage(Data^).c, Length(s));
end;

//顯示收到的消息
Memo1.Lines.Add(Format('%s> %s', [Player.Name, s]));
end;
　 end;
　 end;

　　//發送按鈕
　　procedure TMainForm.Button1Click(Sender: TObject);
　　var
　　 Msg: ^TDXChatMessage;
　　 MsgSize: Integer;
　　begin
　　 MsgSize := SizeOf(TDXChatMessage)+Length(Edit1.Text);
　　 GetMem(Msg, MsgSize);
　　 try
Msg.dwType := DXCHAT_MESSAGE;
Msg.Len := Length(Edit1.Text);
StrLCopy(@Msg^.c, PChar(Edit1.Text), Length(Edit1.Text));

//發送消息到所有的人
DXPlay1.SendMessage(DPID_ALLPLAYERS, Msg, MsgSize);

//發送消息到自己
DXPlay1.SendMessage(DXPlay1.LocalPlayer.ID, Msg, MsgSize);
Edit1.Text := '';
　　 finally
　　 FreeMem(Msg);
　　 end;
　 end;

　　TDXPlay控件是寫這類程序的關鍵，其屬性、事件和方法并不多。GUID屬性用來程序的自我識別，具有相同GUID的程序互相之間就能識別，所以你可以看到GUID是一個很長的數字；Open方法用來打開通訊端口，Close用來關閉通訊端口；SendMessage方法是用來發送消息到所有的游戲者，當你的程序收到消息的時候，會產生OnMessage 事件。

　　這個程序的代碼應該是相當簡練了，但是卻完成了點對點的多點聊天功能。如果你在自己的程序里約定好一套規則，那么你的程序也就具備了互相的通信能力，是不是感覺很簡單?可以說，利用DirectX來寫這方面的通信程序是最佳的選擇，你可以對網絡的知識完全不懂，因為這一切已經由Microsoft花費了大量人力物力進行優化的代碼來完成了。如果說有什么缺點，就是要求用戶的電腦上一定要安裝上DirectX，這在現在win98越來越普及的情況下，并不是一件難事。再說，Microsoft的DirectX也是一套完全免費的軟件。利用DirectX優秀的性能加上功能強大的 Delphi語言，相信你一定能寫出一套優秀的游戲軟件（當然擁有設計良好的對戰功能）。