Insuficiencia De Memoria

[Guest Amarildo]

Ola pessoal, tenho um aplicativo, onde o usuario passa o coletor de dados para ler o codigo de barras, quando ocorre varias leituras começa aparecer esta mensagem de insuficiencia de memoria e trava meu aplicativo, alguém saberia me orientar o que devo fazer para que não ocorra mais esse problema. Estou usando paradox como base de dados, mais para pesquisar estou usando query. No aguardo por uma ajuda, obrg a todos

[Churc]

opa

bom primeiro tem que ver a máquina, qual a

configuração dela? memoria ram, etc...

Segundo tem que ver como está sendo feita

a leitura, será que você não está esquecendo

de liberar algo da memória, tipo um ponteiro

que recebe os dados mais permanece na memória

sem ser liberado?

abs

[Guest Visitante]

Ola Churc , como que faço para liberar a memoria neste caso, estou usando o try para criar a aplicação para fazer a pesquisa, teria alguma orientação para que eu pudesse verificar onde possa estar errado na aplicação, no aguardo, obrg pela atenção

[Churc]

opa

vai depender de como isso é feito...

teria como você colar a parte do seu código

que é feita a leitura?

E sobre a configuração do computador?

Memória ram baixa demais não poderia ser?

Outra coisa, quando exatamente acontece o

erro, quando faz a leitura, ou quando é inserido

o código no banco de dados?

abs

[Guest Visitante]

Obrg, Churc, encontra-se em anexo o layout da pesquisa na qual estou processando:

procedure TFORMFILTROETIQUETA_SINTONIA.MaskEditCODIGOEANExit(

Sender: TObject);

var vOrdem,vSelect, VSelect1,DATAINICIAL, DATAFINAL : String;

dw:integer;

begin

W_CODIGOEAN := ' ';

IF (FORMFILTROETIQUETA_SINTONIA.MASKEDITCODIGOEAN.TEXT = '') THEN

BEGIN

MASKEDITCODIGOREFERENCIA.SETFOCUS;

EXIT;

END

ELSE

BEGIN

W_CODIGOEAN := ' ';

W_CODIGOEAN := MASKEDITCODIGOEAN.TEXT;

QUERY1.ACTIVE := TRUE;

QUERY1.Close;

QUERY1.OPEN;

VORDEM := 'ES_CODIGOEANBARRA';

With Query1 do

begin

vOrdem := 'ES_CODIGOEANBARRA';

VSELECT1 := 'SELECT * FROM ESTOQUE '+

'WHERE '+

'(ESTOQUE.ES_CODIGOEANBARRA=:EAN) ';

QUERY1.Close;

QUERY1.SQL.clear;

QUERY1.SQL.Add(vSelect1);

Query1.Params[0].AsSTRING := FORMFILTROETIQUETA_SINTONIA.W_CODIGOEAN;

QUERY1.Open;

FORMFILTROETIQUETA_SINTONIA.MASKEDITCODIGOEAN.TEXT := W_CODIGOEAN;

FORMFILTROETIQUETA_SINTONIA.MASKEDITCODIGOREFERENCIA.SetFocus;

END;

END;

IF (QUERY1ES_CODIGOEANBARRA.TEXT = W_CODIGOEAN) THEN

BEGIN

FORMMENU.W_OPERACAO := 'FORMFILTROETIQUETA_SINTONIA';

MASKEDITCODIGOREFERENCIA.SetFocus;

Modulo.TEstoque.Cancel;

FormPesquisaESTOQUEX := TFormPesquisaESTOQUEX.CREATE(APPLICATION);

FORMPESQUISAESTOQUEX.QUERY1.ACTIVE := TRUE;

FORMPESQUISAESTOQUEX.QUERY1.Close;

FORMPESQUISAESTOQUEX.QUERY1.OPEN;

REFRESH;

OPERACAO := '4';

VORDEM := 'ES_CODIGOEANBARRA';

