Memory Leaks Quick Report

04/02/2022

Boa tarde, eu chamo meu relat�rio e destruou o form mas mesmo assim fica dando memory leak.

13 - 20 bytes: TList x 1, TQRLinkPage x1

Segue o c�digo

try
    Application.CreateForm(TQuick_A7DiferencaSNGPC, Quick_A7DiferencaSNGPC);
    with Quick_A7DiferencaSNGPC do begin
      with qry_Aux do begin
        Close;
        SQL.Clear;
        SQL.Add(consulta);
        Open;
      end;
      QuickRep1.Preview;
    end;
    finally
    FreeAndNil(Quick_A7DiferencaSNGPC);
    //Quick_A7DiferencaSNGPC.Free;
  end;

Paulo

Curtir t�pico + 0

Responder

Posts

24/03/2022

Elviro

Boa tarde, eu chamo meu relat�rio e destruou o form mas mesmo assim fica dando memory leak.

13 - 20 bytes: TList x 1, TQRLinkPage x1

Segue o c�digo

try
    Application.CreateForm(TQuick_A7DiferencaSNGPC, Quick_A7DiferencaSNGPC);
    with Quick_A7DiferencaSNGPC do begin
      with qry_Aux do begin
        Close;
        SQL.Clear;
        SQL.Add(consulta);
        Open;
      end;
      QuickRep1.Preview;
    end;
    finally
    FreeAndNil(Quick_A7DiferencaSNGPC);
    //Quick_A7DiferencaSNGPC.Free;
  end;

Opa, se o relat�rio est� no formul�rio, basta executar o sql e usar o preview, ap�s fechar o relat�rio tudo ficaria normal, n�o entendi o porque do FreeAndNil(Quick_A7DiferencaSNGPC);

Responder

Gostei + 0

23/03/2023

James

Boa tarde, eu chamo meu relat�rio e destruou o form mas mesmo assim fica dando memory leak.

13 - 20 bytes: TList x 1, TQRLinkPage x1

Segue o c�digo

try
    Application.CreateForm(TQuick_A7DiferencaSNGPC, Quick_A7DiferencaSNGPC);
    with Quick_A7DiferencaSNGPC do begin
      with qry_Aux do begin
        Close;
        SQL.Clear;
        SQL.Add(consulta);
        Open;
      end;
      QuickRep1.Preview;
    end;
    finally
    FreeAndNil(Quick_A7DiferencaSNGPC);
    //Quick_A7DiferencaSNGPC.Free;
  end;

Ol�. Recentemente tive esse problema com o QuickReport 6.0. Acontece que as vers�es mais recentes do QuickReport parecem estar com esse problema. Para resolver precisa editar o arquivo QuickRpt.pas, que fica dentro da pasta src onde foi instalado o quick report;
Abra o arquivo no delphi e procure pelo destructor TCustomQuickRep.Destroy. Nele adicione o seguinte: currlinkpage.free;
Isso deve parar com o vazamento de memoria. Lembrando que a pasta src precisa estar adicionada no library path do delphi.

Responder

Gostei + 0