Сохранить растровое изображение с прозрачностью в PNG в Delphi 2007

Question

У меня есть растровое изображение Delphi (32Bit), которое имеет информацию о прозрачности. Мне нужно преобразовать и сохранить его в PNG-файл, сохраняя при этом прозрачность.

В настоящее время у меня есть библиотека graphics32, GR32_PNG (от Christian Budde) и PNGImage (от Gustavo daud).

Каков наилучший способ для этого?

EDIT 1: В моем растровом изображении нет только одного цвета, прозрачного, но с различными уровнями прозрачности, которые необходимо сохранить.

EDIT 2: Я получаю растровое изображение с альфа-информацией, устанавливая фон изображения в PNG, который у меня есть, только с пустым альфа-слоем. Затем я пишу на него сглаженный текст. Затем я сохраняю растровое изображение. Когда он открыт с помощью gimp, он показывает прозрачность и при масштабировании вы можете увидеть эффект сглаживания.

Answer 1

Я не мог получить ни один из двух других ответов на работу. Они могут работать для других, но вот что я сделал.

1. Я создал растровое изображение с прозрачностью.
2. Назначено его TBitmap32 из библиотеки Graphics 32.
3. Назначенный его к TPortableNetworkGraphics32 от GR32_PNG Christian Budde для Graphics32
4. Вызывается метод TPortableNetworkGraphics32.SaveToFile

Answer 2

Проверить это link

Существует функция:

function WriteBitmapToPngFile(Filename : string; Bitmap : TBitmap; TransparentColor:TColor):boolean; 

Answer 3

Использование PNGImage. В Delphi, попробуйте следующее:

function ConvertToPNG(oBMPSrc: TBitmap; sFilename: String); 
var 
    oPNGDest: TPNGObject; 
begin 
    oPNGDest := TPNGObject.Create; 
    try 
    oPNGDest.Assign(oBMPSrc); 
    oPNGDest.SaveToFile(sFilename); 
    finally 
    oPNGDest.Free; 
    end; 
end; 

Если это не работает для вас, вы, вероятно, придется скопировать альфа и значений RGB по отдельности.

function ConvertToPNG(oBMPSrc: TBitmap; sFilename: String); 
var 
    oPNGDest: TPNGObject; 
begin 
    oPNGDest := TPNGObject.CreateBlank(COLOR_RGBALPHA, 8, oBMPSrc.Width, oBMPSrc.Height); 
    try 
    oPNGDest.CreateAlpha; 
    // Copy over RGB 
    .. 
    // Copy over Alpha 
    .. 
    // Save to file 
    oPNGDest.SaveToFile(sFilename); 
    finally 
    oPNGDest.Free; 
    end; 
end;