文件上传的问题

dupit

文件上传小的时候没问题
但是上传一个400M文件提示
Out of memory while expanding memory stream

下面是部分主要代码
constructor TFileDoc.Create(ADataSet: TSQLDataSet;FlowField,FileNameField:string);
begin
  inherited create;
  FRefDataSet :=ADataSet;
  FFlowField :=FlowField;
  FFileNameField :=FileNameField;
  FContent := TMemoryStream.Create;
end;

procedure TFileDoc.LoadFromFile(const AFileName: string);
begin
  if SysUtils.FileExists(AFileName) then
  begin
    FContent.LoadFromFile(AFileName); //在这里就跳出内存溢出的提示
  end
  else
    jsDialogs.ShowWarning(SysUtils.Format('文件%s不存在', [AFileName]),'');
end;

destructor TFileDoc.Destroy;
begin
  FContent.Free;
  inherited;
end;

这是什么原因

atiger

TFileDoc  是平台提供的还是你们自己写的。从错误信息看是溢出了

dupit

是自己写的  上传100M以下都没问题 超出就不行了
是不是写法有问题 还是电脑缓存不足的原因啊， 可是Windows任务管理器里面 明明显示剩余物理内存还够啊

有没好的建议啊

atiger

哦，我们看看，有结果跟帖告知