从客户端上传大量照片（20000张。但总大小只有300M）到远程服务器 （findfiel是一个文件搜索控件），但是客户端消耗内存越来越多。

Question

从客户端上传大量照片（20000张。但总大小只有300M）到远程服务器 （findfiel是一个文件搜索控件），但是客户端消耗内存越来越多。最后out of 了。怎么回事
  zp.Close; zp.SQL.Text:= 'update zp set zp=:zp where bmh=:bmh ';
for i:=0 to FindFile1.searchforfiles.count-1 do begin
  filename:= extractfilename(FindFile1.SearchForFiles[i]) ;  Mem := TMemoryStream.Create;
  Mem.LoadFromFile(FindFile1.SearchForFiles[i]);
  Mem.Position:=0;
zp.Params[1].value:=changefileext(filename,'');
zp.Params[0].LoadFromStream(mem ,ftBlob);
try
  zp.execute;
  finally
  Mem.Free;
  end;

Answer 1

Mem := TMemoryStream.Create;放到for循环外面，你那个循环创建数据流了