Einzelnen Beitrag anzeigen

jziersch

Registriert seit: 9. Okt 2003
Ort: München
240 Beiträge
 
Delphi 10.4 Sydney
 
#7

AW: Bild aus RTF-Text extrahieren

  Alt 30. Jul 2020, 08:37
Hallo Stefan,

ich habe Deine Testdaten mittels folgendem code (und WPTools) extrahiert

Code:
procedure TForm6.ExtractButtonClick(Sender: TObject);
var wp : TWPCustomRTFEdit; // uses WPCtrMemo - WPTools
    i : Integer;
begin
   wp := TWPCustomRTFEdit.CreateDynamic;
   try
      if OpenDialog1.Execute then
      begin
        wp.LoadFromFile(OpenDialog1.FileName);
        for i := 0 to wp.TextObjects.ObjCount-1 do      
           if wp.TextObjects.ObjList[i].IsImage then          
              wp.TextObjects.ObjList[i].ObjRef.SaveToFile(
                   Format('%sembedded_img_%d.%s',
                      [ExtractFilePath(OpenDialog1.FileName), i,
                        wp.TextObjects.ObjList[i].ObjRef.FileExtension] ));                
      end;
   finally
     wp.Free;
   end;
end;
Es wird ein WMF geschrieben mit der Adresse in der linken oberen Ecke.
Die Einbettung mittels \pict\wmetafile8 ist reichlich altmodisch und wird glücklicherweise heute nicht oft genutzt.

Die Anzeige in MS Word entspricht aber der des Metafiles (also winzig klein).

Das erzeugte WMF kann in WPTools eingefügt werden.
WPCubed GmbH
Komponenten für Delphi:
WPTools, wPDF, WPViewPDF

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