Изменить компонент 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);
не работает.

> dgOpen

-это диалог.

Вот такой вариант :
uses ..., Jpeg; ... with TOpenDialog.Create(self) do begin Execute; Image1.Picture.Graphic:=TJPEGImage.Create; Image1.Picture.Graphic.LoadFromFile(FileName); Free; end; ...

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