Out of memory

[Casimiro Noteví]

Empezado por blaiselaborde

[..]
La aplicación básicamente toma ficheros y los sube a Buffers para modificarlos y descargarlos nuevamente en otros ficheros.

Para ello utiliza arrays dinámicos de Char ó LongInt.

[..]

huy... huy... qué peligro

Precisamente ahí, como dice Neftalí, es una gran fuente de posibles problemas: buffers, arrays dinámicos, etc.

[blaiselaborde]

Tendría ó sabría alguno qué funciones me permitirían mirar y manipular la memoria del Stack? . . . he estado mirando las API "GlobalMemoryStatus" y lo que obtengo son los mismos valores de la memoria física del Administrador de Tareas, que como comenté anteriormente, tiene suficiente memoria disponible al momento de sacar el mensaje de "Out of Memory".

[[coso]]

Hola,

huy... huy... qué peligro

yo ahora estoy de acuerdo con neftali y casimiro, viendo que usas punteros. ¿Seguro que asignas y liberas memoria correctamente? De todas maneras, me da la sensacion que trabajas estilo 'c', digamos (corrigeme si me equivoco), vamos, que no usas clases ni nada de nada para cargar el fichero y modificarlo. Estaria bien que nos pusieras algo del codigo de asignacion y de liberacion, si de caso, para poder comentar un poco mejor. Un saludo.

[blaiselaborde]

He tratado de simplificar el código con la parte dónde se maneja la memoria dinámica, a ver si alguno me dá una idéa del problema de la aplicación. Como esta hay otras varias.

function TfrmPaginar.ObtenerListado( { Params}): Boolean;
Const
  Desborde65 = 65535+1;
  Desborde130 = Desborde65*2;
  Desborde190 = Desborde65*3;

var
  ListaCabecera       : TStringList;
  BufferPagDes,
  BufferPagDes65,
  BufferPagDes130,
  BufferPagDes190   : array of LongInt;

begin
  Result           := True;
  listaCabecera := TStringList.Create;
  Try
    Try
      SetLength(BufferPagDes,     NumPaginas + 1);
      SetLength(BufferPagDes65,  NumPaginas + Desborde65  + 1);
      SetLength(BufferPagDes130, NumPaginas + Desborde130 + 1);
      SetLength(BufferPagDes190, NumPaginas + Desborde190 + 1);
    Except
      On E: EOutOfMemory do
        Begin
          ShowMessage('Falta de Memoria: ' + E.Message);
          Result := False; 
         end; // On
    end; // Try

// ***** Código ****

   BufferCab    := StrAlloc(TamanoCab);
   BufferCab    := listaCabecera.GetText;

// ***** Código ****

  Finally
    listaCabecera.Free;
    
    if conCabecera then 
      StrDispose(BufferCab);

    Finalize(BufferPagDes);
    Finalize(BufferPagDes65);
    Finalize(BufferPagDes130);
    Finalize(BufferPagDes190);
  end;
end;

[[coso]]

Hola,
haces un array de longint y le asignas numpaginas como longitud, aparte del desborde? no tendria que ser numero de datos por pagina * numpaginas (algo asi)? Porque usas 3 arrays? fijate que si asignas NumPaginas + Desborde65 + 1 ya estas asignando mas de 65535, por lo que en el caso que se pueda asignar mas de 65535 puedes directamente usar un array para todo(en el caso que no se pueda asignar te saltaria un error de memoria, claro, quiza vaya por aqui...)...
Personalmente haria una clase y lo miraria todo con lupa (mirar los limites de asignacion, que ahora no se; si el finalize funciona correctamente, si se necesita el freeandnil, etc...)
De todas maneras, para encontrar el error ahora lo mejor seria ir con el step para saber en que linea te salta...
Un saludo y a ver si te sirve.