Einzelnen Beitrag anzeigen

smgdennis

Registriert seit: 17. Apr 2008
3 Beiträge
 
#1

Bekomme Addraw.Intialize <> false

  Alt 17. Apr 2008, 21:32
Delphi-Quellcode:
unit pascal_pinpong;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, AdDraws, AdClasses, AdTypes;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    AdDraw:TAdDraw;
    procedure Idle(Sender:TObject;var Done:boolean);
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  AdDraw := TAdDraw.Create(self);
  AdDraw.DllName := 'AndorraDX93D.dll';
  if AdDraw.Initialize then
  begin
    Application.OnIdle := Idle;
  end
  else
  begin
    ShowMessage('Error while initializing Andorra 2D. Try to use another display'+
                'mode or another video adapter.');
    halt;
  end;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  AdDraw.Free;
end;

procedure TForm1.Idle(Sender: TObject; var Done: boolean);
begin
  if AdDraw.CanDraw then
  begin
    AdDraw.ClearSurface(clBlack);

    AdDraw.BeginScene;
    //Your code here
    AdDraw.EndScene;
   
    AdDraw.Flip;
  end;
  Done := false;
end;

end.
Das Ist mein Code, wie er auch im Tutorial angeben ist. Meine Win32 Bibliotek liegt im Andorra verzeichnis und alle daten von andorra liegen im Projektordner.

Er gibt mir aber immer wieder folgende Zeile aus:
Delphi-Quellcode:
 ShowMessage('Error while initializing Andorra 2D. Try to use another display'+
                'mode or another video adapter.');

Wo liegt der Fehler bzw. woran kann es liegen. Versuche PingPong zu programmieren ( für die Schule)

Danke schon einmal im vorraus

Mit freundlichen Grüßen
Dennis Schmidt
  Mit Zitat antworten Zitat