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

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

Проблема с жпег в имэйдже.

Cr@sh ©   (2002-09-21 09:07:00) 

Мастера, помогите.
Я делаю так:
procedure TForm1.ElPopupButton1Click(Sender: TObject);
begin
image1.Picture.loadfromfile("1.jpg");
end;
Почему он мне выдает ошибку о неправильном формате файла?
Может жпеги по другому грузятся?
Заранее спасибо.

---

Cr@sh   (2002-09-21 15:29:00) [1]

2PaRL
Я вобще-то не совсем ламер:)
Мне просто надо без создания доп. джепег-имэйджев.

---

PaRL   (2002-09-21 14:54:00) [2]

Модуль JPEG добавил?

---

Cr@sh   (2002-09-21 13:53:00) [3]

Такие-то приколы я и сам знаю... Другое дело, мне надо без создания доп. джепег-имэйджев :(

---

AlexT1000   (2002-09-21 13:37:00) [4]

этот код срабатывает не для всех jpegoв . не знаю почему!

но мы побороли это так

if (AnsiLowerCase(ExtractFileExt(Filename)) = ".jpg" )
or (AnsiLowerCase(ExtractFileExt(Filename)) = ".jpeg" ) then begin
jp := TJpegImage.Create;
try
jp.LoadFromFile(FileName);
Image.Picture.Assign(jp);
finally
jp.Free;
end;
end;

что то вроде этого

---

Наверх