a亚洲精品_精品国产91乱码一区二区三区_亚洲精品在线免费观看视频_欧美日韩亚洲国产综合_久久久久久久久久久成人_在线区

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

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

新聞熱點

疑難解答

圖片精選

網友關注

主站蜘蛛池模板： 成人区精品一区二区婷婷 | 国产综合精品一区二区三区 | 精品国产乱码久久久久久丨区2区 | 涩涩亚洲 | 亚洲一二三 | av在线免费观看网址 | 欧美寡妇偷汉性猛交 | 久久精品国产99国产 | 91成人免费视频 | 中文日韩在线 | 亚洲精品高清视频 | 成人福利在线观看 | 99国产精品99久久久久久 | 日韩视频在线播放 | 国产精品99久久久久久久久久久久 | 91看片免费| 亚洲精品成人av | 欧美不卡 | 日韩精品一区二区三区中文在线 | jizzjizz亚洲中国少妇 | 99热这里有精品 | 成人在线www| 亚洲黄色av网站 | 久久综合久色欧美综合狠狠 | 成人网电影 | 欧美日韩在线免费观看 | 国产精品福利在线观看 | 精品久久久久久久久久久院品网 | 在线高清av | 国产精品一二三四区 | 一区二区av在线 | 国产成人高清精品免费5388 | 久久这里只有精品首页 | 日韩精品视频一区二区三区 | 国产精品久久嫩一区二区 免费 | 国产色网 | 日韩人体在线 | 日韩中文字幕av | 国产一区免费在线观看 | 日本午夜在线 | 一区二区三区在线不卡 |