Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 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.039 c
1-1160550411
zorik
2006-10-11 11:06
2006.11.19
Внутреннему класу узнать параметр класа в который он входит


2-1162620441
Shopot
2006-11-04 09:07
2006.11.19
Функции Delphi.


2-1162556275
NewUser0
2006-11-03 15:17
2006.11.19
Список запушенных приложений


1-1160122961
SkySat
2006-10-06 12:22
2006.11.19
Завершение работы внешней программы


15-1161960043
manchik
2006-10-27 18:40
2006.11.19
Программирование рабочего стола!





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский