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

[as13851365]

وقتی که عکس متحرک (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.

[hadisalahi2]

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

[as13851365]

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

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

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

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

[Felony]

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


uses
GIFImg , Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, ExtDlgs, StdCtrls, Buttons, jpeg, pngimage;

[as13851365]

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


uses
GIFImg , Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, ExtDlgs, StdCtrls, Buttons, jpeg, pngimage;


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

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

[as13851365]

من اینها رو پیدا کردم
http://docwiki.embarcadero.com/VCL/en/GIFimg.TGIFImage_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 !

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

[as13851365]

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

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

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