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

[Jefferson Alves da Silva]

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

 

Alguém teve o mesmo problema?

 

[Daniel Simoes]

o Nome do arquivo, precisa ser uma variável, o componente irá retornar o Nome formatado nessa variável, para uso posterior

[Jefferson Alves da Silva]

Deu certo . Obrigado!

[Juliomar Marchetti]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.