Как изменить качество изображения в TBitmap?

31.03.2014, 13:39. Показов 1227. Ответов 0

Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам

Всем привет! Подскажите, знающие люди, как изменить качество изображения в TBitmap? Набросал процедурку, но она не работает, что в ней не так?

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
procedure ChangeQuality( SrcBitmap: TBitmap; var DstBitmap: TBitmap;
  AQuality: Integer );
var
  Stream: TStream;
  Surface: TBitmapSurface;
  SaveParam: TBitmapCodecSaveParams;
begin
   if Assigned( DstBitmap ) then
   begin
      Stream := TMemoryStream.Create;
      Surface := TBitmapSurface.Create;
      try
         Surface.Assign( SrcBitmap );
         SaveParam.Quality := AQuality;
         TBitmapCodecManager.SaveToStream( Stream, Surface, '.jpg', @SaveParam );
         Stream.Position := 0;
         DstBitmap.LoadFromStream( Stream );
      finally
         Surface.Free;
         Stream.Free;
      end;
   end;
end;

cpp_developer

Эксперт

20123 / 5690 / 1417

Регистрация: 09.04.2010

Сообщений: 22,546

Блог

31.03.2014, 13:39

Ответы с готовыми решениями:

Изменить качество изображения или ресайз php
Подскажите пожалуйста, есть код, который грузит файл на сервер. <?php $uploaddir = '/home/uploads/contacts/'; $ext =...

Как убрать разводы фонового изображения и повысить качество изображения ?
Не знаю как описать проблему, поэтому просто выкладываю скрин. Установил офф драйвер видеокарты с офф сайта производителя. p.s....

как в html5 изменить качество видео?
Как в html5 изменить качество видео? Например, у меня на сервере видео залито в одном качестве, а я хочу показывать в другом. Как это...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

raxper

Эксперт

30234 / 6612 / 1498

Регистрация: 28.12.2010

Сообщений: 21,154

Блог

31.03.2014, 13:39

Помогаю со студенческими работами здесь

Сглаживание изображения (tbitmap)
Можно воспользоваться библиотекой GDI+

Как изменить параметры изображения, чтоб другие изображения не менялись
Не знаю как правильно сформулировать вопрос для поисковиков. Как в css изменить параметры конкретных изображений, чтоб остальные...

Ухудшить качество изображения
В TImage есть изображение. При сохранении оно весит ~3mb. Как уменьшить до нормального веса?) 200-500кб =)

Улучшить качество изображения в флешплеере.
Есть ли возможность настройками или дополнительным софтом улучшить качество изображения при воспроизведении видео во встроенном в страницу ...

Качество при смене изображения
Добрый день! Есть код: <div class="img"></div> .img{ width:200px; height:150px; ...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .
Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача №1: при указании работ (справочник РаботыПоРемонтуСпецтехники),. . .

Наверх