基于局域網(wǎng)的信息收發(fā)系統(tǒng)的設(shè)計與實現(xiàn)計算機(jī)專業(yè)畢業(yè)設(shè)計畢業(yè)論-資料下載頁
2025-06-03 09:21本頁面
【正文】 本系統(tǒng)主要是采用 C/S 結(jié)構(gòu)，并且每個客戶端也是作為服務(wù)器端的，當(dāng)系統(tǒng)發(fā)送信息給局域網(wǎng)的用戶，主要由單播模塊和廣 播模塊來實現(xiàn)，而其中的單播模塊和用戶信息模塊是具有依賴性的，在接收信息的時候又有兩個模塊來完成，一是信息接收的模塊，另一個是信息查看的模塊。 由此可以看出本系統(tǒng)主要分為兩大部分模塊：發(fā)送模塊和接收模塊。發(fā)送模塊：單播模塊，廣播模塊，用戶信息模塊，信息記錄模塊接收模塊：接收信息模塊，查看信息模塊 有了以上的了解了那讓我們來看看系統(tǒng)的架構(gòu)圖： 第 7 頁 共 25 頁 圖 4 系統(tǒng)架構(gòu)圖 界面設(shè)計 為了方便用戶的操作，我采用比較簡單的界面設(shè)計 ，主界面包括廣播按鈕、發(fā)送按鈕、刷新按鈕、在線用戶顯示框、信息輸入窗體。其中廣播按鈕是將信息窗體中的內(nèi)容發(fā)送到所有的用戶；發(fā)送按鈕是將信息窗體中的內(nèi)容發(fā)送到指定的用戶；在線用戶顯示框中選取指定的用戶和查看用戶的信息；刷新是重載用戶列表。 系統(tǒng)主界面 （服務(wù)器 /客戶） 單 播 發(fā) 送 廣 播 發(fā) 送 接 收 信 息 顯示用戶信息 信 息 寫 入 查看歷史記錄 工 作 組 IP 地 址 用 戶 名 第 8 頁 共 25 頁 圖 5 主界面 當(dāng)有信息傳過來時將自動彈出一個信息接收的窗體，窗體包括查看按鈕和關(guān)閉按鈕還有一個顯示對方用戶的區(qū)域，他們分別是用來打開并查看信息或是不想查看而關(guān)閉的作用。 圖 6 信息接收界面 如過你在圖 6 中點擊了查看按鈕，那么將會彈到顯示信息查看的窗體上， 在文本區(qū)則會顯示對方傳送過來的信息內(nèi)容，在查看了之后有個關(guān)閉按鈕，用來結(jié)束對話框，便可以回到圖 5 的界面了。 第 9 頁 共 25 頁 圖 7 信息查看界面 在歷史記錄的窗體中點擊記錄文件按鈕來選擇保存的路徑，將會自動生成一個文本文件來對通訊記錄進(jìn)行保存。 圖 8 歷史記錄 系統(tǒng)功能模塊設(shè)計 網(wǎng)絡(luò)組件 UDP 協(xié)議由 TCP 協(xié)議衍生而來。 TCP 用于確保點對點的連接，而 UDP 并不保證發(fā)送的數(shù)據(jù)一定到達(dá)，也不表明數(shù)據(jù)報的傳輸成功或失敗。 本系統(tǒng)設(shè)計使用的是 TIdUDPClient 和 TIdUDPServer 兩個用戶數(shù)據(jù)報（ UDP）組件，首先 創(chuàng)建 Delphi 工程。然后向工程組再添加一個工程。把一個工程作為客戶，另一個作為服務(wù)器。為連接到 UDP 服務(wù)器，需要一個 TIdUDPClient 組件。用來表示服務(wù)器的 IP地址和端口號。由于 UDP 是無連接的，因此在 UDP 的接口方法中不包括 Connect 方法。要使用 Inter Direct 實現(xiàn)的組件，只需使用Send 向給定的 IP 地址和端口號廣播一個命令字符串。 其中我為 IP地址和端口號的設(shè)置分別為 和 9000。服務(wù)器是作為應(yīng)用程序?qū)崿F(xiàn)的，它對客戶程序發(fā)出的一個簡單的命令集進(jìn)行響應(yīng)。為實現(xiàn)服務(wù) 第 10 頁 共 25 頁 器，程序?qū)⒈O(jiān)聽 DefaultPort 端口上的廣播，并將 設(shè)置為True。 下面是我對 TIdUDPClient 和 TIdUDPServer 組件的設(shè)置圖： 圖 9 TIdUDPClient組件設(shè)置 圖 10 TIdUDPServer組件設(shè)置 用戶信息顯示功能 為了方便用戶選取單個用戶進(jìn)行信息發(fā)送和查看在線用戶的信息，所以設(shè)計了一個 ListView 來進(jìn)行顯示如圖 5，在 ListView 中包括了用戶名、工作組、 IP地址。當(dāng)有用戶打開本系統(tǒng)的時候?qū)蚓钟蚓W(wǎng)中的所有用戶發(fā)送一個握 手信息來獲取網(wǎng)絡(luò)中的在線用戶信息并添加到列表中顯示出來，同時也把自己的網(wǎng)絡(luò)資源信息發(fā)送給對方，使自己被添加到其他用戶的列表中。 其中分別要對網(wǎng)絡(luò)中的所有的用戶名、工作組、 IP 地址進(jìn)行獲取，下面來看一下對于獲取這些網(wǎng)絡(luò)資源的代碼部分。 局域網(wǎng)內(nèi)實現(xiàn)廣播功能 在本設(shè)計中單播發(fā)送的按鈕為 BitBtn3，主要是通過 IdUDPServer 和IdUDPClient 組件來編寫的，主要是使用了 來對信息進(jìn)行發(fā)送的，在發(fā)送時將會把信息發(fā)送給在局域網(wǎng)內(nèi)部的所有用戶包括自己。 第 11 頁 共 25 頁 下面是發(fā)送按鈕的代碼 部分： 歷史信息記錄功能 為了能讓用戶對歷史的信息進(jìn)行查看，所以本設(shè)計中包含了一個對歷史信息進(jìn)行記錄的功能，主要是創(chuàng)建一個記事本文件對信息進(jìn)行復(fù)制保存，以下就是歷 procedure (Sender: TObject)。 var chatinfo:string。 chatinfobuf:array[0..2030]of char。 f:textfile。 begin chatinfo:=format(39。%6s%255s%1024s39。,[39。CHAT39。,myname,])。 strpcopy(chatinfobuf,chatinfo)。 (chatinfobuf,9000)。 end。
畢業(yè)設(shè)計相關(guān)推薦
鄂ICP備17016276號-1