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

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

Изменить компонент Timage [D5, WinME]

Priisk ©   (2002-11-01 19:50:00) 

Как то можно изменить компонент Timage, что бы он понял файл формата .jpg , записаный на диске: file.1jpg?

---

¤NoNaMe¤   (2002-11-02 01:21:00) [1]

Вот такой вариант :

uses ..., Jpeg;

...
with TOpenDialog.Create(self) do
begin
Execute;
Image1.Picture.Graphic:=TJPEGImage.Create;
Image1.Picture.Graphic.LoadFromFile(FileName);
Free;
end;
...


---

777   (2002-11-02 00:08:00) [2]

> dgOpen

-это диалог.

---

Priisk   (2002-11-01 22:30:00) [3]

>Значение имеет только содержимое файла.

Понял. Не понял только как в имгу загрузить

imMain.Picture.LoadFromFile(dgOpen.FileName);
не работает.

---

777   (2002-11-01 22:03:00) [4]

Да какая разница, расширение не имеет никакого значения в данном случае. Значение имеет только содержимое файла.

---

Priisk   (2002-11-01 21:36:00) [5]

down
Помогите, плз, запарился уже. Есть на диске файлы, картинки в формате jpg (они созданы другой программой, которая почему то неправильно им расширение записывает) Они записаны так: 1.1jpg 2.2jpg, 3.3jpg и т.д. Надо их поочереди загрузить в имагу, т.е. как я думаю, переименовать их соответственно в 1.jpg 2.jpg и т.д. НО! нельзя ничего изменять на диске. В памяти переименовывать? Как? Или сам компонент Image изменить, чтобы он файл 1.1jpg понимал как файл с расширением jpg? Как?

---

Priisk   (2002-11-01 21:01:00) [6]

сорри. не *.bmp, а *.tmp , то есть формат который Timage не понимает.

---

LongIsland   (2002-11-01 20:48:00) [7]

А так?

jpg:=TJPEGImage.Create;
bmp:=TBitmap.Create;
try
jpg.LoadFromFile(dgOpen.FileName);
bmp.Assign(jpg);
imMain.Picture.Assign(bmp);
jpg.Free;
bmp.Free;
except
MessageDlg("Can not open "+ExtractFileName(dgOpen.FileName),
mtError, [mbOK], 0);
end;

---

Priisk   (2002-11-01 20:30:00) [8]

>if ExtractFileExt(dgOpen.FileName) = ".jpg" then
если расширение jpg , тогда..
a если файл формата jpg записан как .tmp, как его загрузить в имагу не переименовывая на диске?

---

LongIsland   (2002-11-01 20:15:00) [9]

А почему он его не должен понять?
Кусок кода:

uses JPEG;
...

if ExtractFileExt(dgOpen.FileName) = ".jpg" then
begin
imMain.Picture.Graphic := nil;
jpg:=TJPEGImage.Create;
try
imMain.Picture.Graphic := nil;
imMain.Picture.LoadFromFile(dgOpen.FileName);
except
on EInvalidGraphic do
imMain.Picture.Graphic := nil;
end;

---

Наверх