Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[18.116.63.236] |
|
Сообщ.
#1
,
|
|
|
Помогите пожалуйста бедному студенту!!!
Как преобразовать bmp в jpeg и вывести процент сжатия на форму, напишите хоть какой нибудь текст программы, потому что сама ме могу этого сделать, просто пропадаю. |
Сообщ.
#2
,
|
|
|
Как преобразовать знаю, а вот насчет поцента
сжатия увы, не углублялся в эту тему. Преобразование : Bmp : TBitmap; Jpeg : TJpeg; S : TStream .... Bmp := TBitmap.Create; Bmp.LoadFromFile('name.bmp'); Jpeg := TJpeg.Create; S := TStream.Create; Bmp.SaveToStream(S); Jpeg.LoadFromStream(S); Jpeg.SaveToFile('name.jpg'); S.Free; |