COM DLL / Methodenaufruf mit Rückgabe

[Webelch]

Hab die Lösung gefunden:

Grüße

Mark

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  myImageAC: TImageAC;
  myTBitmapImage: TBitmapImage;
  myIBitmapImage: ^IBitmapImage;
  tempBitmap: TBitmap;
  tempPicture: TPicture;

begin
  myImageAC := TImageAC.Create(Self);
  myImageAC.OpenImage('C:\Temp\DemoSlide\TestSlide');
  myImageAC.Connect;
  //
  myTBitmapImage := TBitmapImage.Create(Self);
  myIBitmapImage := Pointer(myTBitmapImage.DefaultInterface);
  //
  myImageAC.GetImageMap(7, myIBitmapImage^);
  //
  tempPicture := TPicture.Create;
  SetOlePicture(tempPicture, myTBitmapImage .Picture as IPictureDisp);
  tempBitmap := TBitmap.Create;
  tempBitmap.Height := tempPicture.Height;
  tempBitmap.Width := tempPicture.Width;
  tempBitmap.Canvas.Draw(0, 0, tempPicture.Graphic);
  tempBitmap.SaveToFile('C:\temp\testBitmap.tiff');
  tempBitmap.Free;
  tempPicture.Free;
  myTBitmapImage.Free;
  myImageAC.Free;
end;