
Последние записи
- Прозрачность тайлсета в TPNGImage
- Как сделать VBA макрос в excel
- Поиск по столбцу 1-ого не нулевого значения (формулой в Microsoft Office Excel)
- Простановка единиц в ячейки под объектами (Microsoft Office Excel)
- Расчет затраченного времени между определенным рабочим временем (формулой в Microsoft Office Excel)
- Мигающий экран на Assembler
- VBA-макрос по копированию 10 строчек в выбранном диапазоне в Microsoft Office Excel
- Копирование только нужного диапазона в Microsoft Office Excel
- Перенос диапазона стоки в Microsoft Office Excel на другой лист по условию
- Мелодия в Pascal.ABC.Net с помощью System.Console.Beep — задержка воспроизведения звука

8th
Апр
Перевод jpeg в bmp и обратно
Posted by Chas under Delphi
Пепел Феникса
загрузка
var J:TJPEGImage;
B:TBitmap;
begin
J:=TJPEGImage.Create;
B:=TBitmap.Create;
J.LoadFromFile('1.jpg');
B.Assign(J);
J.Free;
//в B теперь наш JPEG, и можно его менять как угодно
B.Free;
и обратно
var J:TJPEGImage;
B:TBitmap;
begin
J:=TJPEGImage.Create;
//Битмап уже есть готовый
J.Assign(B);
J.CompressionQuality:=75;(сами выставляете от 1 до 100)
J.Compress;
J.SaveToFile('1.jpg');
J.Free;