用Delphi編寫點(diǎn)對(duì)點(diǎn)傳文件程序(2)

2019-11-18 18:45:16

字體：大中小

供稿：網(wǎng)友

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是個(gè)常量，每次發(fā)送包的大小。
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//普通的發(fā)送，大小為iBYTEPERSEND
else begin
fsSend.Read(bufSend^,fsSend.Size-fsSend.Position-1);
Socket.SendBuf(bufSend^,fsSend.Size-fsSend.Position-1);
end;//最后一次發(fā)送，發(fā)送剩余的數(shù)據(jù)
finally
FreeMem(bufSend,iBYTEPERSEND+1);
end;{of try}
end;
MP_ABORT:begin
//被取消了:(
fsSend.Free;
end;
end;{of case}
end;

整理程序：
　　加入錯(cuò)誤判斷，優(yōu)化程序，把Server和Client聯(lián)合在一起，加入剩余時(shí)間進(jìn)度顯示，做成能一次傳多個(gè)文件，加入聊天功能，就成了一個(gè)很好的點(diǎn)對(duì)點(diǎn)傳文件的程序。

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

下一篇：用Delphi編寫點(diǎn)對(duì)點(diǎn)傳文件程序(1)