FORMPESQUISAESTOQUEX.COMBOBOXORDEM.TEXT := 'POR CODIGO EAN';

FORMPESQUISAESTOQUEX.EDITPESQUISA.TEXT := FORMFILTROETIQUETA_SINTONIA.W_CODIGOEAN;

IF FORMPESQUISAESTOQUEX.COMBOBOXORDEM.TEXT = 'POR CODIGO EAN' THEN

BEGIN

OPERACAO := '4';

VORDEM := 'ES_CODIGOEANBARRA';

With FORMPESQUISAESTOQUEX.Query1 do

begin

vOrdem := 'ES_CODIGOEANBARRA';

VSELECT1 := 'SELECT * FROM ESTOQUE '+

'WHERE '+

'(ESTOQUE.ES_CODIGOEANBARRA=:EAN) ';

FORMPESQUISAESTOQUEX.QUERY1.Close;

FORMPESQUISAESTOQUEX.QUERY1.SQL.clear;

FORMPESQUISAESTOQUEX.QUERY1.SQL.Add(vSelect1);

FORMPESQUISAESTOQUEX.Query1.Params[0].AsSTRING := FORMFILTROETIQUETA_SINTONIA.W_CODIGOEAN;

FORMPESQUISAESTOQUEX.QUERY1.Open;

FORMFILTROETIQUETA_SINTONIA.MASKEDITCODIGOEAN.TEXT := W_CODIGOEAN;

FORMFILTROETIQUETA_SINTONIA.MASKEDITCODIGOREFERENCIA.SetFocus;

//--- NESTE PARAMETRO IRA ABRIR O FORM DA PESQUISA NO ESTOQUE PARA VISUALIZAR OS

//--- PRODUTOS COM O CODIGO DA PESQUISA SOLICITADO

Application.CreateForm(TFormPesquisaESTOQUEX,FormPesquisaESTOQUEX);

FormPesquisaESTOQUEX.ShowModal;

FormPesquisaESTOQUEX.RELEASE;

FormPesquisaESTOQUEX := NIL;

FORMFILTROETIQUETA_SINTONIA.MASKEDITCODIGOEAN.TEXT := W_CODIGOEAN;

FORMFILTROETIQUETA_SINTONIA.MASKEDITCODIGOREFERENCIA.SetFocus;

END;

END;

END;

end;

[Guest Visitante]

Por gentileza teria alguém que poderia me auxiliar, obrg

[Micheus]

Por gentileza teria alguém que poderia me auxiliar, obrg

Visitante, quando vejo um código deste tamanho, sem identação e ainda em letras garrafais, dá até uma preguiça de olhar. Para tentar ajudar é necessário copiar o código e identar para conseguir ver a estrutura lógica que você está utilizando. Por favor, tente lembrar de utilizar, no editor da mensagem, o botãozinho com o "#". É bem fácil: cola seu código, depois marca ele e clica no botãozinho com o "#" - falou?!

Pontos a verificar:

1) o tal FormPesquisaESTOQUEX foi removido do auto-create no projeto? Se não foi, remova-o;

2) troque a parte do código:

        Application.CreateForm(TFormPesquisaESTOQUEX,FormPesquisaESTOQUEX);
        FormPesquisaESTOQUEX.ShowModal;
        FormPesquisaESTOQUEX.RELEASE;
        FormPesquisaESTOQUEX := NIL;

por:

        FormPesquisaESTOQUEX := TFormPesquisaESTOQUEX.Create(Self);
        try
          FormPesquisaESTOQUEX.ShowModal;
        finally
          FormPesquisaESTOQUEX.Free;
          FormPesquisaESTOQUEX := NIL;
        end;

