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

Вниз

Вопрос по конвертированию BMP в JPEG...   Найти похожие ветки 

← →
Max.66RUS ©   (2006-11-03 14:54) [0]

Ситуация такая, мне нужно переконвертировать BMP файл в JPEG файл. Для этого я использую нижеприведённую процедуру. Данную процедуру я использовал в приложениях с формой, но теперь возникла необходимость применения этой процедуры в приложении без формы. И тут возникает проблема: "SCREEN_IMAGE" - объект типа TImage, который находился на форме, но т.к. теперь формы нет, то соответственно размещать его негде. Вопрос: чем заменить в данной процедуре "SCREEN_IMAGE", чтобы она работала и в приложении без формы.

Uses
Jpeg;

Procedure CONVERTATION;
Var
jpgImg: TJPEGImage;
Begin
SCREEN_IMAGE.Picture.Bitmap.LoadFromFile("C:\SCREEN_SHOT.bmp");
jpgImg := TJPEGImage.Create;
jpgImg.Assign(SCREEN_IMAGE.Picture.Bitmap);
jpgImg.CompressionQuality := 100;
jpgImg.Compress;
jpgImg.SaveToFile("C:\SCREEN_SHOT.jpg");
DeleteFile("C:\SCREEN_SHOT.bmp");
End;

Заранее спасибо.

---

← →
Array   (2006-11-03 14:55) [1]

http://narod.yandex.ru/cgi-bin/yandsearch?user=delphiworld&text=jpeg+bmp&where=2

---

← →
Джо ©   (2006-11-03 14:59) [2]

 Bmp: TBitmap;
...
 Bmp := TBitmap.Create;
 Bmp.LoadFromFile
и так далее.

---

← →
Max.66RUS ©   (2006-11-03 15:16) [3]

Array, Джо - большое спасибо. Проблема решена.

---

← →
Джо ©   (2006-11-03 15:18) [4]

Кстати, процедуру CONVERTATION необходимо выкинуть на свалку :) Хотя бы по той причине, что в ней екземпляр TJPEGImage не уничтожается...

---

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

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

Наверх

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