Сохранение прозрачности изображений в PNG из буфера обмена Photoshop и Fireworks в Delphi 2009

Delphi , ОС и Железо , Буфер обмена

Когда работаем с графическими редакторами, такими как Adobe Photoshop и Adobe Fireworks, часто возникает необходимость сохранить изображения в формате PNG, сохраняя при этом прозрачность. В данной статье мы рассмотрим, как можно сохранить изображение из буфера обмена этих программ в формате PNG, используя язык программирования Object Pascal и среду разработки Delphi 2009.

Проблема

При копировании изображений из Photoshop и Fireworks в буфер обмена, а затем их вставке в другие приложения, прозрачность может быть потеряна. Это связано с тем, что буфер обмена использует определенные форматы, которые могут не поддерживать альфа-канал, необходимый для сохранения прозрачности.

Решение

Для сохранения прозрачности при сохранении изображения в формате PNG, необходимо использовать формат, который поддерживает альфа-канал. В контексте буфера обмена Windows, стандартный формат CF_BITMAP не поддерживает прозрачность. Однако, существует расширенный формат CF_DIBV5, который поддерживает альфа-канал и может быть использован для сохранения прозрачности.

Подтвержденный ответ

Использование стандартного метода загрузки изображения из буфера обмена в формате CF_BITMAP не позволит сохранить прозрачность. Для работы с прозрачными изображениями необходимо использовать формат CF_DIBV5. Однако, Photoshop и Fireworks не копируют изображения в буфер обмена в формате CF_DIBV5, а используют собственные форматы, которые не поддерживаются стандартными средствами Delphi.

Альтернативный ответ

Один из способов решения проблемы - использование VBScript для извлечения изображения из Photoshop, если оно доступно через "Photoshop Paste In Place" и "Object Descriptor" чанки в буфере обмена. Это позволяет получить полноценное изображение с альфа-каналом, которое затем можно сохранить в формате PNG.

On Error Resume Next
Set Ps = CreateObject("Photoshop.Application")
Set Shell = CreateObject("WScript.Shell")
Set FileSystem = CreateObject("Scripting.FileSystemObject")

Dim PNGFileName
PNGFileName = Shell.CurrentDirectory & "\psClipboard.png"

If FileSystem.FileExists(PNGFileName) Then
    FileSystem.DeleteFile PNGFileName
End If

Set Doc = Ps.Documents.Add(1,1,72,"psClipboard",,3)

Doc.Paste()
Doc.RevealAll()

If Err.Number = 0 Then
    set PNGSaveOptions = CreateObject("Photoshop.PNGSaveOptions")
    doc.saveAs PNGFileName, PNGSaveOptions
End If

doc.Close()

Этот скрипт создаст файл psClipboard.png в текущей директории скрипта, который можно будет прочитать в программе на Delphi и сохранить как PNG.

Пример кода на Object Pascal

Для чтения файла psClipboard.png и сохранения его в формате PNG с использованием Delphi, можно использовать следующий код:

uses
  System.SysUtils,
  Vcl.Graphics,
  System.Classes;

procedure TForm1.SavePNGFromClipboard(const FileName: string);
var
  PNGImage: TPngImage;
begin
  PNGImage := TPngImage.Create;
  try
    PNGImage.LoadFromFile(FileName);
    PNGImage.SaveToFile(FileName, TSaveAsPNGOptions.Create);
  finally
    PNGImage.Free;
  end;
end;

Этот код загружает изображение из файла, созданного скриптом VBScript, и сохраняет его в формате PNG, используя компонент TPngImage из библиотеки VCL.Graphics.

Заключение

Для сохранения прозрачности изображений из буфера обмена Photoshop и Fireworks в формате PNG в Delphi 2009, необходимо использовать альтернативные методы извлечения изображений, такие как VBScript для работы с Photoshop, и последующее сохранение изображений в формате PNG с помощью встроенных средств Delphi.

Создано по материалам из источника по ссылке.

Необходимо сохранить прозрачность изображений в формате PNG, скопированных из буфера обмена программ Photoshop и Fireworks, в среде разработки Delphi 2009.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Буфер обмена ::