анимированного GIF в Delphi XE 7 VCL

-3

я попробовал решение, предложенное здесь, в Delphi 2010 и XE7анимированного GIF в Delphi XE 7 VCL

How to use Animated Gif in a delphi form

оба из них поднять исключение со следующим сообщением

«Исключение класса EInvalidCast с message 'Invalid class typecast'. "

2015-02-15 Mr.Aras

Пожалуйста, покажите свой код. Он должен работать в нормальных условиях, поэтому нам нужна соответствующая информация от вас. – GolezTrol

Проблема была связана с компонентами. В Delphi 2010 графический класс был изменен на TJvGIFImage от JEDI VCL и на XE7. Графический класс был изменен на TdxSmartImage с помощью devExpress. После того как я удалил связанные пакеты из пакетов установки, проблема была решена.

Благодарим за помощь.

источник

2015-02-15 15:17:36

Это не ответ на заданный вами вопрос. –

Я в замешательстве, в вашем вопросе не упоминалось, что вы использовали это. –

@ Jerry-Dodge Я не думал, что компоненты могут вызвать эту проблему. Кроме того, на d2010 установлен только JEDI, а на XE7 - только Devexpress. поэтому я подумал, что что-то не так с дельфи. –

Код вы ссылаетесь на это:

сообщение

(Image1.Picture.Graphic as TGIFImage).Animate := True;

Ошибка указывает на то, что проверено as бросок терпит неудачу. Это означает, что Image1.Picture.Graphic не спускается с TGIFImage. Независимо от того, что вы ввели в элемент управления изображением, он, похоже, не будет изображением GIF.

Я понимаю, что этот ответ не дает вам точных шагов к рабочей программе. Однако я считаю, что первым шагом является понимание того, что означает сообщение об ошибке. Как только вы поймете, что знаете, где искать решение.

источник

2015-02-15 09:37:51

Вам нужно поставить 'TGIFImage' в' TImage', прежде чем вы сможете применить 'Graphic' к' TGIFImage', например: 'gif: = TGIFImage.Create; Image1.Picture.Assign (GIF); ... (Image1.Picture.Graphic как TGIFImage) .Animate: = True; 'или' Image1.Picture.LoadFromFile ('image.gif'); (Image1.Picture.Graphic как TGIFImage) .Animate: = True; 'В любом случае, убедитесь, что' GIFImg' находится в вашем предложении 'uses'. –

@Remy Не компилируется без GIFImg в разделе uses –

В своем последнем комментарии я так же заявил. –

анимированного GIF в Delphi XE 7 VCL

ответ

Смежные вопросы