Serio Problema Hellp !!!! - Avan�ado !!!!

Question

Pessoal � um prazer fazer parte desta comunidade !!!Ai vai Tenho uma aplica��o toda em Kylix com interbase , mas estou com serios problemas de memoria em minha aplica��o ! .A aplica��o e toda grafica ...

Andredelfino · Answer

esperimente criar os forms apenas em modo de execucao e ent�o vai op�oes e remova todos os forms criados na inicializa��o do projeto (ou vai ao arquivo .dpr e remova as linha de cria��o de form ), deixe apenas o form principal e o data module, assim quando precisar abrir voce cria o form e chama com form.showmodal e ao sair ou seja na linha debaixo limpe a memoria com feeandnill(form);
Ex:

if form2 = nil then
application.createform(tform2,form2);
form2.showmodal;
freeAndNill(form2);

espero ter colaborado.
boa sorte

Freina · Answer

Cara n�o funcionou !!! sempre que navego entre as telas ele deixa de 100K a 200K residentes !! tenho varios jpgs carregando na form , sera isso !? que fica em memoria ?!!!

Isso t� me deixando louco !!!!!

HELLP !!!!

Allen74 · Answer

freina, o problema pode estar na forma com que voc� est� carregando os arquivos JPG.

Se tiver como, poste aqui o trecho de c�digo onde voc� faz a carga dos arquivos e tamb�m trechos onde voc� cria e destr�i objetos dentro de seu formul�rio, geralmente nos eventos OnCreate e OnDestroy.

Freina · Answer

Eu carrego os JPEG no evento OnShow do formulario... Acontece que esses componentes images fazem a func�o de bot�es do sistema... � assim que eles sao carregados:

Chamada do Formulario: // os formularios sao chamados a partir do evento on click de um objeto TImage...
OnImageClick
begin
if nome_form = nil then
Application.CreateForm(tnome_form, nome_form);
nome_form.Show;
end;

OnFormShow;
begin
Image1.Picture.LoadFromFile(�botao.jpg�) Image2.Picture.LoadFromFile(�botao.jpg�)
Image3.Picture.LoadFromFile(botao.jpg�)
end;

OnFormClose;
begin
Action := CaFree;
nome_form := nil;
end;

Ja tentei dar um Free no TImage mas comecou a dar Access Violation na recarga do formulario...

Freina · Answer

ninguem sabe ??????...

Paulopapesso · Answer

Esta dica � de um tutorial624 -A melhor maneira de liberar um form da memoriaQuando voc� usa Form.Free ou Form.Destroy, voc� est� imediatamento solicitando a destrui��o do formul�rio. Com Form.Release, todas as mensagens pendentes no pool do formul�rio s�o postadas - exemplo: redesenho do formul�rio, movimento do mouse, pressionamento de tecla,...use assim:FormXX := TFormXX.create ( application );try  FormXX.ShowModalfinally  FormXX.Release;  FormXX := nil;end;boa sorte!...

Freina · Answer

Estou come�ando a desconfiar do potencial , do Kylix 3 ,...

Allen74 · Answer

freina,N�o acho que seja um problema do Kylix. O problema pode estar em algum c�digo de aloca��o de mem�ria.Vamos por partes:1 - Voc� removeu da lista de Auto-create forms todos os formul�rios que voc� cria dinamicamente via c�digo? (Application.CreateForm).2 - Voc� cria algum outro componente dinamicamente dentro do formul�rio?3 - Ao navegar entre os formul�rios, s�o perdidos de 100K a 200K de mem�ria quando voc� alterna os formul�rios j� abertos ou somente quando voc� abre um formul�rio que ainda n�o estava vis�vel?Se puder, poste o c�digo do menor destes formul�rios que cont�m imagens, ou ent�o mande para meu e-mail se preferir. Voc� j� verificou se ao fechar o programa a mem�ria que antes estava perdida � devolvida ao Sistema Operacional?...

Freina · Answer

Quando fecho o executavel , a memoria � devolvida ao sistema.

S� o formPricipal e os data modules est�o na lista de forms .

N�o crio nem um componente dinamicamente , �so as imagens , s�o carregadas automaticamente , mas quando dou um close no form �teoricamente isso tinha que sair da memoria junto com o form �.

Exemplo de navega��o !

Fom1 = 100 kb de uso em memoria
Form1 abro o form2 = 200 k de uso em memoria
form2 fecho o form2 e retorno para o form1 = 200k de memoria.

Eu carrego os JPEG no evento OnShow do formulario... Acontece que esses componentes images fazem a func�o de bot�es do sistema... � assim que eles sao carregados:

Chamada do Formulario: // os formularios sao chamados a partir do evento on click de um objeto TImage...
OnImageClick
begin
if nome_form = nil then
Application.CreateForm(tnome_form, nome_form);
nome_form.Show;
end;

OnFormShow;
begin
Image1.Picture.LoadFromFile(�botao.jpg�) Image2.Picture.LoadFromFile(�botao.jpg�)
Image3.Picture.LoadFromFile(botao.jpg�)
end;

OnFormClose;
begin
Action := CaFree;
nome_form := nil;
end;