麻豆小视频在线观看_中文黄色一级片_久久久成人精品_成片免费观看视频大全_午夜精品久久久久久久99热浪潮_成人一区二区三区四区

首頁 > 編程 > 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)

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

新聞熱點

疑難解答

圖片精選

網友關注

主站蜘蛛池模板： 娇喘在线| 毛片视频在线免费观看 | 一级大片久久 | 精品一区二区久久久久久按摩 | 激情小说激情图片激情电影 | 在线播放中文 | 夜夜夜精品视频 | 久久影院国产精品 | 国产亚洲精品成人 | 日本在线播放一区二区三区 | 国产亚洲精品久久久久久网站 | 久久综合入口 | 国产91丝袜在线播放 | 国产精品99免费视频 | 久久成人综合视频 | 草草久久久 | 久久久经典视频 | 欧美一区二区三区久久精品视 | 日韩在线欧美在线 | 操碰视频在线观看 | 丰满年轻岳中文字幕一区二区 | 人人舔人人射 | 精品国产91久久久久 | 欧美久久久一区二区三区 | 欧美精品一区二区三区四区 | 欧美一级性 | 欧美性a视频 | 成人午夜免费福利 | 黄色大片在线免费看 | 99爱在线免费观看 | 久综合 | 国内精品久久久久久久久久久久 | 亚洲性在线视频 | 亚洲午夜精品视频 | 国产一区视频在线免费观看 | 免费国产 | 国产青草视频在线观看视频 | 亚洲午夜久久久久 | 在线观看福利网站 | 欧美性受xxxx白人性爽 | 欧美一级成人一区二区三区 |