Metodo CarregarImagem não esta aceitando mais os argumentos após atualização

Jefferson Alves da Silva · 12 Abril, 2022

Bom dia.

Galera após atualizar o ACBR ontém o ACBREtiq parou de funcionar.

Adicionei no uses a unit ACBREtiqClass que resolvou 99,99 % dos problemas.

Ficou somente o metodo CarregarImagem sem aceitar os argumentos que eram passado até então;

Meu código esta assim

With ACBrETQ do
begin
try
DMI_LoadImageFromDB(Image, TBlobField(dtmEtiqDespPrime.tblLoja.FieldByName('LOGO_ETIQUETA')));
MS := TMemoryStream.Create;

Image.Picture.SaveToStream(MS);
MS.Position := 0;
try
CarregarImagem( MS, 'Logo', True, 'PCX');
except on E:Exception do
begin
DMI_MsgWarning('Erro ao Carregar Imagem para Impressora. Mensagem Original: ' + E.Message);
FinalizarEtiqueta;
Desativar;
Abort;
end;
end;
finally
MS.Free ;
end;

Na unit acbretq.pas temos dois overload do metodo

procedure CarregarImagem(aStream: TStream; var NomeImagem: String;
Flipped: Boolean = True; const Tipo: String = ''); overload;
procedure CarregarImagem(const ArquivoImagem: String; var NomeImagem: String;
Flipped: Boolean = True); overload;
Sendo que o primeiro pede um TStream, uma string, uma boleano e uma string.

Que é exatamente o que passo para envocar o metodo.

No exemplo do ACBR esta bem parecido

if rbStream.Checked then
begin
if (Image1.Picture.Bitmap.Empty) then
begin
if OpenPictureDialog1.Execute then
begin
try
Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
except
Image1.Picture.Bitmap := Nil;
end ;
end;
end;

MS := TMemoryStream.Create;
try
Image1.Picture.Bitmap.SaveToStream(MS);
MS.Position := 0;
ACBrETQ.CarregarImagem( MS, NomeImagem, True, ExtractFileExt(OpenPictureDialog1.FileName) );
OK := True;
finally
MS.Free ;
end ;
end
else

A diferença é que carrego o strem do TImage com o banco de dados e não com um arquivo fazendo um loadfromfile.

Mas o Problemas esta chamada do metodo que nao esta aceitando os argumento enviados