AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Programmieren allgemein Delphi COM DLL / Methodenaufruf mit Rückgabe

COM DLL / Methodenaufruf mit Rückgabe

Offene Frage von "Webelch"
Ein Thema von Webelch · begonnen am 6. Feb 2013 · letzter Beitrag vom 7. Feb 2013
Antwort Antwort
Webelch

Registriert seit: 6. Feb 2013
Ort: Freiburg
5 Beiträge
 
Delphi XE3 Enterprise
 
#1

COM DLL / Methodenaufruf mit Rückgabe

  Alt 6. Feb 2013, 15:49
Hallo zusammen,
ich hab folgendes Problem an dem ich mir jetzt schon mehrere Tage die Zähne ausgebissen... Vieleicht hat hier noch jemand eine Idee. Bei Google bin ich auch nicht fündig geworden.

Ich binde eine COM Dll in meine Applikation ein die mir Images zurückgibt. Das funktioniert auch solang ich Funktionen dieser DLL nutze. Für bestimmte Formate muss ich aber Prozeduren aufrufen die mir ein Image zurück liefern. In c# funktioniert das auch hervorragend. Bei Delpi bekomme ich immer eine Acception.

Ich hab meinen Sourcecode angehängt. Vieleicht hat jemand mal zeit kurz darüber zu schauen...

Grüße

Mark
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);

const
 ImageType = 102;

var
  myImageAC: TImageAC;
  myBitmapImage: TBitmapImage;
  tempBitmap: TBitmap;
  tempPicture: TPicture;

begin
  myImageAC := TImageAC.Create(Self);
  myImageAC.OpenImage('C:\Temp\DemoSlide\TestSlide');
  myImageAC.Connect;
  //
  myBitmapImage := TBitmapImage.Create(Self);
  myBitmapImage.ConnectTo(myImageAC.GetSingleImage(ImageType)); // Def. der Funktion : function GetSingleImage(ImageType: Integer): IBitmapImage;
  //
  tempPicture := TPicture.Create;
  SetOlePicture(tempPicture, myBitmapImage.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;
  myBitmapImage.Free; //<-------------------------------- bis hier funtioniert alles.
  //
  myBitmapImage := TBitmapImage.Create(Self);
  //
  myImageAC.GetImageMap(7, myBitmapImage); // Def. der Funktion : procedure GetImageMap(Magnification: Integer; var pPicture: IBitmapImage);
  //< Hier komm ich nicht weiter da die Variable vom Type Interface ist >
end;
  Mit Zitat antworten Zitat
Benutzerbild von sirius
sirius

Registriert seit: 3. Jan 2007
Ort: Dresden
3.443 Beiträge
 
Delphi 7 Enterprise
 
#2

AW: COM DLL / Methodenaufruf mit Rückgabe

  Alt 6. Feb 2013, 15:53
Und warum definierst du myBitmapImage nicht als Interface?
Dieser Beitrag ist für Jugendliche unter 18 Jahren nicht geeignet.
  Mit Zitat antworten Zitat
Webelch

Registriert seit: 6. Feb 2013
Ort: Freiburg
5 Beiträge
 
Delphi XE3 Enterprise
 
#3

AW: COM DLL / Methodenaufruf mit Rückgabe

  Alt 6. Feb 2013, 16:05
Bekomme ich folgende Meldung:

[dcc32 Fehler] UnitMain.pas(105): E2018 Record, Objekt oder Klassentyp erforderlich
  Mit Zitat antworten Zitat
Benutzerbild von sx2008
sx2008

Registriert seit: 16. Feb 2008
Ort: Baden-Württemberg
2.332 Beiträge
 
Delphi 2007 Professional
 
#4

AW: COM DLL / Methodenaufruf mit Rückgabe

  Alt 6. Feb 2013, 16:58
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
  Mit Zitat antworten Zitat
Webelch

Registriert seit: 6. Feb 2013
Ort: Freiburg
5 Beiträge
 
Delphi XE3 Enterprise
 
#5

AW: COM DLL / Methodenaufruf mit Rückgabe

  Alt 6. Feb 2013, 17:24
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'
  Mit Zitat antworten Zitat
Webelch

Registriert seit: 6. Feb 2013
Ort: Freiburg
5 Beiträge
 
Delphi XE3 Enterprise
 
#6

AW: COM DLL / Methodenaufruf mit Rückgabe

  Alt 6. Feb 2013, 17:36
Das ist die definition aus der DLL Beschreibung.

HRESULT GetImageMap([in] long Magnification,[in, out] IBitmapImage* pPicture)
  Mit Zitat antworten Zitat
Webelch

Registriert seit: 6. Feb 2013
Ort: Freiburg
5 Beiträge
 
Delphi XE3 Enterprise
 
#7

AW: COM DLL / Methodenaufruf mit Rückgabe

  Alt 7. Feb 2013, 13:50
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;

Geändert von Webelch ( 7. Feb 2013 um 14:00 Uhr)
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 02:48 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz