亚洲香蕉成人av网站在线观看_欧美精品成人91久久久久久久_久久久久久久久久久亚洲_热久久视久久精品18亚洲精品_国产精自产拍久久久久久_亚洲色图国产精品_91精品国产网站_中文字幕欧美日韩精品_国产精品久久久久久亚洲调教_国产精品久久一区_性夜试看影院91社区_97在线观看视频国产_68精品久久久久久欧美_欧美精品在线观看_国产精品一区二区久久精品_欧美老女人bb

首頁 > 編程 > Delphi > 正文

用Delphi編寫點對點傳文件程序(2)

2019-11-18 18:45:16
字體：大 中 小
來源：轉載
供稿：網友
end;
end;

cs.OnRead(Sender: TObject;Socket: TCustomWinSocket);
var
sTemp:string;
bufSend:pointer;
begin
sRecv:=Socket.ReceiveText;
Case sRecv[1] of
MP_REFUSE:ShowMessage('Faint,be refused!');
MP_ACCEPT:begin
fsSend:=TFileStream.Create(OpenDialog1.FileName,fmOpen);
//iBYTEPERSEND是個常量，每次發送包的大小。
Socket.SendText(MP_FILEPROPERTY+Trunc(fsSend.Size/iBYTEPERSEND)+1);
end;
MP_NEXTWILLBEDATA:begin
Socket.SendText(MP_NEXTWILLBEDATA);
end;
MP_DATA:begin
try
GetMem(bufSend,iBYTEPERSEND+1);
if (fsSend.Position+1+iBYTEPERSEND) < fsSend.Size then
begin
fsSend.Read(bufSend^,iBYTEPERSEND);
Socket.SendBuf(bufSend^,iBYTEPERSEND);
fsSend.Free;
end//普通的發送，大小為iBYTEPERSEND
else begin
fsSend.Read(bufSend^,fsSend.Size-fsSend.Position-1);
Socket.SendBuf(bufSend^,fsSend.Size-fsSend.Position-1);
end;//最后一次發送，發送剩余的數據
finally
FreeMem(bufSend,iBYTEPERSEND+1);
end;{of try}
end;
MP_ABORT:begin
//被取消了:(
fsSend.Free;
end;
end;{of case}
end;


整理程序：
　　加入錯誤判斷，優化程序，把Server和Client聯合在一起，加入剩余時間進度顯示，做成能一次傳多個文件，加入聊天功能，就成了一個很好的點對點傳文件的程序。

上一篇：幾本我不喜歡的Delphi書籍（之一）

下一篇：用Delphi編寫點對點傳文件程序(1)

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
學習交流
熱門圖片

新聞熱點

疑難解答

圖片精選

網友關注

