خطا در نمایش فایل تصویری از نوع JPG

[khorsandreza]

سلام دوستان
من با استفاده از دستور زیر بصورت Runtime کنترل را ایجاد می کنم ولی د ر آخرین سطر موقع نمایش این خطا را می گیره (شکل خطا) در حالی که اگر فایل از نوع BitMap باشد نمایش می دهد
var
JPEGImage: TJPEGImage;
MVFImage : TImage;
begin
MVFImage := TImage.Create(Self);
MVFImage.AutoSize := False;
MVFImage.Tag := 1;
MVFImage.Hint := 'تست';
MVFImage.Parent := ScrollBox1;// WorkPanel;
MVFImage.Height := 200;
MVFImage.Width := 280;
MVFImage.Left := 10 ;
MVFImage.Top := 10 ;
MVFImage.Cursor := crHandPoint;
MVFImage.ShowHint := True;
//------------------------------
JPEGImage := TJPEGImage.Create;
JPEGImage.LoadFromFile('C:\MyPic.jpg');
MVFImage.Picture.Assign(JPEGImage);
End;

[loo30fer]

چون هنگام استفاده از فرمت JPEG از کتابخانه JPEG استفاده نکردین برای رفع این مشکل کتابخانه JPEG رو به Uses اضافه کنید.

[khorsandreza]

چون هنگام استفاده از فرمت JPEG از کتابخانه JPEG استفاده نکردین برای رفع این مشکل کتابخانه JPEG رو به Uses اضافه کنید.
سلام
قبلا این JPEG را فراخوانی کرده ام این مشکل بخاطر Runtime بودن است اگه JPEG اضافه نمی کردم در ایجاد این JPEGImage: TJPEGImage; کلاس به مشکل میخوردم ظاهرا باید یه جائی به TImage فهماند که فرمت JPG نیز بشناسد
باز هم ممنون

[loo30fer]

قبلا این JPEG را فراخوانی کرده ام این مشکل بخاطر Runtime بودن است اگه JPEG اضافه نمی کردم در ایجاد این JPEGImage: TJPEGImage; کلاس به مشکل میخوردم ظاهرا باید یه جائی به TImage فهماند که فرمت JPG نیز بشناسد نمیدونم ولی برای من این مشکل بوجود نیومد و به درستی کار میکرد کد و عکس نمونه رو قرار دادم.
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, jpeg;

type
TForm1 = class(TForm)
Button1: TButton;
ScrollBox1: TScrollBox;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
JPEGImage: TJPEGImage;
MVFImage : TImage;
begin
MVFImage := TImage.Create(Self);
MVFImage.AutoSize := False;
MVFImage.Tag := 1;
MVFImage.Hint := 'تست';
MVFImage.Parent := ScrollBox1;// WorkPanel;
MVFImage.Height := 200;
MVFImage.Width := 280;
MVFImage.Left := 10 ;
MVFImage.Top := 10 ;
MVFImage.Cursor := crHandPoint;
MVFImage.ShowHint := True;
//------------------------------
JPEGImage := TJPEGImage.Create;
JPEGImage.LoadFromFile('C:\SetUp-2011.jpg');
MVFImage.Picture.Assign(JPEGImage);
End;

end.