Вопрос по конвертированию 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, Джо - большое спасибо. Проблема решена.

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

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