Главная страница
    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.033 c
6-1151044736
yaral
2006-06-23 10:38
2006.11.19
Кодировка писма IdMessage


3-1158826551
kyn66
2006-09-21 12:15
2006.11.19
В чем разница между VarIsEmpty(NewVal) и VarIsNull(NewVal) ?


2-1162490522
nordic3
2006-11-02 21:02
2006.11.19
Перерисовка Image


2-1162743253
BuBen4ik
2006-11-05 19:14
2006.11.19
ДаунЛуадер


15-1161919258
SlymRO
2006-10-27 07:20
2006.11.19
Опять RO?! За что?





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский