Erro em Destroy de ACBrECF: Invalid pointer operation

[ferbigode]

Toda vez que eu fecho meu formulário que possui o componente ACBrECF, um erro é lançado com essa mensagem: "Invalid pointer operation". Porém esse erro só ocorre se eu efetuar uma venda primeiro e então fechar o formulário.

Depois do ShowModal do meu formulário, eu executo FreeAndNil nele, e então o erro é lançado. Debugando isso, percebi que o erro ocorre no destrutor do TACBrECFBematech.Destroy, que possuí a seguinte implementação:

destructor TACBrECFBematech.Destroy;

begin

  fsModelosCheque.Free ;


  inherited Destroy ;

end;

Ou seja, o formulário sendo destruído e todos os seus componentes presentes nele pela chamada de FreeAndNil, o ACBrECF também terá que ser destruído e é nessa linha acima, inherited Destroy; que ocorre o erro. Vou postar a implementação da criação, exibição, e destruição do formulário. O evento OnClose desse formulário também: Criação

procedure TfrmPrincipal.acVendaPDVExecute(Sender: TObject);

var

  pdv: TfrmVendaPDV;

begin

  pdv := TfrmVendaPDV.Create(Self);

  pdv.ShowModal();

  FreeAndNil(pdv);

end;

OnClose

procedure TfrmVendaPDV.FormClose(Sender: TObject; var Action: TCloseAction);

var

  mr: TModalResult;

  estadoECF: TACBrECFEstado;

begin

  estadoECF := ecf.Estado;

  mr := mrNone;


  if not (estadoECF = estNaoInicializada) then

    mr := Application.MessageBox('Deseja realmente fechar?', 'Fechar', MB_YESNO + MB_ICONQUESTION);


  if (mr = mrYes) or (mr = mrNone) then

  begin

    Screen.OnActiveControlChange := nil;

    dsVenda.DataSet.Close();

    dsItemVenda.DataSet.Close();

    dsItemServico.DataSet.Close();

    DMComercial.clearInformacaoAdicionalPDV();


    if (estadoECF = estVenda) or (estadoECF = estPagamento) then

      ecf.CancelaCupom();

  end

  else if (mr = mrNo) then

    Abort();

end;

[Daniel Simoes]

Não creio que seja no componente... observe que o Demo ECFTeste não dispara essa exception... outro fato é que não há report semelhante a esse por conta de outros usuários...

O Destroy da Classe Bematech está correto... ela não está destruindo o componente e sim uma Classe interna, essa chamada irá chamar:

TACBrECFClass.Destroy;

[ferbigode]

Daniel Simoes, eu já imaginava que não fosse um problema com o componente, é claro. Por algum motivo, eu não posso destruir os objetos de formas de pagamento retornados pela função AchaFPGDescricao();

Toda vez que eu executava o método efetuaPagamento, e passava as informações sobre a forma de pagamento, eu destruia ela, visto que eu não necessito mais dela. Olha no meu print a linha que executa o erro (fpFormasPagamentos.Free):

Resolvi o problema suprimindo a destruição desse objeto de forma de pagamento, mas daí eu terei um objeto em memória desnecessariamente?

Valeu

[Daniel Simoes]

Você não deve destruir esses objetos... deixe que o próprio ACBrECF faça isso... não há vazamento de memórias no ACBrECF...

[ferbigode]

Então se eu fizer isso,

pagamentoECF := ecf.AchaFPGDescricao('Cartão');

não há problema?

[Daniel Simoes]

Não... isso retorna um ponteiro para o Objeto existente, e não instancia um novo objeto...

[ferbigode]

Ok, valeu Daniel!

Resolvido