Oi Juliomar,
Fiz o seguinte.... desinstalei o Quick e instalei novamente..... fiz um novo updade no tortoise dos fontes do ACBR que eu havia alterado. Os abri novamente, cliquei em Ignore All, mexi nos forms e salvei. Fiz o build do projeto que usa os componentes e fiz o teste de impressão. O erro que citei parou de ocorrer, porém, ao imprimir, ele gerou o formulário em branco, como se eu não tivesse passado nada ao componente, mas foi passado. Como estou usando stream, fiz o teste gravando em arquivo (para ter certeza do conteúdo) e, mesmo lendo de um arquivo a impressão fica totalmente em branco. Não consegui entender o que estou fazendo de errado.
Segue abaixo o trecho de código que estou usando para imprimir:
procedure TmtiImprimirCTeACBr.ImprimirCTe(aCTeStream: TStringStream);
var
vCTe : TACBrCTe;
begin
vCTe := TACBrCTe.Create(Self);
try
try
vCTe.DACTe := TACBrCTeDACTeQR.Create(vCTe);
vCTe.DACTe.TipoDACTE := tiRetrato;
vCTe.Conhecimentos.Clear;
//vCTe.Conhecimentos.LoadFromStream(aCTeStream);
vCTe.Conhecimentos.LoadFromFile('c:\teste.xml');
vCTe.Conhecimentos.Imprimir;
except
on e : Exception do
begin
raise Exception.CreateFmt('Erro ao imprimir: %s', [e.Message]);
end;
end;
finally
vCTe.Free;
end;
end;
Novamente, podem me dar uma mãozinha?