Erro Viola��o de Acesso

Question

Sauda��es, estou enfrentando o seguinte problema:Tenho no meu sistema um form para entrada de movimenta��o. Nele h� uma procedure que persiste os dados de um CDS - que est� no DM - num banco FB, tamb�...

Massuda · Answer

[quote:3bbdbeb382=�Luciano.Badoe�]...Esta procedure roda normalmente se chamada na pr�pria unit, mas quando a chamo de outra unit (formx.procedure) ocorre erro de viola��o de acesso....[/quote:3bbdbeb382]Erros de Access Violation geralmente est�o associados a tentar usar um objeto que ou n�o foi criado ainda ou j� foi destru�do. No seu caso, o tal formx provavelmente j� foi destru�do quando voc� tenta usar de outra unit....

Luciano.badoe · Answer

Caro Massuda:Na verdade o que ocorre � o seguinte:O formX est� em modal, nela h� um DBGrid cujo CDS est� no Data Module.A procedure est� na unit do formX.Tento execut�-la chamando pelo DataModule, no evento AfterPost do CDS, e ai gera o erro. Se execut�-la chamando da unit do formX (onde ela est�) n�o d� erro.Pelo que posso entender, quando a chamo de fora da unit em que ela est�, mesmo com o form ativo, ela n�o consegue acessar os componentes contidos nele, poi o erro se d� quando tento atualizar um ProgressBar.Obrigado....

Massuda · Answer

Mostre como voc� cria e exibe o tal formx....

Luciano.badoe · Answer

Estou usando uma procedure para criar e exibir o form.
A chamada apartir do form principal � essa:

procedure TfrmMain.actDebFolhaExecute(Sender: TObject); begin AbreForm(TfrmDBFolha, frmDBFolha); end;

procedure AbreForm(aClasseForm: TComponentClass; aForm: TForm); begin Application.CreateForm(aClasseForm, aForm); try aForm.ShowModal; finally aForm.Release; aForm := nil; end; end;

Massuda · Answer

Imaginava que voc� estava usando algo desse tipo. N�o gosto desse tipo de design, mas...

AbreForm recebe o parametro aForm por valor, o que significa que aForm � uma c�pia de frmDbFolha. Por isso, dentro de AbreForm, quando aForm recebe um valor, esse valor que n�o � passado para frmDBFolha (pois aForm � uma c�pia).

Quando o evento do datamodule dispara, provavelmente ele usa frmDBFolha, que, pelo motivo exposto acima, n�o tem um valor v�lido, gerando o AV.

Acho que a solu��o mais simples � mudar AbreForm para usar passagem de parametros por referencia...

procedure AbreForm(aClasseForm: TComponentClass; var aForm: TForm);
...

Luciano.badoe · Answer

[b:15fdbeeab1]Massuda[/b:15fdbeeab1]Obrigado pela explica��o, entend� perfeitamente o problema.Vou fazer a corre��o que sugeriu e testar, mas quando vc diz[quote:15fdbeeab1]Imaginava que voc� estava usando algo desse tipo. N�o gosto desse tipo de design[/quote:15fdbeeab1]Voc� se refere ao metodo usado para abrir o form? Se for o caso, me informe (se poss�vel) um m�todo mais adequando. Estou come�ando a desenvolver de Delphi, e quero me abtuar �s melhores pr�ticas.obrigado....

Luciano.badoe · Answer

[b:9da6e00001]Massuda[/b:9da6e00001]Como fica a chamada para CriaForm com a altera��o de par�metro por refer�ncia?Estou tendo este erro: �[i:9da6e00001]Types of actual and formal var parameters must be identical[/i:9da6e00001]� quando tento compilar, deixando a chamada como estava.Tentei alterar a chamada, criando uma vari�vel do tipo TForm, e atribuindo em sua propriedade name o nome do form a ser criado, e pass�-la para CriaForm, por�m ocorre uma excess�o de objeto j� existente...Help......

F�rum Erro Viola��o de Acesso #350740