freepeople性欧美熟妇, 色戒完整版无删减158分钟hd, 无码精品国产vα在线观看DVD, 丰满少妇伦精品无码专区在线观看,艾栗栗与纹身男宾馆3p50分钟,国产AV片在线观看,黑人与美女高潮,18岁女RAPPERDISSSUBS,国产手机在机看影片

正文內(nèi)容

delphi--基于局域網(wǎng)的信息收發(fā)系統(tǒng)的設(shè)計與實現(xiàn)-在線瀏覽

2025-01-09 02:36本頁面
  

【正文】 多吸引人的娛樂功能,從一定程度上來說,是一種娛樂工具,不能作為用于即時通訊、文件共享的專用工具。為此,我們決定開發(fā)一個專用于實現(xiàn)基于局域網(wǎng)內(nèi)部計算機之間即時通訊、文件傳輸?shù)能浖?,以方便?nèi)網(wǎng)計算機之間信息的交流。并且避免了服務(wù)器忙或與服務(wù)器無法連接時,浪費過多時間用于和服務(wù)器建立連接。 國內(nèi)外研究現(xiàn)狀 即時通訊的出現(xiàn)和互聯(lián)網(wǎng)有著密不可分的關(guān)系,從技術(shù)上來說, IM 完全基于 TCP/IP網(wǎng)絡(luò)協(xié)議族實現(xiàn),而 TCP/IP協(xié)議族是整個互聯(lián)網(wǎng)得以實現(xiàn)的技術(shù)基礎(chǔ),最早期的即時通訊雛形可以追溯到芬蘭人 Jarkko Oikarinen于 1988年發(fā)明的一種網(wǎng)絡(luò)聊天協(xié)議 IRC( Inter Relay Chat),該協(xié)議僅支持文本聊天,并且也不支持好友列表的概念, 1996 年第一個 IM 產(chǎn)品 ICQ 發(fā)明后,即時通訊的技術(shù)和功能開始基本成型,其工作原理開始被人們所了解,但不同廠商實現(xiàn)即時通訊技術(shù)原理時采用的協(xié)議卻有較大的差異,甚至到目前為止世界主要的 IM 服務(wù)運營商 AOL(American Online:美國在線 )仍然沒有公布其主 要即時通訊產(chǎn)品 AIM( American Instant Messenger)的專用協(xié)議。盡管第一代、第二代以及第三代即時通訊軟件的信息傳遞主要在互聯(lián)網(wǎng)范圍內(nèi),但各個階段都可以看到即時通訊行業(yè)在跨網(wǎng)通訊領(lǐng)域中的應(yīng)用,在移動即時信息進一步深化應(yīng)用,跨網(wǎng)語音交流進一步加強,跨網(wǎng)通訊領(lǐng)域的進一步拓寬,都意味著真正意義的跨網(wǎng)即時通訊已發(fā)展成型。而 在過去的 幾 年,行業(yè)的主導(dǎo)服務(wù)商騰 第 2 頁 共 25 頁 訊在香港成功上市,并在當(dāng)年取得 55%的收入增長的佳績。即時通信行業(yè) 出現(xiàn)了 連續(xù)多年高速 的 增長。但是為了提高通訊的質(zhì)量,很多 企業(yè)在網(wǎng)絡(luò)上進行即時通訊時一般都不會采用 Inter 上的即時通訊軟件,如 、 MSN、 OICQ等。 2 理論基礎(chǔ) C/S軟件架構(gòu)技術(shù) C/S( Client/Server)結(jié)構(gòu),即大家熟知的客戶機和服務(wù)器結(jié)構(gòu)。目前大多數(shù)應(yīng)用軟件系統(tǒng)都是 Client/Server 形式的兩層結(jié)構(gòu),由于現(xiàn)在的軟件應(yīng)用系統(tǒng)正在向分布式的 Web 應(yīng)用發(fā)展, Web 和 Client/Server 應(yīng)用都可以進行同樣的業(yè)務(wù)處理,應(yīng)用不同的模塊共享邏輯組件;因此,內(nèi)部的和外部的用戶都可以訪問新的和現(xiàn)有的應(yīng)用系統(tǒng),通過現(xiàn)有應(yīng)用系統(tǒng)中的邏輯可以擴展出新 的應(yīng)用系統(tǒng)。 傳統(tǒng)的 C/S 體系結(jié)構(gòu)雖然采用的是開放模式,但這只是系統(tǒng)開發(fā)一級的開放性,在特定的應(yīng)用中無論是 Client 端還是 Server 端都還需要特定的軟件支持。 第 3 頁 共 25 頁 圖 1 客戶機 /服務(wù)器計算結(jié)構(gòu) 用戶數(shù)據(jù)報協(xié)議( UDP) 用戶 數(shù)據(jù)報協(xié)議( UDP)是 ISO 參考模型中一種無連接的傳輸層協(xié)議,提供面向事務(wù)的簡 單不可靠信息傳送服務(wù)。 UDP 協(xié)議適用端口分辨運行在同一臺設(shè)備上的多個應(yīng)用程序。這是通過使用 UDP 的 “ 端口號 ” 完成的。與 TCP 不同, UDP 并不提供對 IP 協(xié)議的可靠機制、流控制以及錯誤恢復(fù)功能等。 UDP 是傳輸層協(xié)議,服務(wù)于很多知名應(yīng)用層協(xié)議,包括網(wǎng)絡(luò)文件系統(tǒng)( NFS)、簡單網(wǎng)絡(luò)管理協(xié)議( SNMP)、域名系統(tǒng)( DNS)以及簡單文件傳輸系統(tǒng)( TFTP)。單播流量地址唯一。與之比較,組播是指單個發(fā)送方對應(yīng)一組選定接收方的一種通信,任意播是 指任意發(fā)送方對應(yīng)一組較為接近的接收方間的一種通信。 單播傳輸是 LANs 傳輸中的主要使用方式。新版本的網(wǎng)際協(xié)議第六版( IPv6)支持單播同時也支持任意播和組播類型。 而 IPv6 支持單播( Unicast)、組播( Multicast)和任意播( Anycast)三種類型。 圖 2 單播 物理結(jié)構(gòu) 圖 廣播 ( Broadcast) 網(wǎng)絡(luò)廣播是指一個節(jié)點同時向相同域中的其它所有節(jié)點傳輸數(shù)據(jù)包的過程。廣播傳輸通常在局域網(wǎng)(如以太網(wǎng))中進行,但有時也發(fā)生在虛擬局域網(wǎng)( VLAN)中。 生成廣播信息的應(yīng)用程序包括地址解析協(xié)議( ARP)。有些路由選擇協(xié)議,如 RIP,主要用于支持網(wǎng)絡(luò)設(shè)備 “Advertise” 網(wǎng)絡(luò)服務(wù)。換句話說,與網(wǎng)絡(luò)相連,且負(fù)責(zé)接收廣播的所有設(shè)備都是同 一廣播域的一部分。其它節(jié)點收聽廣播,只接收尋址到它們的幀。此外通過虛擬局域網(wǎng)技術(shù)可以創(chuàng)建一個虛擬廣播域。例如, MAC 地址,格式為 1xFFFFFFFF 是一種廣播地址; IP 地址 是通用廣播地址。 廣播風(fēng)暴( Broadcast Storm):當(dāng)主機系統(tǒng)響應(yīng)一個在網(wǎng)上不斷循環(huán)的廣播數(shù)據(jù)包或者試圖響應(yīng)一個沒有應(yīng)答的系統(tǒng)時就會發(fā)生廣播風(fēng)暴。為防止廣播風(fēng)暴的發(fā)生,需要細(xì)心配置網(wǎng)絡(luò)以阻止非法廣播信息的進入。兩臺計算機之間進行即時通訊、發(fā)送文件等交流方式已經(jīng)成為時代的潮流。這些即時通訊業(yè)務(wù)屬于基礎(chǔ)語音業(yè)務(wù)外的數(shù)據(jù)增值類業(yè)務(wù),從范疇來講屬于“消息類”業(yè)務(wù),本質(zhì)是完成對“文字、聲音、圖像”信息的傳遞。但不會成為那些大中型企業(yè)內(nèi)部的主要通訊工具,在企業(yè)中要求很簡單,能確??焖僬5募磿r通訊,還要具有很好的安全性,這樣才能提高工作效率,增加企業(yè)的效益。并且現(xiàn)在用于實現(xiàn)單一的即時通訊、文件共享的軟件真的實在太少,因此不能為那些大中型企業(yè)所使用,而且在現(xiàn)行的系統(tǒng)中主要的問題是:一、在即時通訊系統(tǒng)中由于防火墻、網(wǎng)絡(luò)速度等原因難以建立或者速度很慢, IM服務(wù)器還提供消息中轉(zhuǎn)服務(wù),即時消息全部先發(fā)送到 IM服務(wù)器,還要再由服務(wù)器轉(zhuǎn)發(fā)給對方,所以連接時過多的浪費了網(wǎng)絡(luò)資源,并且在服務(wù)器忙或與服務(wù)器無法連接時,浪費 過多時間用于和服務(wù)器建立連接;二、即時通訊工具始終是通過互連網(wǎng)的服務(wù)器來傳輸?shù)模沁@樣所以更有可能會帶來遭遇到網(wǎng)絡(luò)上的許多攻擊,如木馬,蠕蟲等。 提出解決方案 根據(jù)企業(yè)在內(nèi)部網(wǎng)絡(luò)上信息交流的需求, 所以本課題就主要針對內(nèi)部的網(wǎng)絡(luò)來設(shè)計這樣的一個即時通訊系統(tǒng),本系統(tǒng)是 在基于局域網(wǎng)的在 IM 客戶端和 IM服務(wù)器之間通訊采用的 UDP 協(xié)議和 C/S 軟件構(gòu)架技術(shù)上開發(fā)的通訊工具,它在 近程的即時通訊時徹底的脫離了遠(yuǎn)程的服務(wù)器,不通過遠(yuǎn)程服務(wù)器來完成實現(xiàn)通訊,避免了和遠(yuǎn)程服務(wù)器連接時過 多的浪費網(wǎng)絡(luò)資源。這種系統(tǒng)主要是為了方便了大中型企業(yè)在內(nèi)部即時通訊要求,從而進一步提高 工作效率,增加企業(yè)的效益 。 由此可以看出本系統(tǒng)主要分為兩大部分模塊:發(fā)送模塊和接收模塊。其中廣 播按鈕是將信息窗體中的內(nèi)容發(fā)送到所有的用戶;發(fā)送按鈕是將信息窗體中的內(nèi)容發(fā)送到指定的用戶;在線用戶顯示框中選取指定的用戶和查看用戶的信息;刷新是重載用戶列表。 圖 6 信息接收界面 如過你在圖 6 中點擊了查看按鈕,那么將會彈到顯示信息查看的窗體上,在文本區(qū)則會顯示對方傳送過來的信息內(nèi)容,在查看了之后有個關(guān)閉按鈕,用來結(jié)束對話 框,便可以回到圖 5 的界面了。 圖 8 歷史記錄 系統(tǒng)功能模塊設(shè)計 網(wǎng)絡(luò)組件 UDP 協(xié)議由 TCP 協(xié)議衍生而來。 本系統(tǒng)設(shè)計使用的是 TIdUDPClient 和 TIdUDPServer 兩個用戶數(shù)據(jù)報( UDP)組件,首先創(chuàng)建 Delphi 工程。把一個工程作為客戶,另一個作 為服務(wù)器。用來表示服務(wù)器的 IP地址和端口號。要使用 Inter Direct 實現(xiàn)的組件,只需使用Send 向給定的 IP 地址和端口號廣播一個命令字符串。服務(wù)器是作為應(yīng)用程序?qū)崿F(xiàn)的,它對客戶程序發(fā)出的一個簡單的命令集進行響應(yīng)。 下面是我對 TIdUDPClient 和 TIdUDPServer 組件的設(shè)置圖: 圖 9 TIdUDPClient組件設(shè)置 圖 10 TIdUDPServer組件設(shè)置 用戶信息顯示功能 為了方便用戶選取單個用戶進行信息發(fā)送和查看在線用戶的信息,所以設(shè)計了一個 ListView 來進行顯示如圖 5,在 ListView 中包括了用戶名、工作組、 IP地址。 其中分別要對網(wǎng)絡(luò)中的所有的用戶名、工作組、 IP 地址進行獲取,下面來看一下對于獲取這些網(wǎng)絡(luò)資源的代碼部分。List : TStringList) : Boolean。 //網(wǎng)絡(luò)類型的數(shù)組 Var NetResource: TNetResource。 Count,BufSize,Res: DWord。 Ind: Integer。 TmpStr:String。 FillChar(NetResource, SizeOf(NetResource), 0)。 //指定工作組名稱 := RESOURCEDISPLAYTYPE_SERVER。 //已連接機器 := RESOURCETYPE_DISK。 If Res NO_ERROR then Exit。 //不限資源數(shù)目 BufSize := 8192。 //申請內(nèi)存,用于獲 取工作組信息 //獲取計算機名稱 Res := WNetEnumResource(lphEnum, Count, Pointer(Buf), BufSize)。 //資源列舉完畢 If (Res NO_ERROR) then Exit。 For Ind := 0 to Count 1 do //列舉工作組的計算機名稱 Begin //獲取工作組的計算機名稱 tmpStr:=。 (tmpStr)。 Inc(Temp)。 end。//關(guān)閉一次列舉 If Res NO_ERROR then exit。 FreeMem(Buf)。 第 12 頁 共 25 頁 2) 工作組獲取代碼如下: var //顯示所有工作組的名稱 NetResource : TNetResource。 Count,BufSize,Res : DWORD。 p : TNetResourceArray。 NetworkTypeList : TList。//網(wǎng)絡(luò)類型信息 //獲取某個網(wǎng)絡(luò)類型的文件資源的句柄, NetResource為網(wǎng)絡(luò)類型信息, lphEnum為返回名柄 Res:=WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_DISK,RESOURCEUSAGE_CONTAINER, NetResource,lphEnum)。//執(zhí)行失敗 while true do//列舉一個網(wǎng)絡(luò)類型的所有工作組的信息 begin Count := $FFFFFFFF。 //緩沖區(qū)大小設(shè)置為 8K GetMem(Buf, BufSize)。 if ( Res = ERRO
點擊復(fù)制文檔內(nèi)容
公司管理相關(guān)推薦
文庫吧 www.dybbs8.com
備案圖鄂ICP備17016276號-1