как загрузит gif анимацию в ресурс программы ?

[alman12]

как загрузит gif анимацию в ресурс программы ? отображать в image1

[Lardes]

Для XE3

uses
  Vcl.Imaging.GIFImg;

{$R LoadImage.res}

{ ... }

var
  ResourceStream: TResourceStream;
  GIFImage: TGIFImage;
begin
  ResourceStream := TResourceStream.Create(Hinstance, PChar('IMAGES'), PChar('LoadImage'));
  try
    GIFImage := TGIFImage.Create;
    try
      GIFImage.LoadFromStream(ResourceStream);
      GIFImage.Animate := True;
      GIFImage.AnimateLoop := glEnabled;

      LoadingImage.Picture.Assign(GIFImage);
      LoadingImage.AutoSize := True;
    finally
      GIFImage.Free;
    end;
  finally
    ResourceStream.Free;
  end;

Про компиляцию ресурсов ищите в интернете

[alman12]

Сообщение от Lardes

Для XE3

uses
  Vcl.Imaging.GIFImg;

{$R LoadImage.res}

{ ... }

var
  ResourceStream: TResourceStream;
  GIFImage: TGIFImage;
begin
  ResourceStream := TResourceStream.Create(Hinstance, PChar('IMAGES'), PChar('LoadImage'));
  try
    GIFImage := TGIFImage.Create;
    try
      GIFImage.LoadFromStream(ResourceStream);
      GIFImage.Animate := True;
      GIFImage.AnimateLoop := glEnabled;

      LoadingImage.Picture.Assign(GIFImage);
      LoadingImage.AutoSize := True;
    finally
      GIFImage.Free;
    end;
  finally
    ResourceStream.Free;
  end;

Про компиляцию ресурсов ищите в интернете

ошибку выдает в LoadingImage.Picture.Assign(GIFImag e);

[Lardes]

ошибку выдает в LoadingImage.Picture.Assign(GIFImag e);

Ну и ладно

[alman12]

Сообщение от Lardes

Ну и ладно

я загрузил gif в ресурс

[alman12]

Сообщение от Lardes

Ну и ладно

как отображать в image ?

[Lardes]

я загрузил gif в ресурс

Каким именно образом? Распишите как сделали.

LoadingImage замените на Image1. Или переименуйте свой Image1 на LoadingImage

[alman12]

Сообщение от Lardes

Каким именно образом? Распишите как сделали.

LoadingImage замените на Image1. Или переименуйте свой Image1 на LoadingImage

c помошю bdcc32

lose RCDATA lose.gif

[Lardes]

Не lose RCDATA lose.gif, а IMAGES LoadImage "lose.gif"

[alman12]

Сообщение от Lardes

Не lose RCDATA lose.gif, а IMAGES LoadImage "lose.gif"

получился спасибо