COM DLL / Methodenaufruf mit Rückgabe

[sx2008]

Delphi-Quellcode:

var
  img : IBitmapImage;
  ...
begin
  // dein bisheriger Code hier
  ...

  img := nil;
  myImageAC.GetImageMap(7, myBitmapImage); // Def. der Funktion : procedure GetImageMap(Magnification: Integer; var pPicture: IBitmapImage);
  if not Assigned(img) then
    raise Exception.Create('Fehler bei GetImageMap(7));
  // und ab hier kann man mit dem Interface in 'img' arbeiten

[Webelch]

Meinst du :

Delphi-Quellcode:

var
  img : IBitmapImage;
  ...
begin
  // dein bisheriger Code hier
  ...
  img := nil;
  myImageAC.GetImageMap(7, img); //<--------------------
  if not Assigned(img) then
    raise Exception.Create('Fehler bei GetImageMap(7));

lässt sich kompilieren aber zu Laufzeit bekomme ich eine 'access violation at 0x10004360: read of address 0x0000001c'

[Webelch]

Das ist die definition aus der DLL Beschreibung.

HRESULT GetImageMap([in] long Magnification,[in, out] IBitmapImage* pPicture)

[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;