| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Вопрос по конвертированию BMP в JPEG... [D7, XP]
Max.66RUS © (2006-11-03 14:54:00)Ситуация такая, мне нужно переконвертировать 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;
Заранее спасибо.
Джо (2006-11-03 15:18:00) [1]Кстати, процедуру CONVERTATION необходимо выкинуть на свалку :) Хотя бы по той причине, что в ней екземпляр TJPEGImage не уничтожается...
Max.66RUS (2006-11-03 15:16:00) [2]Array, Джо- большое спасибо. Проблема решена.
Джо (2006-11-03 14:59:00) [3]
Bmp: TBitmap;и так далее.
...
Bmp := TBitmap.Create;
Bmp.LoadFromFile
Array (2006-11-03 14:55:00) [4]http://narod.yandex.ru/cgi-bin/yandsearch?user=delphiworld&text=jpeg+bmp&where=2
| |
