ثابت ماندن عکس متحرک (Gif) در دلفی 2011 (Embarcadero RAD Studio XE)

وقتی که عکس متحرک (Gif ) رو در برنامه لود می کنم ( چه در محیط دلفی چه از خود برنامه ) عکس متحرک من ثابت می مونه یعنی فقط فریم اولش نمایش داده می شه

این هم نمونه کد که یونت ها رو هم اضافه کردم :

unit Unit1;



interface



uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, ExtCtrls, ExtDlgs, StdCtrls, Buttons, jpeg, pngimage,GIFImg;



type

  TForm1 = class(TForm)

    Image1: TImage;

    BitBtn1: TBitBtn;

    O: TOpenPictureDialog;

    procedure BitBtn1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;



var

  Form1: TForm1;



implementation



{$R *.dfm}



procedure TForm1.BitBtn1Click(Sender: TObject);

begin

if o.Execute then

  Image1.Picture.LoadFromFile(o.FileName);

end;



end.

من فکر میکنم برای نمایش فایلهای Gif یک کامپوننت وجود داره میتونی از اون استفاده کنی.

نقل قول:

---

نوشته شده توسط hadisalahi2

من فکر میکنم برای نمایش فایلهای Gif یک کامپوننت وجود داره میتونی از اون استفاده کنی.

---

جستجو کردم چیزی پیدا نکردم

البته یکی داشتم برای دلفی 7 (GIFImage)که بعد از کمی تغییر در دلفی 2011 نصب شد ولی این بار با خود دلفی هم نتونستم عکس های متحرک رو در برنامه لود کنم خطا می داد ( inv.... سه کلمه بود )

حالا اگه کامپوننت دیگه ای مد نظرتون هست نامی لینکی و... ممنون می شم

کتابخانه Gif رو به عنوان اولین کتابخانه تو پروژتون معرفی کنید یعنی :

 

uses

  GIFImg , Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, ExtCtrls, ExtDlgs, StdCtrls, Buttons, jpeg, pngimage;

نقل قول:

---

نوشته شده توسط مجتبی تاجیک

کتابخانه Gif رو به عنوان اولین کتابخانه تو پروژتون معرفی کنید یعنی :

 

uses

  GIFImg , Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, ExtCtrls, ExtDlgs, StdCtrls, Buttons, jpeg, pngimage;

---

این هم جواب نداد .:قلب:

یعنی باز همان فریم اول عکس رو نشون می ده و خبری از فریم های دیگه نیست

من اینها رو پیدا کردم
http://docwiki.embarcadero.com/VCL/e...age_Properties

در کتابخانه GIFImg در قسمت Default همه چیز فرق می کنه مثلا :

var

  //: Default options for TGIFImage.Draw

  GIFImageDefaultTransparent: boolean = True;

  GIFImageDefaultAnimate: boolean = false;

  GIFImageDefaultAnimationLoop: TGIFAnimationLoop = glEnabled;

  GIFImageDefaultDithering: TGIFDithering = gdDisabled;



  //: Default color reduction methods for bitmap import.

  // These are the slowest settings, but also the ones that gives the

  // best result (in most cases).

  GIFImageDefaultColorReduction: TColorReduction = rmQuantize;

  GIFImageDefaultColorReductionBits: integer = 8; // Range 3 - 8

  GIFImageDefaultDitherMode: TDitherMode = dmFloydSteinberg;



  //: Default animation speed in % of normal speed (range 0 - 1000)

  GIFImageDefaultAnimationSpeed: integer = 100;



  // DoAutoDither is set to True in the initializaion section if the desktop DC

  // supports 256 colors or less.

  // It can be modified in your application to disable/enable Auto Dithering

  DoAutoDither: boolean = False;

.

.

.

اینها که همش False !

همه اینها رو دستکاری کردم دلفی رو بستم و دوباره باز کردم ولی هیچی به هیچی

من که چیزی نتونستم پیدا کنم ( نه کامپوننتی ، نه نمونه کدی ، نه ترفندی و ... )

اگه اینجوری باشه پس فعلا با دلفی 2011 نمی شه عکس Gif لود کرد

اگه دوستان دیگه چیزی در این مورد پیدا کردن خوشحال می شم در این تایپیک قرار بدن تا همه استفاده کنیم