| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

TImage - невозможна загрузка ...?? [D7, XP]

Boker ©   (2007-03-17 10:55:00) 

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

---

Leonid Troyanovsky   (2007-03-17 15:17:00) [1]

> Boker   (17.03.07 14:15) [4]

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

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

--
Regards, LVT.

---

Boker   (2007-03-17 14:15:00) [2]

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;

---

Wind   (2007-03-17 14:10:00) [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;


---

Wind   (2007-03-17 13:56:00) [4]

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

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;


---

-=Le][=-   (2007-03-17 13:15:00) [5]

Попробуй TJPEGImage.

---

Наверх