كد نمايش فايل gif بدون استفاده از كامپوننت

[sql_qassem]

كد نمايش فايل gif بدون استفاده از كامپوننت مي خواهم .
اگه كسي داره لطف كنه.

[Mahyaa]

http://barnamenevis.org/forum/showpost.php?p=280720&postcount=8

[majidbestgame]

كد نمايش فايل gif بدون استفاده از كامپوننت مي خواهم .
اگه كسي داره لطف كنه.
-----------------------------------------------------






uses axCtrls
...
procedure TForm1.Button1Click(Sender: TObject);
var
OleGraphic: TOleGraphic;
fs: TFileStream;
begin
try
OleGraphic := TOleGraphic.Create;
fs := TFileStream.Create('C:\image.gif', fmOpenRead or fmSharedenyNone);
OleGraphic.LoadFromStream(fs);
SampleImage.Picture.Assign(OleGraphic);
finally
fs.Free;
OleGraphic.Free
end;
end;


این کد احتمالا به کارت بیاد سادس نیازی به توضیح نداره

[حمید محمودی]

نمیدونم چرا جدیدا مدل از زیر قبر درآوردن تاپیک های قدیمی مد شده!!!!!!! :متفکر: :متعجب:

[sips65]

-----------------------------------------------------



uses axCtrls
...
procedure TForm1.Button1Click(Sender: TObject);
var
OleGraphic: TOleGraphic;
fs: TFileStream;
begin
try
OleGraphic := TOleGraphic.Create;
fs := TFileStream.Create('C:\image.gif', fmOpenRead or fmSharedenyNone);
OleGraphic.LoadFromStream(fs);
SampleImage.Picture.Assign(OleGraphic);
finally
fs.Free;
OleGraphic.Free
end;
end;


این کد احتمالا به کارت بیاد سادس نیازی به توضیح نداره




ولی با این کد که عکس متحرک نمایش داده نمیشه !
حالا چه جوری میشه عکس رو به صورت متحرک داشته باشیم ؟؟؟
ممنون...

[sips65]

اگه کمپوننت هم معرفی کنید اشکالی نداره ها !!
ممنون

[sips65]

یعنی کسی کمپوننتی واسه نمایش GIF به صورت متحرک نمیشناسه ؟؟؟؟

[مهران رسا]

یعنی کسی کمپوننتی واسه نمایش GIF به صورت متحرک نمیشناسه ؟؟؟؟
در کتابخانه RxLib موجود هست . (RxGif)

[sips65]

در کتابخانه RxLib موجود هست . (RxGif)

سلام...
جسارتا میشه بفرمائید RxLib رو از کجا باید بیارم؟؟ خیلی ممنونم....

[مهران رسا]

سلام...
جسارتا میشه بفرمائید RxLib رو از کجا باید بیارم؟؟ خیلی ممنونم....


http://sourceforge.net/projects/rxlib/files/

ولی متاسفانه اخیراً در زمان استفاده از RxGif به مشکل برخوردم . وقتی در زمان های کوتاه خاصیت Animated برابر True قرار بگیره خطاهای عجیبی ظاهر میشند . هنوز دارم دنبال راه حل میگردم .