[Andorra] Kompilieren der DLL unter Delphi XE2

[yuishiro]

Hallo,
Ich benutze das OpenGL Plugin der Andorra2D Engine unter Delphi XE2 Professional.
Wie von Autor angeraten, habe ich das DLL-Projekt für meine Version neu kompiliert, da es zu Änderungen des internen Objektformats gekommen sein könnte.
Jedoch erhalte ich mit der selbst kompilierten DLL beim Aufruf der abstrakten Methode TAd2dRenderTargetTexture.SetSize, die in der DLL implementiert ist, eine Zugriffsverletzung auf die Adresse 0. Diese Methode wird unter anderem zum Erstellen von Objekten des Typs TAdSpritePixelCollisionTester oder TAdTextureSurface benötigt.
Die mitgelieferte, in Delphi Turbo Explorer 2006 kompilierte DLL funktioniert jedoch einwandfrei.

Sind besondere Compiler-Einstellungen von Nöten?
Oder gibt es eine andere Lösung für dieses Problem?

Viele Grüße,
Yuishiro

[mkinzler]

Ist das Objekt instantiiert?

[yuishiro]

SetSize wird hier aufgerufen:

Code:

procedure TAdRenderTargetTexture.UpdateSize;
begin
  if FAd2dTexture <> nil then
  begin
    Texture.SetSize(FWidth, FHeight, FBitDepth);
  end;
end;

Code:

function TAdRenderTargetTexture.GetTexture: TAd2dRenderTargetTexture;
begin
  result := TAd2dRenderTargetTexture(inherited Texture);
end;

//aus TAdCustomTexture:
property Texture: TAd2dTexture read FAd2DTexture write SetAd2DTexture;

Wobei der Rückgabewert von GetTexture <> nil ist, da TAdRenderTargetTexture von TAdCustomTexture abgeleitet ist und FAd2dTexture, auf das nun zugegriffen wird, vorher erstellt wurde, soweit ich das verstanden habe:

Code:

procedure TAdRenderTargetTexture.Initialize;
begin
  Finalize;

  FAd2dTexture := Parent.AdAppl.CreateRenderTargetTexture; //Diese Methode greift auch auf die DLL zu

  //Break here if the result was nil.
  if FAd2dTexture = nil then
    raise EAdInterfaceCreation(MsgSurfaceInterfaceNotAvailable);

  FAd2dTexture.Filter := FFilter;
  UpdateSize;
end;

Also sollte Texture vorher instanziert worden sein.

Viele Grüße,
Yuishiro

[yuishiro]

Lösung:

Aktuellen Header von DelphiGL.com verwenden.

(http://files.delphigl.com/new/dglOpenGL.zip)