亚洲香蕉成人av网站在线观看_欧美精品成人91久久久久久久_久久久久久久久久久亚洲_热久久视久久精品18亚洲精品_国产精自产拍久久久久久_亚洲色图国产精品_91精品国产网站_中文字幕欧美日韩精品_国产精品久久久久久亚洲调教_国产精品久久一区_性夜试看影院91社区_97在线观看视频国产_68精品久久久久久欧美_欧美精品在线观看_国产精品一区二区久久精品_欧美老女人bb
亚洲乱码国产乱码精品精天堂| 亚洲人午夜精品免费| 成人网欧美在线视频| 91sa在线看| 97色在线观看| 日韩在线精品一区| 成人免费视频网址| 国产色综合天天综合网| 欧美激情2020午夜免费观看| 韩国v欧美v日本v亚洲| 欧美怡红院视频一区二区三区| 欧美中文在线视频| 不卡中文字幕av| 久久在线视频在线| 欧美视频在线免费| 91网站在线免费观看| 国产精品黄色av| 日韩风俗一区 二区| 91久久国产综合久久91精品网站| 亚洲男人天堂网| 日日狠狠久久偷偷四色综合免费| 国产成人亚洲精品| 北条麻妃99精品青青久久| 欧美激情一级精品国产| 亚洲欧洲国产伦综合| 色天天综合狠狠色| 一区二区欧美久久| 亚洲一区二区中文| 欧美日韩日本国产| 久久久精品电影| 精品自拍视频在线观看| 亚洲成成品网站| 亚洲人成网站免费播放| 国产精品日韩在线播放| 国产成人精品免费久久久久| 欧美精品第一页在线播放| 亚洲国产精品成人av| 国外成人性视频| 中文字幕亚洲欧美日韩在线不卡| 国产精品美女在线观看| 亚洲美女av在线播放| 一区二区av在线| 丁香五六月婷婷久久激情| 国产精品狼人色视频一区| 欧美巨乳美女视频| 欧美色欧美亚洲高清在线视频| 国产性色av一区二区| 精品国偷自产在线视频| 国产精品99久久久久久人| 欧美激情啊啊啊| 亚洲国产精品一区二区久| 国产亚洲精品成人av久久ww| 一区三区二区视频| 亚洲一区二区三| 日韩中文在线视频| 日韩亚洲欧美中文高清在线| 成人免费视频在线观看超级碰| 国语对白做受69| 亚洲国产私拍精品国模在线观看| 中文字幕精品一区二区精品| 亚洲一区二区三区视频播放| 夜夜嗨av色综合久久久综合网| 国产精品丝袜一区二区三区| 亚洲缚视频在线观看| 久久久久久网址| 中文字幕av日韩| 亚洲欧洲一区二区三区久久| 国产精品亚洲第一区| 日韩av在线电影网| 久久久中文字幕| 国产a级全部精品| 啊v视频在线一区二区三区| 日韩在线资源网| 亚洲精品www久久久久久广东| 久久99久国产精品黄毛片入口| 欧美日本黄视频| 91亚洲国产精品| 国产精品亚洲аv天堂网| 精品久久久久久久大神国产| 欧美日韩中国免费专区在线看| 亚洲第一福利网| 日韩一区在线视频| 庆余年2免费日韩剧观看大牛| 日韩hd视频在线观看| 欧美性xxxx极品hd满灌| 国产精品精品一区二区三区午夜版| 日韩经典中文字幕在线观看| 26uuu亚洲国产精品| 人人澡人人澡人人看欧美| 成人久久久久久久| 国产日韩在线免费| 欧美性69xxxx肥| 欧美午夜xxx| 亚洲国产中文字幕在线观看| 国产精品视频最多的网站| 日韩成人在线观看| 成人国产精品色哟哟| 在线观看视频亚洲| 日韩精品中文字幕有码专区| 欧美特黄级在线| 日韩中文字幕久久| 亚洲成人免费网站| 久久久日本电影| 亚洲国产精品va在线观看黑人| 亚洲乱码国产乱码精品精天堂| 丰满岳妇乱一区二区三区| 成人国产精品久久久久久亚洲| 亚洲a级在线观看| 亚洲黄色在线观看| 96国产粉嫩美女| 91精品国产99久久久久久| 69视频在线播放| 精品一区二区三区电影| 欧美美女15p| 久久久久国产精品一区| 亚洲xxxx视频| 欧美激情一二区| 日本不卡高字幕在线2019| 亚洲高清av在线| 国产精品久久激情| 91国语精品自产拍在线观看性色| 日韩欧美有码在线| 97av在线播放| 91免费精品国偷自产在线| 亚洲精品一区二区三区不| 九九久久国产精品| 欧美在线观看一区二区三区| 日韩成人高清在线| 国产一区二区精品丝袜| 亚洲欧美日韩直播| 国产成人avxxxxx在线看| 日本欧美在线视频| 成人免费观看a| 91久久综合亚洲鲁鲁五月天| 欧美丝袜美女中出在线| 久久精品人人做人人爽| 中文字幕亚洲在线| 亚洲欧美日韩久久久久久| 国产精品视频成人| 中日韩美女免费视频网址在线观看| 青青久久av北条麻妃黑人| 色多多国产成人永久免费网站| 日本一区二区在线免费播放| 国产精品毛片a∨一区二区三区|国| 亚洲精品白浆高清久久久久久| 亚洲欧美成人网| 欧美在线一区二区视频| 亚洲成色777777女色窝| 韩剧1988免费观看全集| 亚洲成人精品在线| 美日韩丰满少妇在线观看| 亚洲福利影片在线| 久久亚洲影音av资源网| 91精品啪在线观看麻豆免费| 久久人人爽人人爽人人片av高请| 九九精品在线视频| 亚洲图片制服诱惑| 欧洲成人在线视频| 国产91精品最新在线播放| 国产亚洲精品综合一区91| 亚洲福利在线观看| 国产免费一区二区三区在线观看| 久久久久久久一区二区| 国产精品福利网站|