delphi批量存入多媒体字段 遇到内存溢出的坑

最近delphi做一个小工具其中一个需求要把上W张照片存入数据库多媒体字段。

程序转到1，2W的时候即内在溢出了。最多一次转了3W张照片。很简单的一段代码后来仔细检查发现其中的坑。

下面放上代码

  with DMConn.AdsEdit do
  begin
    Active := False;
    CommandText := 'SELECT ID, Data, Ext FROM Table where 1=2';
    Active := True;
  end;
  
  with DMDst.UniQuery do
  begin
    Active := False;
    SQL.Clear();
    SQL.Add(vSql);      
    Active := True;  
    while not Eof do
    begin
      vFile := vPath + DMDst.UniQuery.FieldByName('PATH').AsString;
      vNewID := DMDst.UniQuery.FieldByName('NewID').AsString;
      gg.Str.Replace(vFile, '/', '');
      vPersonID := ExtractFileNameNoExt(vFile);

      if FileExists(vFile) and (DMConn.GetSQLValueInt('SELECT count(*) FROM Table where ID = ' + QuotedStr(vNewID)) <= 0) then
      begin
        try
          with DMConn.AdsEdit do
          begin
            Edit;
            Append;
            FieldByName('ID').AsString := vNewPersonID;
            FieldByName('Ext').AsString := ExtractFileExt(vFile);
            TBlobField(FieldByName('Data')).LoadFromFile(vFile);
            Post;
          end;
        finally
        end;
      end;
      Next;
    end;

注意：

'SELECT ID, Data, Ext FROM Table where 1=2'; 这段代码中的where 1=2就是这个where加上这后进程内存一直保持在30M左右不加这个where内在就一直不停增长，直到内存溢出。感觉不加这一句，每次添加的照片就增加到

DMConn.AdsEdit里面了。