Genau das habe ich auch schon versucht, aber leider gelingt mir dies nicht. Folgende Funktion erzeugt ein IPictureDisp
Delphi-Quellcode:
function GetImage(Const imageName: String): IPictureDisp;
Var
P : TPicture;
begin
Result := Nil;
P := TPicture.Create;
P.LoadFromFile(imageName);
GetOLEPicture(P, Result);
end;
Wenn ich aber dann diese Instanz z.B. mit
OleVariant(aDisp).Picture := GetImage('C:\test.bmp')
setze, dann erhalte ich folgende
Exception.
Zitat:
Exception-Klasse EOleSysError mit Meldung 'Schwerwiegender Fehler'. Prozess Project1.exe (7552)
Was mach ich falsch???
Achja, und wie kann man OleVariant(aDisp).Picture zu IPictureDisp casten