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

Вниз

Изменить компонент Timage   Найти похожие ветки 

← →
Priisk   (2002-11-01 19:50) [0]

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

---

← →
LongIsland   (2002-11-01 20:15) [1]

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

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;

---

← →
Priisk   (2002-11-01 20:30) [2]

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

---

← →
LongIsland   (2002-11-01 20:48) [3]

А так?

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 21:01) [4]

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

---

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

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

---

← →
777   (2002-11-01 22:03) [6]

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

---

← →
Priisk   (2002-11-01 22:30) [7]

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

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

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

---

← →
777   (2002-11-02 00:08) [8]

> dgOpen

-это диалог.

---

← →
¤NoNaMe¤   (2002-11-02 01:21) [9]

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

uses ..., Jpeg;

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


---

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

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

Наверх

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