digamos que é o procedimento padrão para criar e destruir, dinamicamente, um form apresentado com o método ShowModal (com show não é assim) Agora a origem do problema (vou utilizar o seu código bagunçado para poder identificá-lo): "... IF (QUERY1ES_CODIGOEANBARRA.TEXT = W_CODIGOEAN) THEN BEGIN FORMMENU.W_OPERACAO := 'FORMFILTROETIQUETA_SINTONIA'; MASKEDITCODIGOREFERENCIA.SetFocus; Modulo.TEstoque.Cancel; FormPesquisaESTOQUEX := TFormPesquisaESTOQUEX.CREATE(APPLICATION); FORMPESQUISAESTOQUEX.QUERY1.ACTIVE := TRUE; FORMPESQUISAESTOQUEX.QUERY1.Close; FORMPESQUISAESTOQUEX.QUERY1.OPEN; REFRESH; OPERACAO := '4'; VORDEM := 'ES_CODIGOEANBARRA'; FORMPESQUISAESTOQUEX.COMBOBOXORDEM.TEXT := 'POR CODIGO EAN'; FORMPESQUISAESTOQUEX.EDITPESQUISA.TEXT := FORMFILTROETIQUETA_SINTONIA.W_CODIGOEAN; IF FORMPESQUISAESTOQUEX.COMBOBOXORDEM.TEXT = 'POR CODIGO EAN' THEN BEGIN OPERACAO := '4'; VORDEM := 'ES_CODIGOEANBARRA'; With FORMPESQUISAESTOQUEX.Query1 do begin vOrdem := 'ES_CODIGOEANBARRA'; VSELECT1 := 'SELECT * FROM ESTOQUE '+ 'WHERE '+ '(ESTOQUE.ES_CODIGOEANBARRA=:EAN) '; FORMPESQUISAESTOQUEX.QUERY1.Close; FORMPESQUISAESTOQUEX.QUERY1.SQL.clear; FORMPESQUISAESTOQUEX.QUERY1.SQL.Add(vSelect1); FORMPESQUISAESTOQUEX.Query1.Params[0].AsSTRING := FORMFILTROETIQUETA_SINTONIA.W_CODIGOEAN; FORMPESQUISAESTOQUEX.QUERY1.Open; FORMFILTROETIQUETA_SINTONIA.MASKEDITCODIGOEAN.TEXT := W_CODIGOEAN; FORMFILTROETIQUETA_SINTONIA.MASKEDITCODIGOREFERENCIA.SetFocus; //--- NESTE PARAMETRO IRA ABRIR O FORM DA PESQUISA NO ESTOQUE PARA VISUALIZAR OS //--- PRODUTOS COM O CODIGO DA PESQUISA SOLICITADO Application.CreateForm(TFormPesquisaESTOQUEX,FormPesquisaESTOQUEX); FormPesquisaESTOQUEX.ShowModal; ..." Percebeu, você está criando o form duas vezes, mas só elimina ele na segunda. Na verdade, a segunda vez só ocorre se passar pelo "IF FORMPESQUISAESTOQUEX.COMBOBOXORDEM.TEXT = 'POR CODIGO EAN' THEN". Mas isso só dá para perceber com o texto identado!!! você vai ter que melhorar sua lógica para resolver este problema. dica: quando você está se referindo a componentes localizados no form em que você está processando, não é necessário referenciar a que form ele pertence. Por ex., se você está tratando a procedure TFORMFILTROETIQUETA_SINTONIA.MaskEditCODIGOEANExit, entende-se que você está codificando no form TFORMFILTROETIQUETA_SINTONIA, deste modo, você poderia economizar digitação em casos como estes:

FORMFILTROETIQUETA_SINTONIA.MASKEDITCODIGOEAN.TEXT := W_CODIGOEAN;
FORMFILTROETIQUETA_SINTONIA.MASKEDITCODIGOREFERENCIA.SetFocus;

ficariam:

MASKEDITCODIGOEAN.TEXT := W_CODIGOEAN;
MASKEDITCODIGOREFERENCIA.SetFocus;

Abraços

[Churc]

opa

Outra coisa, sobre a configuração da máquina?

Isso conta, por exemplo, a máquina tem 32 de RAM

é claro que pra uma aplicação destas iria dar problema rs