[Akella225]

Не могу найти нормально работающего примера, чтобы качественно увеличить PNG с alpha-каналом.
Delphi XE2

На сайте абракадабры (EDN>>CodeCentral) есть примеры работы с PNG: http://cc.embarcadero.com/Item/25631, в том числе и есть пример процедуры SmoothResize.

Там есть такой кусок кода:

Код:

1 2 3

if not (apng.Header.ColorType in [COLOR_RGBALPHA, COLOR_RGB]) then   raise Exception.Create('Only COLOR_RGBALPHA and COLOR_RGB formats' +   ' are supported');

Проблема в том, что у меня изображение имеет apng.Header.ColorType равный 3, а именно COLOR_PALETTE

Код:

1 2 3 4 5 6 7 8 9

unit Vcl.Imaging.pngimage; ... .... {Avaliable color modes for PNG} COLOR_GRAYSCALE = 0; COLOR_RGB = 2; COLOR_PALETTE = 3; COLOR_GRAYSCALEALPHA = 4; COLOR_RGBALPHA = 6;

поэтому вываливается Exception


Я с изображениями вообще не работал.
Поэтому нужна процедура изменения размера PNG. Или как "конвертировать" существующее изображение, чтобы эта процедура схавала мой png и не подавилась?
Может можно как сконвертировать изображение из COLOR_PALETTE в COLOR_RGBALPHA или в COLOR_RGB?

[NumLock]

GDI+ пробовал?

[Akella225]

Нет.
Попробую, если найду нормальный рабочий готовый пример.

[NumLock]

попробуй это:
-просто запустить "Project1.exe"
-масштабирует в 2 раза файл "Google.png" (в одном каталоге с программой)
-результат файл "Google+.png"

[Akella225]

Работает как надо.
Но готовый примерчик бы поиметь вместо exe

[Akella225]

Нашёл вот такой код

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

uses  GDIPAPI, GDIPOBJ,GDIPUTIL;   procedure TForm11.Button1Click(Sender: TObject); var  in_img, out_img: TGPImage;  g: TGPGraphics;  out_width, out_height: Integer;  sclx:extended; fname:string;  encoderClsid: TGUID; begin  fname:='D:\test.png';  out_width := 450;  in_img := TGPImage.Create(fname);  sclx:=450/in_img.GetWidth;    if sclx <> 1 then   begin    out_height := round(in_img.GetHeight*sclx);    out_img := TGPBitmap.Create(out_width, out_height);    g := TGPGraphics.Create(out_img);    g.DrawImage(in_img, MakeRect(0, 0, out_width, out_height), 0, 0, in_img.GetWidth, in_img.GetHeight, UnitPixel);      g.Destroy;      in_img.Free; //иначе надо сохранять не в (fname) а (NOTfname)    GetEncoderClsid('image/png', encoderClsid);    out_img.Save(fname, encoderClsid);   end; end;

http://kachkarvv.org.ua/faq/src-delp...pg-gdi-rsz.php
тестирую

[Akella225]

Сообщение от NumLock

попробуй это:
-просто запустить "Project1.exe"
-масштабирует в 2 раза файл "Google.png" (в одном каталоге с программой)
-результат файл "Google+.png"

Можно на Ваш код глянуть?
Можно ли в нём работать не через файл?

Мне нужно работать без физического файла.
Я скачиваю из интернета картинку и увеличиваю размер, затем записываю TMemoryStream в базу.

[Radical]

Практически такая-же проблема. Использую TPNGObject (другого не предлагать).
Скачивается файл .png с ColorType COLOR_PALETTE.
Нужно обращаться к Alpha-пикселям, но при AlphaScanline появляется ошибка.
Есть ли какие-то способы перевести ColorType в COLOR_RGBALPHA?

[angvelem]

В старых версиях Дельфи PNGObject, в новых PNGImage.

Код:

1 2 3 4 5 6 7 8 9 10 11 12

var   png, png_a : TPNGImage;   procedure TForm4.FormCreate(Sender: TObject); begin   png := TPNGImage.Create;   png.LoadFromFile('bud256.png');     png_a := TPNGImage.CreateBlank(COLOR_RGBALPHA, 8, png.Width, png.Height);   png_a.Assign(png);   png_a.SaveToFile('bud256_A.png'); end;

другой вариант:

Код:

1 2 3 4 5 6

Image1.Picture.LoadFromFile('bud256.png'); png := TPNGImage.Create; png.LoadFromFile('bud256.png'); png.CreateAlpha; png.TransparentColor := clWhite; png.SaveToFile('bud256_A.png');

[Akella225]

Сообщение от Radical

Практически такая-же проблема. Использую TPNGObject (другого не предлагать).
Скачивается файл .png с ColorType COLOR_PALETTE.
Нужно обращаться к Alpha-пикселям, но при AlphaScanline появляется ошибка.
Есть ли какие-то способы перевести ColorType в COLOR_RGBALPHA?

см. эту тему
http://forum.vingrad.ru/forum/topic-354907.html
там есть готовые процедуры и функции, примеры