Einzelnen Beitrag anzeigen

jziersch

Registriert seit: 9. Okt 2003
Ort: München
110 Beiträge
 
Delphi 10.3 Rio
 
#11

AW: Bild aus RTF-Text extrahieren

  Alt 30. Jul 2020, 14:51
Dem wmetafile8 typ in RTF fehlt der metafile header. Es wird daher mit SetWinMetaFileBits geladen.

Von WPTools (das Dir ja vorliegt) wird er als typ wpreadPictWMetafile geladen.

Das passiert dann in TWPOCustomImage.LoadMetafileStream

Ändere einfach mal den code

if WMetafileType = 8 then
lpmfp.mm := 8
else lpmfp.mm := 1; // was: WMetafileType;

in

if WMetafileType = 8 then
lpmfp.mm := 1
else lpmfp.mm := 1; // was: WMetafileType;

Das macht womöglich den entscheidenden Unterschied.
Anscheinend wurde die Metadatei inkorrekterweise als Typ 8 eingebettet, anstatt Typ 1, den andere RTF Leser zeigen ja auch eine Miniatur an.
WPCubed GmbH
Komponenten für Delphi:
WPTools, wPDF, WPViewPDF

Geändert von jziersch (30. Jul 2020 um 14:53 Uhr)
  Mit Zitat antworten Zitat