ورود

View Full Version : مشکل با gif



rasoulasaltala
شنبه 12 دی 1388, 11:02 صبح
سلام با عرض پوزش میدونم این سوال خیلی تو تاپیک ها بحث شده اما چه کنم که تازه کاریم
من یه کامپوننت برای خواندن تصاویر gif تو دلفی دارم اما روش کار با اون رو نمی دونم
کسی مبتونه کمکم کنه
فایل رو فرستادم

rasoulasaltala
شنبه 12 دی 1388, 12:59 عصر
تو این فورم به افراد مبتدی جواب داده نمیشه!
یعنی همه دلفی کار به دنیا میان؟

دلفــي
شنبه 12 دی 1388, 13:20 عصر
تو این فورم به افراد مبتدی جواب داده نمیشه!
یعنی همه دلفی کار به دنیا میان؟




procedure ConvertBMP2GIF;var bmp: TBitmap; gif: TGIFImage;begin gif := TGifImage.Create; try bmp := TBitmap.Create; try bmp.LoadFromFile('MyBitmap.BMP'); gif.Assign(bmp); finally bmp.Free; end; gif.SaveToFile('MyBitmap.GIF'); finally gif.Free; end;end;

bootshow
شنبه 12 دی 1388, 20:34 عصر
از یونیت GIFImage استفاده کن.
فکر کنم TGIFImage در سایت زیر باشه.حالا که مبتدی هستی (حرفه ای هم که باشی فرقی نمیکنه) برای کامپوننت برو تو سایت زیر
http://www.torry.net/quicksearchd.php?String=gif&Title=Yes
gif:=TGIFImage.Create;
gif.LoadFromFile('9.gif');

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Image1.Picture.Bitmap.Assign(gif.Images[frame].Bitmap);
frame:=frame+1;
if frame>gif.Images.Count-1 then frame:=0;
end;

benyaminrahimi
شنبه 12 دی 1388, 20:53 عصر
تو این فورم به افراد مبتدی جواب داده نمیشه!
یعنی همه دلفی کار به دنیا میان؟

اون وقتي که ما دلفي يا مي گرفتيم نه فروم بود نه اينترنت با اين سرعت

چند تا کتاب داشتيم و چند نفر آدم از خود راضي که جونشون در مي يومد سوال آدمو جواب بدن

شما که تازه کاري سعي کن کامپوننت رو با سمپل دانلود کني يا کمي سرچ کني

نه اينکه کامپوننت رو بزاري تو فروم و انتظار داشته باشي برن دانلود کنن و نصب کنن و کار کنن و جواب شما رو هم بدن
و يه کمي هم که گذشت ناراحت بشي و اينو بنويسي

خداييش رئيساي شرکتا هم اين طوري نيستن:بامزه: