HTML-Content aus dem Clipboard holen?

[PeterPanino]

Hallo! Ich möchte in Delphi XE2 mit folgender Funktion den HTML-Content aus dem Clipboard holen:

Delphi-Quellcode:

uses ... Vcl.Clipbrd, Winapi.Windows, Winapi.ActiveX; 

CF_HTML: TClipFormat; // identifier for HTML clipboard format
CF_HTML := RegisterClipboardFormat('HTML Format');

function MyClipboardAsHTML: string;
var
  Data: THandle;
  Ptr: PChar;
begin
  Result := '';
  with Clipboard do
  begin
    Open;
    try
      Data := GetAsHandle(CF_HTML);
      if Data <> 0 then
      begin
        Ptr := PChar(GlobalLock(Data));
        if Ptr <> nil then
          try
            Result := UTF8Decode((Ptr));
          finally
            GlobalUnlock(Data);
          end;
      end;
    finally
      Close;
    end;
  end;
end;

Leider kriege ich aber nur Zeichensalat. (Natürlich ist HTML-Content im Clipboard).

Ich habe alles mögliche probiert, komme aber nicht auf den Fehler.

[sx2008]

PChar?
UTF-8 Strings werden doch sicher als Multibyte-Daten im Clipboard abgelegt.
Also müsste wohl PAnsiString verwendet werden weil ja PChar unter Delphi XE 2 Bytes pro Zeichen bedeutet.

[PeterPanino]

Ich verstehe nicht wie du das meinst.

[sx2008]

Delphi-Quellcode:

function MyClipboardAsHTML: string;
var
  Data: THandle;
  Ptr: PAnsiChar;  // *** statt PChar
begin
  Result := '';
  with Clipboard do
  begin
    Open;
    try
      Data := GetAsHandle(CF_HTML);
      if Data <> 0 then
      begin
        Ptr := PAnsiChar(GlobalLock(Data))  // *** statt PChar

[PeterPanino]

Fantastisch! Es funktioniert! Vielen Dank!!!!