Tabla en memoria y cada tanto actualizar DB

[[AgustinOrtu]]

Busca información sobre ClientDataSet, en concreto sobre Cached Updates

[Casimiro Noteví]

Mira esto.

[jars]

Gracias Casimiro, creo que con esto me alcanza.

[ecfisa]

Hola jars.

¿ Y con que componentes te estas conectando ?

Saludos

[jars]

Estoy usando SQLDirect.
Acabo de leer el doc "La potencia de los ClientDataSet" pero al final dice que para un alta masiva no es conveniente.
Mi idea es actualizar en memoria alrededor de 1000 registros y cada tanto bajarlos a FireBird por el hecho que si se corta la luz, es minima la informacion que se pierde. Me conviene usar este esquema?

[[ElKurgan]]

Hombre, no se si se puede considerar 1.000 registros como una carga masiva.

Por propia experiencia, en algunas aplicaciones que hemos utilizado en el curro las actualizaciones de ClientDataset.ApplyUpdates se han ralentizado mucho a partir de 15.000 o 20.000 registros, y eso dependiendo también del equipo y la conexión de red.

Saludos

[jars]

Me estoy encontrando con el problema que cada vez que actualizo en memoria el ClientDataset (sin hacer el Apply) me va duplicando la memoria consumida y luego al hacer el ClientDataSet.ApplyUpdates(0) ademas de tardar una eternidad no devuelve toda la memoria y asi sigue creciendo hasta que Falla.

El ClientDataSet esta enlazado con un DataSetProvider y este con un TSDQuery (SQLDirect)
Este es el código:

Código Delphi [-]
var
  // TPosData es un registro de prueba
  Pos: array [0..299] of TPosData;

begin
  for i := 0 to 299 do
    with Pos[i] do
    begin
      // cds es el ClientDataSet
      if cds.Locate('U_ID', i+1, [loCaseInsensitive]) then
        cds.Edit
      else
      begin
        cds.Insert;
        cds.FieldByName('U_ID').AsInteger := i+1;
      end;
      
      // la tabla tiene 2 campos U_ID Integer y DATA Blob.
      blobF := cds.FieldByName('DATA') as TBlobField;
      bs := cds.CreateBlobStream(blobF, bmWrite);
      try
        bs.Write(Pos[i], SizeOf(Pos));
      finally
        bs.Free;
      end;
      cds.Post;
    end;
end;

Alguna idea?

[mamcx]

1.000 no tiende a ser un numero significativo para manejar en memoria para tipos de datos basicos. Quizas dependa de que tan grande son los datos en el BLOB.

Si se te esta incrementando la memoria, es porque hay un leak. No estas liberando algo, o tienes una referencia circular que te impide hacerlo.


Si hay otras maneras? Seguro. Pero implica salir del esquema de los DataSets y para lo que describes no parece necesario, si es que se encuentra la razon del aumento de memoria (Y cuanto es este aumento? Cuanta memoria disponen los equipos que usaran esto?)