سلام
شهادت امام صادق (ع) رو تسلیت عرض می کنم
از یه روش ساده تر استفاده کردم روی این فایل خوب عمل کرد.فقط نمی دونم چرا فکر می کنم قبلا موجب خراب شدن تصویر میشد یا یه وقتهایی مشکل جدی تری داشت.باید ببینم چی میشه.اگر دوستان راه قابل اطمینان تری سراغ دارند لطفا راهنمایی کنند
Uses
AxCtrls;
Procedure LoadGif(FileName:String;var B:TBitmap);
var
f : TFileStream;
graphic : TOleGraphic;
begin
graphic := TOleGraphic.Create;
f := TFileStream.Create (FileName,fmOpenRead or fmShareDenyNone);
try
graphic.LoadFromStream(f);
B.Width:=graphic.Width;
B.Height:=graphic.Height;
B.Canvas.draw(0,0,graphic);
//B.Assign(graphic);
finally
f.Free
end;
end;