procesos lentos

[vexap]

Hola a todos

Bueno hace unos diass vine aqui en busca de solucion para un problema que tengo, la verdad que no se (sera que odio el trabajo de impresiones) pero toy medio traumada ya,

resulta que en la aplicacion que tengo se impremen unos 400 recibos de nomina

el codigo que hace esto de inicio tenia muchos querys en el ciclo while , los cuales quite y mande todo a un memdata

el punto fue que con eso se redujo el tiempo de impresion ya que normalmente tardaba unos 25 mins que ese es el problemota, ahora al quitar los querys tarda 2 mins

pero eso en xp, al instalarlo en vista plop no hay cambio alguno

lo que se usa para esto es un objeto memo al cual se le añaden lineas despues de esto se usa el insert para meter los datos

y pues ya revise el codigo es un procedimiento ALGO largo pero dentro de lo que cabe esta bien

y pues no se que pase
ya tambien cheque si algo raro tenia la otra maquina en donde esta lento esto pr no, no hay nada de raro

sera el objeto??

Alguna idea

[Casimiro Notevi]

Hola, bienvenida a clubdelphi, por favor, lee nuestra guía de estilo para poder entendernos mejor , muchas gracias por tu colaboración.

[[duilioisola]]

Por lo que entiendo de tu mail, haces algo como esto:

Código Delphi [-]
{Genero un gran Memo y lo imrpimo}
Memo.Lines.Clear;
while (not Recibos.EOF) do
begin
   while (not LineasRecibos.EOF) do
   begin
      Memo.Lines.Add(LineasRecibos.Registros);
      LineasRecibos.Next;
   end;
   Recibos.Next;
end;
Imprimir(Memo);

Si es así, podrías romper la impresión, imprimiendo cada recibo y no todos los recibos en un mismo memo.

Puede ser que Vista esté trabajando de más, tratando de manejar grandes cantidades de memoria. (comentas que además de generar el Memo, haces muchos querys a tablas en memoria)

La idea es la siguiente:

Código Delphi [-]
{Genero un memo por recibo y lo imprimo}
while (not Recibos.EOF) do
begin
   Memo.Lines.Clear;
   while (not LineasRecibos.EOF) do
   begin
      Memo.Lines.Add(LineasRecibos.Registros);
      LineasRecibos.Next;
   end;
   Imprimir(Memo);
   Recibos.Next;
end;

[[duilioisola]]

También se me ocurre que utilices TStrings en vez de Memos.
La propiedad Lines de un Memo es un TString. Al no tere el componente a cuestas (la parte visual, eventos, metodos, etc.) debería ser más liviano.

La idéa es más o menos esta:

Código Delphi [-]
var
   s : TStrings;
begin
   s := TStringList.Create;
   try
      while ...
      begin
         s.Add(DatosDelRecibo);
      end;
      Imprimir(s);
   finally
      s.Free;
   end;
end;

[[duilioisola]]

Tambiçen deberías fijarte si el Windows Vista tiene suficiente memoria, para manejar los datos que le envías.

Deberías verificar si los primeros recibos que tratas van a una velocidad normal y los siguientes van haciéndose cada vez más lentos.

También deberías ver si tienes espacio en disco.

Si Windows detecta que no hay memoria suficiente, utiliza una porción del disco para emularia. Lo malo es que es muchiiiisimo más lenta.