![]() |
Bild in Steuerelement laden bei Word
Hallo,
ich versuche schon seit Stunden, dem Word-Steuerelement "Bild" ein neues Bild hinzuzufügen. Das entfernen des aktuellen Bildes gelingt mir (siehe Code). Was muss ich denn machen, damit ich z.B. ein neues jpg dem Aktive-X Steuerelement hinzufügen kann? Grüße
Delphi-Quellcode:
procedure TForm1.DoTest2(const aWord : TWordApplication);
var dummy1 : OleVariant; dummy2 : OleVariant; aInlineShape : InlineShape; aDisp : IDispatch; aPic : IPicture; tmp : Integer; aPicDisp : IPictureDisp; begin dummy1 := 'C:\testvorlage.dot'; dummy2 := false; WordApp2.Documents.AddOld(dummy1, dummy2); aInlineShape := WordApp2.ActiveDocument.InlineShapes.Item(1); aDisp := aInlineShape.OLEFormat.Object_; tmp := OleVariant(aDisp).Height; aPicDisp := nil; OleVariant(aDisp).Picture := aPicDisp; //entfernt das aktuelle Bild end; |
AW: Bild in Steuerelement laden bei Word
Delphi-Quellcode:
Nja, entweder ist schon standardmäßig eine Instanz von IPictureDisp in .Picture enthalten ... dann könntest du mal schauen, was dir IPictureDisp für Methoden anbietet, um ein Bild reinzuladen.
...
OleVariant(aDisp).Picture := nil; //entfernt das aktuelle Bild Oder du wirst irgendwo/-wie eine neue IPictureDisp-Instanz erstellen müssen, befüllst diese mit dem Bild und übergibst sie an .Picture . |
AW: Bild in Steuerelement laden bei Word
Genau das habe ich auch schon versucht, aber leider gelingt mir dies nicht. Folgende Funktion erzeugt ein IPictureDisp
Delphi-Quellcode:
Wenn ich aber dann diese Instanz z.B. mit
function GetImage(Const imageName: String): IPictureDisp;
Var P : TPicture; begin Result := Nil; P := TPicture.Create; P.LoadFromFile(imageName); GetOLEPicture(P, Result); end;
Delphi-Quellcode:
setze, dann erhalte ich folgende Exception.
OleVariant(aDisp).Picture := GetImage('C:\test.bmp')
Zitat:
Achja, und wie kann man OleVariant(aDisp).Picture zu IPictureDisp casten |
Alle Zeitangaben in WEZ +1. Es ist jetzt 12:38 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz