Delphi功能強大，用Delphi寫軟件，可以大大縮短軟件的開發周期。本文介紹怎樣用Delphi編寫點對點傳文件程序。
--------------------------------------------
Delphi功能強大，用Delphi寫軟件，可以大大縮短軟件的開發周期。關於點對點傳文件的基本思路，就是一個服務器軟件，一個客戶端軟件，使用同一個端口，待連接上以後，客戶端給服務器發送一個請求，包括待傳的文件的文件名，大小等，如果服務器接受，就開始傳文件。當然，文件傳輸的時候可以有兩種模式，ASCII碼和Bin，不過一般通用Bin 就可以了。基於上面的討論，本來用Delphi4的NMStrm，NMStrmServ 控件就可以完成，但是我測試過了，NMStrm控件對於較小的文件還可以使用，而且很方便，但是如果文件一大(1M)就會出錯。所以接下來我們利用Delphi中TServerSocket和TClientSocket寫這個程序由於以太包大小的限制以及DelphiSocket的處理機制(Delphi中，當你用一個Socket發送一個較大的Stream，接受方會激發多次OnRead事件，Delphi她只保證多次OnRead事件中每次數據的完整，而不會自己收集數據並返回給用戶。所以不要以為你把待傳文件在一個Socket中Send一次，另一個中Recv一次就可以了。你必須自己收集數據或自己定義協議。)，所以我們采用自定義協議的方法。定義協議的規范方法是利用Record End。如：
TMyFileProtocol=Record
sSendType=(ST_QUERY,ST_REFUSE,ST_DATA,ST_ABORT,...);
iLength:integer;
bufSend:Buffer;
End;
我曾試過這個辦法，但失敗了，而且我一直認為我的方法是正確的，但程序一直編譯通不過，估計是Delphi有問題:) 所以我在下列的范例程序中利用另外一種辦法。Socket 類中有兩屬性ReceiveText和ReceiveBuf，在一個OnRead事件中，只能使用一次該兩屬性，所以我們可以利用一個全程變量來保存是該讀Text還是Buf，也就是說讀一次Text，再都一次Buf，這就模擬了TMyFileProtocol。
開始程序：
寫一個最簡單的，主要用於講解方法。
定義協議：
Const
MP_QUERY =1;
MP_REFUSE =2;
MP_ACCEPT =3;
MP_NEXTWILLBEDATA=4;
MP_DATA =5;
MP_ABORT =6;
MP_OVER =7;
MP_CHAT =8;
協議簡介：
首先由Client發送MP_QUERY，Server接受到後發送MP_ACCEPT或MP_FEFUESE；
Client接受到MP_ACCEPT發送MP_FILEPROPERTY，Server接受到後發送MP_NEXTWILLBEDATA；
Client接受到發送MP_NEXTWILLBEDATA，Server接受到後發送MP_DATA；
Client接受到MP_DATA，發送數據，Server接受數據，並發送MP_NEXTWILLBEDATA；
循環，直到Client發送MP_OVER；
中間可以互相發送MP_CHAT+String；
Server程序：
放上以下控件:SaveDialog1,btnStartServer,
ss,(TServerSocket)
btnStartServer.OnClick(Sender:TObject);
begin
ss.Port:=2000;
ss.Open;
end;
ss.OnClientRead(Sender: TObject;Socket: TCustomWinSocket);
var
sTemp:string;
bufRecv:Pointer;
iRecvLength:integer;
begin
if bReadText then
begin
sTemp:=Socket.ReceiveText;
case sTemp[1] of
MP_QUERY:begin
//在這裡拒絕
SaveDialog1.FileName:=Copy(sTemp,2,Length(STemp));
if SaveDialog1.Execute then
begin
Socket.SendText(MP_ACCEPT);
fsRecv:=TFileStream.Create(SaveDialog1.FileName,fmCreate);
end
else Socket.SendText(MP_REFUSE+去死);
end;
MP_FILEPROPERTY:begin
//要發送StrToInt(Copy(sTemp,2,Length(sTemp))) 次
//時間進度顯示。。。
Socket.SendText(MP_NEXTWILLBEDATA);
end;
MP_NEXTWILLBEDATA:begin
Socket.SendText(MP_DATA);
bReadText:=false;
end;
MP_END:begin
fsRecv.Free
bReadText:=true;
end;
MP_ABORT:begin
fsRecv.Free;
bReadText:=true;
end;
MP_CHAT:begin
//Chat Msg
end;
end;{of case}
end
else begin
try
GetMem(bufRecv,2000);//2000 must >iBYTESEND
Socket.ReceiveBuf(bufRecv^,iRecvLength);
fsRecv.WriteBuffer(bufRecv^,iRecvLength);
finally
FreeMem(bufRecv,2000);
end;{of try}
bReadText:=true;
Socket.SendText(MP_NEXTWILLBEDATA);
end;
end;
Client程序：
放上以下控件：edtIPAddress,OpenDialog1,btnConnect,btnSendFile,
cs. (TClientSocket)
btnConnect.OnClick(Sender:TObject);
begin
cs.Address:=edtIPAddress.Text;
cs.Port:=2000;
cs.Connect;
end;
btnSendFile.OnClick(Sender:TObject);
begin
if OpenDialog1.Execute then
Begin
cs.Socket.SendText(MP_QUERY+OpenDialog1.FileName);//FileSize???
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聯合在一起，加入剩余時間進度顯示，做成能一次傳多個文件，加入聊天功能，就成了一個很好的點對點傳文件的程序。
