Форум: "Начинающим";
Текущий архив: 2007.04.08;
Скачать: [xml.tar.bz2];

Вниз

TImage - невозможна загрузка ...??   Найти похожие ветки 

← →
Boker   (2007-03-17 10:55) [0]

Привет всем. Значит, когда я хочу подгрузить картинку типа JPEG в режими Run-time, TImage не хочет, пишет что файла не существует и более того я так понял , что он только bmp файлы в режими run -time подгружает.  Вообщем не могли бы подсказать, что нужно сделать , чтобы JPEG загрузить и показать на форме. Заранее спасибо.

---

← →
-=Le][=- ©   (2007-03-17 13:15) [1]

Попробуй TJPEGImage.

---

← →
Wind ©   (2007-03-17 13:56) [2]

Выдрано прям из хелпа:

procedure TForm1.Button1Click(Sender: TObject);

var
 jp: TJPEGImage;  //Requires the "jpeg" unit added to "uses" clause.
begin
 jp := TJPEGImage.Create;
 try
   with jp do
   begin
     Assign(Image1.Picture.Bitmap);
     SaveToFile("c:\oneeye.jpg")
   end;
 finally
   jp.Free;
 end;
end;


---

← →
Wind ©   (2007-03-17 14:10) [3]

Вернее в твоем случае наоборот

procedure TForm1.Button1Click(Sender: TObject);
var
 jp: TJPEGImage;  //Äîáàâü  "jpeg" unit â "uses" .
begin
 jp := TJPEGImage.Create;
 try
   with jp do
   begin
     LoadFromFile("c:\oneeye.jpg");
     Image1.Picture.Bitmap.Assign(jp);
   end;
 finally
   jp.Free;
 end;
end;


---

← →
Boker   (2007-03-17 14:15) [4]

procedure TForm1.Button1Click(Sender: TObject);
var
jp: TJPEGImage;  //Äîáàâü  "jpeg" unit â "uses" .
begin
jp := TJPEGImage.Create;
try
  with jp do
  begin
    LoadFromFile("c:\oneeye.jpg");
    Image1.Picture.Bitmap.Assign(jp);  ---Вот на этой сточке дает ошибку
  end;
finally
  jp.Free;
end;
end;

---

← →
Leonid Troyanovsky ©   (2007-03-17 15:17) [5]

> Boker   (17.03.07 14:15) [4]

>     Image1.Picture.Bitmap.Assign(jp);  ---Вот на этой сточке

А создавать битмап будет Пушкин?

--
Regards, LVT.

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2007.04.08;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.049 c