|
Вопрос # 2 632/ вопрос открыт / |
|
Приветствую, уважаемые эксперты!
Подскажите кто-нибудь ответ на вопрос.
Есть ли у кого-то компонент для сжатия графических файлов или исходник чего-то подобного?
 |
Вопрос задал: Rozin (статус: Посетитель)
Вопрос отправлен: 14 апреля 2009, 13:00
Состояние вопроса: открыт, ответов: 0.
|
Мини-форум вопроса
Всего сообщений: 4; последнее сообщение — 14 апреля 2009, 17:00; участников в обсуждении: 2.
|
Вадим К (статус: Академик), 14 апреля 2009, 13:15 [#1]:
архивирования? но тогда причем графика. Или сжатие, например, JPEG/GIF?
Галочка "подтверждения прочтения" - вселенское зло.
|
|
|
Rozin (статус: Посетитель), 14 апреля 2009, 15:40 [#2]:
Сжатие.
|
|
|
Вадим К (статус: Академик), 14 апреля 2009, 15:54 [#3]:
для сжатия в jpeg есть готовый класс. TJpeg. Например таким кодом
procedure TForm1.Button2Click(Sender: TObject);
var jpg:TJpegImage;
begin
{создаем экземпляр объекта}
jpg:=TJpegImage.Create;
{присваиваем ему изображение}
jpg.Assign(image1.picture.graphic);
{устанавливаем степень сжатия (качество) 1..100}
jpg.CompressionQuality:=TrackBar1.Position;
{если установлен флаг "Оттенки серого", то пусть картинка будет серой:)}
jpg.Grayscale:=checkbox1.Checked;
{Упаковываем графику}
jpg.Compress;
{и сохраняем ее куда вам захочется}
jpg.SaveToFile('D:\first.jpg');
{уничтожаем экземпляр объекта}
jpg.free;
end;
Галочка "подтверждения прочтения" - вселенское зло.
|
|
|
Rozin (статус: Посетитель), 14 апреля 2009, 17:00 [#4]:
Все понял. Большое СПАСИБО!
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
