مشکل - می خواهم وقتی فرم لود شود عکس بصورت اتوماتیک لود شه

[Valadi]

می خوام وقتی فرم ساخته می شه بصورت اتوماتیک Image لود بشه من کد ش نوشتم اما مشکل داره و پیام خطا می ده از دوستان خواهش می کنم راهنمایی کنند

var
Form1: TForm1;
file1:String;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
File1 := ExtractFilePath(Application.ExeName) + '1.jpg';
form1.Image1.Picture.LoadFromFile(File1);
end;

[Touska]

چه Error ی می دهد ؟

[Behzad_Asharkhan]

سلام

یونیت JPeg رو به قسمت Uses اضافه کن

موفق باشی

[MNosouhi]

easily load all kind of images (Gif, Ico, Jpeg and more) in a TImage



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

[Valadi]

با تشکر از دوستان که لطف کردن و جواب سوال را دادند
اما من می خواهم وقتی فرم ساخته می شود به صورت اتوماتیک عکس هارا لود کنه و یونیت JPeg رو به قسمت Uses اضافه کردم اما با هم پیام خطا می ده ؟
عکس پیام خطا را قرار دادم

[Hamid_PaK]

یک آرایه TJpegImage تعریف کن و تصویر رو توش بارگذاری کن بعد از طریق Assign به TImage انتقالش بده ، ببن درست میشه ...

یا حق ...

[Valadi]

چطوری یک آرایه TJpegImage تعریف کنم و تصویر رو توش بارگذاری بدم بعد از طریق Assign به TImage انتقالش بدم کدش به چه صورتیه


ضمنا من می خوام از root فایل عکس را بصورت اتوماتیک لود کنه

[حرفه ای]

یونیت JPeg رو به قسمت Uses اضافه کن
موفق باشی

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

[حرفه ای]

البته پیشنهاد می کنم عکس رو در داخل برنامه قرار بدی
عکس در زمان لود درسته حجم فایل exe رو کمک می کنه اما چند تا عیب داره
1) در دسترس کاربره و ممکن کاربر اونو پاک کنه البته باید در زمان لود وجود عکس را چک کنی
2) سرعت برنامه رو خیلی کم می کنه
3) امنیت برنامه تو کم می کنه احتمال حمله DoS زیاد می شه
باز هم بستگی به کاربرد برنامه شما داره