Comentários sobre: Acelerando TClientDataSet com Midas Speed Fix – Unit

Por: Cleo Hickmann Junior

Cleo Hickmann Junior — Fri, 30 Jan 2009 12:50:57 +0000

Cesar, executei os testes aqui com o programa exemplo anexado ao QC 7102. Realmente os tempos são impressionantes. Mas este caso específico, o TClientDataSet utiliza o método AppendData, buscando os dados de outro TClientDataSet. Porém, fizemos testes com as nossas aplicações fazendo importação de uma grande quantidade de dados buscando diretamente de arquivo texto e inserindo através dos métodos Insert e Post. Mesmo assim estamos buscando uma forma de poder aproveitar as vantagens do Midas Speed Fix.

Grande abraço.

Por: Cesar

Cesar — Mon, 26 Jan 2009 10:41:56 +0000

Paulo, veja nos comentários anteriores, eu expliquei o mesmo para o Mauro. Para usar o MidasSpeedFix, é necessário utilizar o FastMM, tem o link nos outros comentários.
A partir do Delphi 2006, o FastMM já está incluido.

Por: Paulo

Paulo — Mon, 26 Jan 2009 10:06:42 +0000

estou testando aqui como vc falou so que aparece um mensagem toda vez que compilo o projeto teria como retirar este mensagem ou eu devo ter feito algo de errodo

“You must install an alternative memory manager like FastMM4. FastMM4 must run in RELEASE mode to see an improved performance”

Por: Cesar

Cesar — Thu, 22 Jan 2009 21:55:09 +0000

Mauro, Memory leak é causado por objetos que você criou e não destruiu, é necessário procurar nos fontes isto e corrigir. Ex:

procedure ListarItemsMemoryLeak;
var
  SL: TStringList;
  I: Integer;
begin
  SL:= TStringList.Create;
  for I:= 0 to 99 do
    SL.Add('Item: ' + I);
  MessageDlg(SL.Text, mtInformation, [mbOK], 0);
end;

Este é um caso típico de memory leak, pois foi criado uma instancia de TStringList e não foi destruído, pra resolver este problema, é necessário o seguinte código:

procedure ListarItemsOK;
var
  SL: TStringList;
  I: Integer;
begin
  SL:= TStringList.Create;
  try
    for I:= 0 to 99 do
      SL.Add('Item: ' + I);
    MessageDlg(SL.Text, mtInformation, [mbOK], 0);
  finally
    SL.Free;
  end;
end;

Agora é procurar por Componentes, Forms e Objetos que você cria via código na aplicação e esqueceu de destruir. Boa sorte!!!

Por: otoni

otoni — Thu, 22 Jan 2009 21:38:21 +0000

Caro Cesar, mais uma vez agradeço sua ajuda, consegui resolver o problema. Porém agora depois de instalado o FASTMM, descobri que meu programa está com “Vazamento de Memoria”. Como detectar este vazamento, trabalho com o DELPHI 7, e não tenho ideia de como resolver isto. Se Vc puder me ajudar, agradeço antecipadamente.

Mauro.

Por: Cesar

Cesar — Thu, 22 Jan 2009 18:09:11 +0000

Otoni, se você utiliza O delphi 2006, 2007 ou 2009, basta apenas remover esta linha, pois estas versões já utilizam o FastMM como gerenciador de memória padrão. Se você usa usa uma versão anterior do Delphi, precisa baixar o FastMM e adicionar o diretório dele no Library Path do Delphi.
http://sourceforge.net/projects/fastmm/

Por: Otoni

Otoni — Thu, 22 Jan 2009 18:01:50 +0000

Obrigado, Cesar, pela dica

estou tendo agora este erro ” [Fatal Error] PRTeste.dpr(160): File not found: ‘FastMM4.dcu’ ”

como faço para acertar isto.

Valeu.

Por: Cesar

Cesar — Thu, 22 Jan 2009 17:30:28 +0000

Otoni, Só adicione ao projeto, um exemplo de um .dpr a seguir:

program Program1;

uses
  FastMM4,
  Forms,
  MidasLib,
  MidasSpeedFix in '..\..\..\..\Components\Utils\MidasSpeedFix.pas',
  ThemedDBGrid in '..\..\..\..\Components\Utils\ThemedDBGrid.pas,
  FMainForm in 'FMainForm.pas' {MainForm};

begin
  Application.Initialize;
  ReportMemoryLeaksOnShutdown:= True;
  Application.CreateForm(TMainForm, MainForm);
  Application.Run;
end.

Por: Otoni

Otoni — Thu, 22 Jan 2009 16:20:38 +0000

Cesar,

Voce poderia passar um passo a passo de como instalar esta unit no projeto.

Valeu.

Por: Cesar

Cesar — Thu, 22 Jan 2009 01:55:58 +0000

Murilo,

Não tem perigo de ter problemas com anti-virus.
Patch em memória é algo comum na VCL, porque o código é feito dentro do contexto da aplicação seja através da MidasLib ou da Midas.dll. Diferente de escrever um programa que vai alterar outro.
Note que no caso da MidasLib, tudo vai ser parte do mesmo programa, e na Midas.dll, o executável que carregou a Midas.dll é quem vai fazer o patch.