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

正文內(nèi)容

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

2024-11-26 02:36本頁面
  

【正文】 R_NO_MORE_ITEMS ) //資源列舉完畢 or (Res NO_ERROR) //執(zhí)行失敗 then break。 for I := 0 to Count 1 do //列舉各個工作組的信息 begin ( StrPAS( P^.lpRemoteName ))。 end。 Res := WNetCloseEnum(lphEnum)。 //執(zhí)行失敗 end。 FreeMem(Buf)。 end。 AData: TStream。 var readbuf:array[0..2030]of char。 recvport:integer。 begin ZeroMemory(readbuf[0],2030)。 msg:=Trim(String(Pchar(Readbuf[0])))。 head:=trim(copy(msg,1,headlen))。LOGIN39。 recvport:=9000。login recv39。 recvname:=copy(msg,headlen+1,namelen)。 adduser(recvname,recvworkgroup,recvip,recvport)。 end。REVLOG39。revlog recv39。 RECVPORT:=strtoint(copy(msg,headlen+1,portlen))。 recvlog(recvip,recvport)。 第 14 頁 共 25 頁 局域網(wǎng)內(nèi)實(shí)現(xiàn)單播功能 在本 設(shè)計中單播發(fā)送的按鈕為 BitBtn2,主要是通過 IdUDPServer 和IdUDPClient 組件來編寫的,由 語句來發(fā)送的,主要是對局域網(wǎng)內(nèi)部的同一工作組用戶發(fā)送信息。 var //myinfobuf:array[0..1023]of char。 chatinfo,_ToIP,savelog:string。 tempItem:TListItem。 //處理握手信息 添加對方 ip 返回對方 ip if head=39。then Begin // (39。)。 recvworkgroup:=copy(msg,headlen+namelen+1,workglen)。 recvport:=9000。 end。HAND39。hand recv39。 RECVNAME:=COPY(msg,headlen+1,namelen)。 recvip:=。 recvp2pdata(recvip,recvname,recvworkgroup,recvport)。 第 15 頁 共 25 頁 由于是單播所以需要指定用戶,而用戶是由 ListView 中顯示的,則要對其進(jìn)行顯示并能選取,通過客服端來讓主機(jī)服務(wù)器響應(yīng),實(shí)現(xiàn)代碼主要如下: Function (recvip,recvname,recvworkgroup:string。 var minfobuf:array[0..1023]of char。 tempitem:tlistitem。 begin j:=0。 if j= then begin tempItem:= 。 if then (recvworkgroup)。 //用戶列表選擇 if (not assigned(tempItem)) or (tempItem=nil) then begin MessageBox( ,39。,39。,0)。 end。 //獲取通用對話框文件名和導(dǎo)出僅選中的記錄 _ToPORT:=9000。%6s%255s%1024s39。CHAT39。 strpcopy(chatinfobuf,chatinfo)。 (_toip,_toport,chatinfobuf,sizeof(chatinfobuf))。 第 16 頁 共 25 頁 if then (RECVNAME)。 end else exit。 minfo:=format(39。,[39。,recvport,recvip])。 (recvip,recvport,minfobuf,sizeof(minfobuf))。 end。revport:integer)。 begin tempItem:= 。 if then (revworkgroup)。 if then (revip)。 end。recvport:integer)。 i,j:integer。 if j= then 第 17 頁 共 25 頁 IP 地址進(jìn)行顯示;由工作組進(jìn)行顯示,最后連接到表 Label2 中去。 下面是發(fā)送按鈕的代碼部分: 歷史信息記錄功能 為了能讓用戶對歷 史的信息進(jìn)行查看,所以本設(shè)計中包含了一個對歷史信息procedure (Sender: TObject)。 chatinfobuf:array[0..2030]of char。 begin chatinfo:=format(39。,[39。,myname,])。 (chatinfobuf,9000)。 begin tempItem:= 。 if then (myworkgroup)。 if then (recvip)。 end。 end。 begin if then begin :=。 end。 var F:textfile。 assignfile(f,)。 closefile(F)。 ???? begin if 39。 then begin Assignfile(f,)。 writeln(f,39。)。發(fā)往: 39。 if then writeln(f,39。+datetostr(now)+timetostr(now)) else writeln(f,39。+datetostr(now)+timetostr(now))。39。 writeln(f,)。=====================================39。 closefile(f)。 end。本設(shè)計是在是Microsoft Windows XP 系統(tǒng)上利用編程軟件開發(fā)的,然后再組建的局域網(wǎng)中來進(jìn)行測試和調(diào)試工作,所以最少會用到兩臺或兩臺以上的電腦并由交換 機(jī)組成一個小型的局域網(wǎng),考慮到一些系統(tǒng)兼容性的問題,所以在內(nèi)部網(wǎng)絡(luò)上的每臺計算機(jī)上都用的是相同的操作系統(tǒng),在網(wǎng)絡(luò)配置方面也是相同的方式。也可以根據(jù)自己的需要修改部件或用 Delphi 本身編寫自己的部件,能提供方便、快捷的 Windows 應(yīng)用程序開發(fā)環(huán)境,本程序也基本是借助與那些組件來編寫的。 設(shè)計測試的是同在一個局域網(wǎng)中,先將編譯好的程序復(fù)制到內(nèi)部網(wǎng)絡(luò)上的沒臺計算機(jī)上面,然后都將設(shè)計的系統(tǒng)打開運(yùn)行,這是觀察是否能顯示所有的在線用戶的信息,如果了防火墻之類的軟件正在運(yùn)行的話,很可能不能正常顯示工作組、 IP 等信息,所以最好是關(guān)閉防火墻。 要是想對通訊的內(nèi)容進(jìn)行記錄,則在歷史記錄窗體上選擇保存通訊記錄的路徑,點(diǎn)擊確認(rèn)按鈕,便會在選擇的路徑里生成一個文本文件用來保存用戶的通訊記錄了,在點(diǎn)擊托盤區(qū)圖標(biāo)選擇查看記錄,如圖 15: 圖 15 通訊記錄界面 第 22 頁 共 25 頁 最后是退出,退出只能點(diǎn)擊托盤區(qū)的圖標(biāo)來退出,當(dāng)關(guān)閉了其中一個用戶的時候,其他的用戶列表中自動會將該用戶的用戶信息給刪除,這表明此用戶已經(jīng)下線離開了。解決了傳統(tǒng)通訊工具需要連接遠(yuǎn)程服務(wù)器來進(jìn)行信息轉(zhuǎn)發(fā)的局限性問題 ,這樣能夠節(jié)約網(wǎng)絡(luò)資源 ,也保證了在信息交流時的安全性,減少了病毒及木馬的感染率。但是我會在以后的工作學(xué)習(xí)中逐步解決這些問題,不斷完善這個系統(tǒng),使它更具實(shí)用性的。從設(shè)計分析到設(shè)計編寫直到具體實(shí)現(xiàn),在學(xué)校所學(xué)的理論知識對我有很大的幫助,我也發(fā)現(xiàn)了我的很多不足的地方。 參考文獻(xiàn) [1] 劉華 .黑魔方 Delphi 基礎(chǔ)教程 [M].北京:清華大學(xué)出版社 ,。 [3] 施新剛 .Delphi 實(shí)效編程百例 [M].北京:人民郵電出版社 ,。 [5] 肖建 .Delphi 6 編程基礎(chǔ) [M].北京:清華大學(xué) 出版社 ,。 [7] (美 )Paul 6 應(yīng)用開發(fā)指南 [M].北京:清華大學(xué)出版社 ,。在此向他表示我最衷心的感謝! 在論文完成過程中,本人還得到了其他老師和許多同學(xué)的熱心幫助,本人向他們表示深深的謝意! 最后向在百忙之中評審本文的各位專家、老師表示衷心的感謝! 作者簡介: 姓 名:張蜀程 性別: 男 出生年月: 1985 年 01 月 27 日 民族: 漢族 Email: 第 25 頁 共 25 頁 聲 明 本論文的工作是 2020 年 02 月至 2020 年 06 月在成都信息工程學(xué)院網(wǎng)絡(luò)工程系完成的。除非另有說明,本文的工作是原始性工作。 ( 2)學(xué)校可以采用影印、縮印或其他復(fù)制方式保存學(xué)位論文。 ( 4)學(xué)??稍试S學(xué)位論文被查閱或借閱。 除非另有科研合同和其他法律文書的制約,本論文的科研成果屬于成都信息工程
點(diǎn)擊復(fù)制文檔內(nèi)容
公司管理相關(guān)推薦
文庫吧 www.dybbs8.com
備案圖鄂ICP備17016276號-1