客户端用clientsocket,服务器端用serversocket,clientsocket调用sendstream()发送文件,下面是server端的接收代码:
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var
  stream:tmemorystream;
  strln:string;
  nrecved:integer;begin
  stream:=tmemorystream.Create;
  try
    while true do
      begin
        nrecved:=socket.ReceiveBuf(buffer,sizeof(buffer));
        if nrecved<=0 then goto break
        else
         stream.Write(buffer,nrecved);
         sleep(50);
      end;
  stream.Position:=0;
  stream.SaveToFile('e:\minedb.mdb');
  finally
    stream.Free;
  end;
end;
我的问题是:第一次执行到stream.SaveToFile('e:\minedb.mdb');后文件正常被传送。
  结下来又执行 了一次ServerSocket1ClientRead,因为这时的nrecved是零,执行到stream.SaveToFile('e:\minedb.mdb');后又把正确的e:\minedb.mdb覆盖掉了。怎么办