استفاده از gif در دلفی

با سلام
لطفا میشه بهم بگین چه جوری می شه از یک فایل gif در دلفی استفاده کنم
ممنون میشم بگین
بای

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

از کامپوننت ImageEn استفاده کن.

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

با سلام
کامپوننت ImageEn را دانلود کردم ولی هر کاری میکنم نصب نمیشه
اصلا چطوری نصب میشه سریال بهش میدم که
لطفا کمکم کنید
یا اینکه یه کامپوننت دیگه نام ببرید
با تشکر
بای

نقل قول:

---

با سلام
کامپوننت ImageEn را دانلود کردم ولی هر کاری میکنم نصب نمیشه
اصلا چطوری نصب میشه سریال بهش میدم که
لطفا کمکم کنید
یا اینکه یه کامپوننت دیگه نام ببرید
با تشکر
بای

---

سلام
بعد از دانلو د از دلفی خارج شو و برنامه اگزه (همون I,ageEn) رو اجرا کن .
بعد از نصب در انتهای سزبرگ کامپوننت ها قرار میگره .
اگر هم مشکلی داشتی به تاپیکه "روش نصب هر کامپوننت " مراجعه کن

سلام دوست عزیز
من که گفتم میخوام نصب کنم ازم سریال می خواد
سریال رو بهش می دم ولی هیچی مشاهدا نمیکنم برنامه بسته میشه
من که کامپوننت نصب کردم میدونم چه جوریه
ولی این یکی داره اذیت میکنه از زحماتت ممنون
بای:happy:

سلام
بعدش دلفی رو اجرا کن برو صفحه(tab) آخر دلفی رو نگاه کن یه صفحه(tab) جدید
اضافه شده از اون استفاده کن

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

می دونید که کامپوننت image در حالت عادی نمی تونه فایل های GIF رو نمایش بده برای انجام این کار می تونید از اسکریپت زیر استفاده کنید ، برای اجرای این اسکریپت باید یونیت axctrls را صدا بزنید :

کد:

---


Uses axctrls;
 
Procedure TForm1.Button1Click(Sender: TObject);
Var
 F:TFileStream;
 O: TOleGraphic;
Begin
If OpenDialog1.Execute then
 Begin
  F:=TFileStream.Create(OpenDialog1.FileName,fmOpenRead or fmShareDenyRead);
  O:=TOleGraphic.Create;
  O.LoadFromStream(F);
  Image1.Picture.Assign(O);
  O.Free;
  f.Free;
 End;
End;

---