在用TClientSocket&TServerSocket传输文件时，每次发送的包大小应该怎么设定才能达到最快？也就是下面的：

try
  GetMem(SouFileBuf,BufSize);
  if (opFile.Position BufSize 1) < opFile.Size then
  begin
    opFile.Read(SouFileBuf^,BufSize);
    Socket.SendBuf(SouFileBuf^,BufSize);
    IsSendEnd := False;
  end
  else
  begin
    LastBufSize := opFile.Size-opFile.Position;
    opFile.Read(SouFileBuf^,LastBufSize);
    Socket.SendBuf(SouFileBuf^,LastBufSize);
    opFile.Free;
    IsSendEnd := True;
  end;//最后一次发送，发送剩余的数据
finally
  FreeMem(SouFileBuf,BufSize 1);
end;

BufSize应该怎么设定，我测试了一下，在本机 BufSize设定在４１９２或者更大时传输速度很快。 但如果在局域网上BufSize就相反了，并不是我认为的越大 越好，这是BufSize设定在２０４８就是2K时速度最快，设 定多了会出现异常。 但如果在广域网上INTERNET上，BufSize设定在１０２４左 右最快，设定多了会出现异常。 请问这个BufSize是不是有什么最佳的算法，让它能够处于 传输的饱和状态，不然在不知道传输的途径或者网络情况下很男让其工 作在最佳状态。 ======================= 无情剑客多情剑

提問者您好:


以上回應是否已得到滿意的答覆？


若已得到滿意的答覆，請在一週內結案，否則請在一週內回覆還有什麼未盡事宜，不然，
將由版主(尚無版主之區域將由副站長或站長)採自由心證,選擇較合適之解答予以結案處理，
被選上之答題者同樣會有加分獎勵，同時發問者將受到扣 1 分的處分。不便之處，請見諒。


有問有答有結案，才能有良性的互動，良好的討論環境需要大家共同維護，感謝您的配合。

------
我是機器人,我不接受簡訊.