PNG - Image mit Transparenz in Clipboard

[Perlsau]

Wenn du das PNG-Bild innerhalb derselben Anwendung kopieren willst, brauchst du kein Clipboard.

[Uwe Raabe]

Wenn du ein PngImage in das Clipboard schreibst, dann wird das dort als simple Bitmap abgelegt. Dabei geht die Transparenz bzw. das Alphablend verloren.

Übrigens verwendet Clipboard.Assign indirekt genau die Methode SaveToClipboardFormat.

Selbst wenn du jetzt ein Clipboardformat registrieren würdest, das PNG unterstützt, dann müsste dieses Format ja auch im Zielprogramm implementiert sein. Für Excel ist das aber soweit ich weiß nicht der Fall.

[geesmith]

Uwe hat recht... icht hab nach einer Applikation gesucht in der ich per Cut and Paste ein Bild mit Transparenz rüber nehmen kann. Ich hatte nicht realisiert, dass ich das noch nie gesehen habe. Danke für die Aufklärung.

@Perlsau
Ich habe Excel geöffnet und möchte von einem parallel laufenden Delphiprogramm ein Bild mit Transparenz ins Excel übernehmen. Das ist das Ziel.

@himitsu
Interessanter Gedanke ...denke aber mittlerweile dass Clipboard das gar nicht kann (siehe Comment von Uwe)

Ich glaube ich kann das Ziel nicht erreichen.

[jaenicke]

Das ist kein Problem. Ich glaube mich zu erinnern, dass sogar Excel 2003 schon das PNG Format unterstützt hat. Kopieren geht auch sehr einfach über die API (im Test mit einem TImage namens Image1 mit einem geladenen PNG):

Delphi-Quellcode:

var
  DataStream: TMemoryStream;
  Data: Pointer;
  DataHandle: THandle;
  ClipboardFormat: Integer;
begin
  // Das Format sollte man natürlich eher nur beim Start der Anwendung einmal registrieren
  ClipboardFormat := RegisterClipboardFormat('PNG');
  DataStream := TMemoryStream.Create;
  try
    // Die Bilddaten können natürlich auch direkt aus einer Datei usw. stammen
    Image1.Picture.Graphic.SaveToStream(DataStream);

    DataHandle := GlobalAlloc(GMEM_DDESHARE, DataStream.Size);
    Data := GlobalLock(DataHandle);
    try
      DataStream.Position := 0;
      DataStream.ReadBuffer(Data^, DataStream.Size);
    finally
      GlobalUnlock(DataHandle);
    end;
    Clipboard.Open;
    Clipboard.SetAsHandle(ClipboardFormat, DataHandle);
    Clipboard.Close;
  finally
    DataStream.Free;
  end;

[himitsu]

Für die Programme, welche PNG nicht können, könnte man ja zusätzlich noch das Bitmap anbieten.

In das Clipboard passen ja gleichzeitig mehrere Formate rein, wo sich dann jedes Ziel das aussucht, was es versteht.

[Uwe Raabe]

Zitat von jaenicke:

Ich glaube mich zu erinnern, dass sogar Excel 2003 schon das PNG Format unterstützt hat.

Probieren geht bekanntlich über studieren. Meine Aussage stützt sich lediglich auf diese Auflistung: Excel Clipboard Formats

[jaenicke]

Ausprobiert habe ich es übrigens mit Excel 2010, da geht es.

Zitat von himitsu:

Für die Programme, welche PNG nicht können, könnte man ja zusätzlich noch das Bitmap anbieten.

Das ist auch wichtig, ja.

[geesmith]

Wow, echt cool. Das funktioniert!

An TMemoryStream hatte ich nicht gedacht.

Vielen Dank jaenicke!