ACBrMail - Access Violation em fAltBody.SaveToStream(DecodedLines)

[guarasemini]

Bom dia para todos.
 

Estou com um problema bastante estranho no meu ACBrMail.

Tenho uma rotina simples...

  ACBrMail1.From      := '[email protected]';
  ACBrMail1.FromName  := 'Faturamento';
  ACBrMail1.Host      := 'smtp.empresa.com.br';
  ACBrMail1.Password  := 'senha';
  ACBrMail1.Port      := '587';
  ACBrMail1.Subject   := 'REF - assunto';
  ACBrMail1.Username  := '[email protected]';
  ACBrMail1.AddAddress('[email protected]');

  ACBrMail1.AltBody.Assign(aMensagem); --> aMensagem é um TStringList
  ACBrMail1.Send(false);

 

Quando do Send, ele apresenta access violation em fAltBody.SaveToStream(DecodedLines); (linha 557 do ACBMail.pas). 

Tentei pelo DEMO e o erro não acontece. 

Dai no nada enviou a msg pelo meu sistema, fui testar novamente...não envia e tenho o acess violation.

 

As demais propriedades estão setadas direto no componente. Que funciona sem nenhum problema para o envio de NFe.

 

Alguém poderia dar alguma ideia ?

Desde já, obrigado a atenção de todos.

 

Rafael

 

[Daniel Simoes]

Como reproduzir o problema, com os demos do ACBr, da pasta Exemplos ?

[guarasemini]

Boa tarde Daniel.

Eu não consigo simular no demo. Usei ele como base para toda essa rotina, por isso não tenho ideia do que pode estar acontecendo.

 

O que tenho de particularidade é que o TStringList da mensagem vem de um servidor dataSnap, mas nada de absurdo.

[Celso Marigo Junior]

Alguma chance de o TStringList não estar inicializado? Parece um erro com ele mesmo, tente debuggar a rotina e verificar quais os valores da variável, aMensagem e do AltBody, provavelmente algum deles não está sendo inicializado corretamente.

[guarasemini]

Bom, para retorno...

refiz minha rotina, basicamente antes eu passava por parametro um stringList para uma função no meu server datasnap, que recebia e colocava dentro de uma classe generica para repassava para mais 2 funções internas. Tenho CERTEZA que no processo estava destruindo algo que não deveria, mas preferi refazer, fazendo a função já retornar minha classe completa e gerando o stringList no client.

 

Fiz algumas dezenas de testes e não apresentou mais access violation.

Obrigado a todos pela atenção e ajuda.