|
Antwort |
Das Tutorial befindet sich in der Originalversion hier
Andorra 2D Tutorials Teil 1 - Initialisieren von Andorra 2D Was ist Andorra 2D? Andorra 2D ist eine neue 2D Engine für Delphi, Kylix und Freepascal/Lazarus. Eine 2D-Engine kümmert sich darum, Grafiken in schnellst möglicher abfolge auf den Bildschirm zu bringen, um damit zum Beispiel Spiele entwickeln zu können. Zudem sind mit einer 2D-Engine Effekte möglich, die mit den standard Windows/Linux Grafikfunktionen nicht ohne weiteres möglich wären. Andorra 2D zeichnet sich durch folgende Features besonders aus:
Herunterladen und Installieren Schritt 1: Herunterladen Die aktuelle Version von Andorra 2D finden sie auf der Website unter "Downloads". Dort finden Sie auch eine Liste mit den Delphi/Lazarus Versionen, mit denen Andorra 2D kompatibel ist. Schritt 2: In das Delphi Verzeichnis kopieren Kopieren Sie den Ordner "src" in Ihr "lib" Verzeichnis (z.B.: C:\Programme\Borland\BDS\4.0\lib\). Nennen Sie den Ordner in "Andorra" oder ähnliches um. Schritt 3: Zum Bibliothekspfad hinzufügen Fügen Sie ihrem Delphi diesen Pfad als Bibliothekspfad hinzu. (Meistens unter Tools/Optionen oder Tools/Umgebungsoptionen) Nun sollte Andorra 2D eigentlich einsatzbereit sein. Nur noch ein Wort zu den Bibliotheken, die den fertig kompilierten Demo-Paketen beiliegen: Die Bibliotheken (AndorraDX93D.dll etc.) wurden mit Turbo Delphi Explorer kompiliert. Wenn Sie diese mit einer anderen Delphiversion verwenden kann es zu Zugriffsverletzungen kommen, da zwischen Host und Bibliothek Objekte ausgetauscht werden und sich deren interner Aufbau über die verschiedenen Versionen hinweg geändert haben kann. Deshalb rate ich Ihnen die Bibliotheken noch mal neu zu kompilieren. Enthaltne Units Bevor wir loslegen, hier erst einmal eine Übersicht über alle Units, die im Andorrapacket enthalten sind. Sie können diesen Teil getrost überspringen und zum Nachschlagen nutzen.
Andorra 2D Initialisieren Vorbereitungen... Nun haben Sie Andorra 2D erfolgreich bei sich installiert und nun möchten Sie es garantiert auch ausprobieren. Dazu erstellen Sie eine neue "VCL-Formularanwendung" in Delphi. Am besten speichern Sie das Projekt erst einmal in einen eigenen Ordner und kopieren die entsprechenden Andorra-DLLs in diesen hinein. Fügen Sie jetzt folgende Units zur uses Klausel von Form1.pas (der Name kann abweichen, falls Sie die Datei unter einem anderem Namen gespeichert haben) hinzu:
Die uses-Klausel sollte jetzt ungefähr so aussehen:
Delphi-Quellcode:
Nun müssen Sie erst einmal ein Objekt des Typs TAdDraw deklarieren. Bei TAdDraw handelt es sich um das "Herzstück" von Andorra 2D. Es initialisiert und finalisiert dies Engine und stellt die aktuelle Szene auf dem Bildschirm dar.
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, AdDraws, AdClasses, AdTypes; Fügen Sie also folgenden Code im "public" Abschnitt der Deklaration von TForm1 ein: AdDraw:TAdDraw; Nun muss eine Instanz des Objekts in OnFromCreate erzeugt werden. Wählen Sie dazu im Formulardesigner das Form1 aus und doppelklicken Sie im Objektinspektor im Abschnitt "Ereignisse" hinter den Eintrag "OnCreate". Fügen Sie in den darauf hin im Codeeditor folgenden Code ein: AdDraw := TAdDraw.Create(self); Dies erzeugt eine neue Instanz von TAdDraw. Das "self" ist eine Referenz auf Form1 und teilt der Engine somit mit, dass alle Grafikausgaben auf Form1 stattfinden sollen. Sie können stattdessen auch z.B. ein Panel aus der Objektpalette auf Form1 ziehen und anstatt "self" "Panel1" angeben. Damit landen die Grafikausgaben auf Panel1. Außerdem muss die nun erzeugte Instanz von TAdDraw am Ende des Programms wieder freigegeben werden (d.h. allen Speicher den Sie belegt wieder für andere Objekte zur Verfügung stellen). Fügen Sie deshalb in das "OnDestroy" Ereignis des Objekts Form1 folgenden Code ein: AdDraw.Free; Damit wird der Speicher den die Engine verwendet frei gegeben und die Engine selbst finalisiert. Nun aber wieder zurück zur Initialisierung. Irgendwie müssen wir der Engine mitteilen, welches Plugin (also welche Grafikschnittstelle) sie verwenden soll. Dazu müssen wir den Eintrag "DllName" von AdDraw1 auf den Dateinamen des Plugins setzten. Der Name des Plugins für DirectX9 lautet "AndorraDX93D.dll". Sie können hier auch jedes andere Andorra 2D Plugin verwenden, es muss sich nur im Verzeichnis der Anwendung befinden, zum Beispiel das Plugin "AndorraOGL.dll", welches Andorra mit OpenGL verwendet. Fügen Sie also die folgende Zeile zu OnCreate hinzu: AdDraw.DllName := 'AndorraDX93D.dll'; Damit wird automatisch die entsprechende DLL geladen. Die Initialisierung... Nun möchten wir Andorra 2D initialisieren. Dies funktioniert über die Funktion mit dem viel versprechendem Titel "Initialize". Diese Funktion versucht Andorra 2D zu initialisieren und gibt wenn dies erfolgreich passiert ist "true" zurück. Also erweitern wir die OnCreate Funktion wieder um ein paar Zeilen...
Delphi-Quellcode:
So weit wären wir schon mal. Wenn das Programm jetzt kompiliert und beim Ausführen keine Fehlermeldung erscheint ist Andorra 2D am laufen. Nur sehen tun wir davon (noch) nichts. Dies ist auch logisch, da noch überhaupt nichts ausgegeben wird.
if AdDraw.Initialize then
begin // Hier geht's gleich weiter end else begin ShowMessage('Error while initializing Andorra 2D. Try to use another display'+ 'mode or use another video adapter.'); halt; //<-- Schließt die komplette Anwendung end; Juhu, ein schwares Fenster Nun müssen wir nochmal kurz zur Thorie. Bei Spielen kommt es darauf an, das sich der Bildschirminhalt ständig ändert. Dazu kann man zu einer Quasiendlosschleife greifen, was dann in Pseudodelphicode so aussehen würde:
Delphi-Quellcode:
Nachteil dieser Methode ist, dass die CPU-Auslastung auf 100% steigt (und besonders bei Laptops macht sich der Nachteil eines höheren Stromverbrauchs bemerkbar, solche Programme sind also "Akku-Killer"). Die Leistung von CPU und GPU wirkt sich außerdem direkt auf die Anzahl der Schleifendurchläufe in einer Sekunde aus, was unterschiedliche Bewegungsgeschwindigkeiten hervorrufen kann (aber dieses Problem kann recht einfach gelöst werden, wie ich im nächsten Tutorial zeigen werde...)
repeat
Berrechne_Bewegungen; Zeichne; if PressESC then abort := true; until abort; Close; Eine andere Möglichkeit ergibt sich in der Verwendung einer TTimer Komponente. Hier wird einfach ein Intervall in ms eingestellt und "Enabled" auf true gesetzt. In das Ereigniss "OnTimer" würde man dann folgenden Code schreiben:
Delphi-Quellcode:
Nachteil dieser Methode ist jedoch, dass die Hardware nich vollständig ausgenutzt wird, da das Ereigniss höchstens um die 50 mal die Sekunde ausgelöst wird.
Berrechne_Bewegungen;
Zeichne; Trotzdem allen "Nachteilen" möchten wir hier auf die erste Methode eingehen. Sie werden sich nun fragen, wo man diese Endlosschleife plazieren sollte. Die Antwort lautet: Bei VCL Anwendungen gar nicht. Denn intern hat jede VCL-Anwendung schon eine Schleife, die ungefähr so aussieht:
Delphi-Quellcode:
Wie wir sehen wird jeden Schleifendurchlauf eine Funktion namens "OnIdle" aufgerufen - und mit dieser können wir uns ganz einfach verknüpfen und dort unseren Code hinein schreiben.
while not Application.Terminated do
begin Application.ProcessMessages; if Done = false then Application.OnIdle; //Stimmt zwar so nicht 100%ig, aber so kann man es sich besser vorstellen. end; Das funktioniert so: Im "public" Teil der Deklaration von Form1 fügen wir folgende Zeile hinzu: procedure Idle(Sender:TObject; var Done:boolean); Nun fügen wir folgende Prozedur an unser Programm ein...
Delphi-Quellcode:
...und erweitern "OnCreate", an der Stelle wo der Kommentar "hier gehts gleich weiter" steht um folgende Zeile:
procedure TForm1.Idle(Sender: TObject; var Done: boolean);
begin if AdDraw.CanDraw then //Wenn überhaupt auf das AdDraw gezeichnet werden kann dann... begin //auch hier geht's bald weiter. end; Done := false; // Diese Zeile nicht vergessen, sonst wird der Code nur sporadisch ausgeführt. end; Application.OnIdle := Idle; Damit wird das "OnIdle"-Event, welches wir von oben kennen mit unserer "Idle"-Funktion verknüpft. Widmen wir uns nun der Idle Funktion, sozusagen das Herzstück unseres Programms. Hier landen alle Berechnungen und Zeichenoperationen der Engine. Also fügen wir folgenden Code ein:
Delphi-Quellcode:
Ich denke, die Kommentare sagen das meiste.
AdDraw.ClearSurface(clBlack); //Füllt die Oberfläche mit schwarzer Farbe
AdDraw.BeginScene; //Hier müssen spätere Zeichenfunktionen stehen AdDraw.EndScene; AdDraw.Flip; //Präsentiert die gezeichneten Dinge auf dem Bildschirm. Nur noch ein Wort zu dem AdDraw1.Flip. Wer schon mehr mit Delphi und dessen Canvas gearbeitet hat, dem wird auffallen, dass die Ausgabe zu flackern beginnt, wenn viele Grafikoperationen ausgeführt werden. Dies würde auch bei unserer Engine passieren, würden die Grafiksysteme, die dahinter stecken, nicht einen Trick anwenden: Das System verwaltet zwei Speicher. Alle Grafikausgaben landen in Speicher Nr.1. Beim aufrufen der Flip-Funktion wird der Monitor mit den Daten aus Speicher Nr.1 gefüttert. Währenddessen ist nun Speicher Nr.2 zu dem Speicher geworden, in dem die Grafikausgaben landen. Beim nächsten aufrufen von "Flip" wird der Monitor mit den Daten aus Speicher Nr.2 gefüttert und Speicher Nr.1 wird zum Speicher für die Ausgaben. Dieses System nennt sich auch "Double-Buffering". Wer mehr dazu wissen will, sollte mal Wikipedia befragen. Jetzt aber wieder zurück zu Delphi - wir drücken voller Erwartung die "F9" Taste oder klicken auf den grünen Pfeil in der Symbolleiste - wenn alles gut gelaufen ist sollten Sie ein schwarzes Fenster sehen. Puh - geschafft. Der Code Als Referenz noch mal der Sourcecode, den wir im Verlauf des Tutorials erstellt haben:
Delphi-Quellcode:
Fazit
unit Form1;
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. Der erste Schritt in Richtung 2D via 3D-Beschleunigung wäre getan. Doch sein wir mal ehrlich, für ein schwarzes Fenster brauchen wir kein Andorra 2D. Darum lernen Sie im nächsten Tutorial:
Dieses Tutorial ist nun ziemlich lang geworden, was daran liegt, dass ich auf alles bis ins Detail eingegangen bin. In den nächsten Tutorialen werde ich die Maßstäbe (besonders in Sachen Delphi) ein wenig höher schrauben und dann geht's auch flotter. Copyright und Lizenz (c) by Andreas Stöckel Januar 2007 Revision 2: Oktober 2007 Revision 3: Dezember 2007 Der Inhalt dieses Tutorials steht unter der GNU Lizenz für freie Dokumentation. [edit=Jelly]AufWunsch von Andreas (Igel457) neue Version hier eingefügt. Mfg, Jelly[/edit] [edit=Matze]Tutorial aktualisiert (27.12.07). MfG, Matze[/edit]
"Sollen sich auch alle schämen, die gedankenlos sich der Wunder der Wissenschaft und Technik bedienen, und nicht mehr davon geistig erfasst haben als die Kuh von der Botanik der Pflanzen, die sie mit Wohlbehagen frisst." - Albert Einstein
|
Delphi 2009 Professional |
#2
Geht Andorra 2D bei Delphi 3?
Wenn ich ein Projekt debuggen will, in dem Andorra units angegeben sind(wie im beispiel) dann bekomm ich etliche fehlermeldungen, und der Debugger startet nicht Meine Frage: gibt es eine delphi 3 kompatible version? PS: falls ich das woanders hinschreiben soll, benachrichtigt mich und löscht das hier! Danke
Florian
|
Zitat |
Florian Hämmerle
|
#3
Ne Andorra und D3 vertragen sich nicht. Hab ich auch schon ausprobiert.
mfg Flö |
Zitat |
FreePascal / Lazarus |
#4
Andorra 2D verwendet einige Compiler-Features, die es mit Delphi 3 noch nicht gab - Dynamische Arrays zum Beispiel. Ich glaube auch nicht, das die Grafiksystem-Header (OpenGL/DirectX 9) mit Delphi 3 kompatibel sind. Andorra 2D benötigt mindestens Delphi 6.
Andreas
|
Zitat |
Delphi 7 Personal |
#5
Zitat:
Nur noch ein Wort zu den Bibliotheken, die den fertig kompilierten Demo-Paketen beiliegen:
Die Bibliotheken (AndorraDX93D.dll etc.) wurden mit Turbo Delphi Explorer kompiliert. Wenn Sie diese mit einer anderen Delphiversion verwenden kann es zu Zugriffsverletzungen kommen, da zwischen Host und Bibliothek Objekte ausgetauscht werden und sich deren interner Aufbau über die verschiedenen Versionen hinweg geändert haben kann. Deshalb rate ich Ihnen die Bibliotheken noch mal neu zu kompilieren. Hallo Kann mir das jemand erklären mit den Bibliotheken neu komilieren ? Arbeite mich grad ein bischen in Andorra rein und hatte bis jetzt eigentlich noch keine Zugriffsverletzungen. Ich benutze Delphi Personal 7. Gruß,Norton |
Zitat |
FreePascal / Lazarus |
#6
Die DLLs sollten zu Delphi 7 kompatibel sein. Wenn du die DLLs selbst kompilieren möchtest, musst du dir die entsprechenden Header zum Suchpfad hinzufügen (befinden sich im "lib" Verzeichnis von Andorra, bzw. im Prerequisiten Package) und die Projektdateien im Ordner "src/dll/" öffnen und mit STRG+F9 erzeugen.
Andreas
|
Zitat |
Delphi 7 Personal |
#7
Ist mit "VCL-Formularanwendung" ein normales Formular gemeint?
Wenn nein: wie kann ich dies zu meiner Datei->Neu Liste hinzufügen? Besitze Delphi 7 Edit: Hat sich erledigt! ^^ |
Zitat |
Delphi 2007 Enterprise |
#8
hallo, ich wollte mich auch an Andorra ran machen, doch ich komme nicht sehr weit..
ich häng im tutorial an Folgender Stelle fest:
Zitat:
Die Initialisierung...
Nun möchten wir Andorra 2D initialisieren. Dies funktioniert über die Funktion mit dem viel versprechendem Titel "Initialize". Diese Funktion versucht Andorra 2D zu initialisieren und gibt wenn dies erfolgreich passiert ist "true" zurück. Also erweitern wir die OnCreate Funktion wieder um ein paar Zeilen...
Delphi-Quellcode:
if AdDraw.Initialize then
begin // Hier geht's gleich weiter end else begin ShowMessage('Error while initializing Andorra 2D. Try to use another display'+ 'mode or use another video adapter.'); halt; //<-- Schließt die komplette Anwendung end; So weit wären wir schon mal. Wenn das Programm jetzt kompiliert und beim Ausführen keine Fehlermeldung erscheint ist Andorra 2D am laufen. Nur sehen tun wir davon (noch) nichts. Dies ist auch logisch, da noch überhaupt nichts ausgegeben wird. wenn ich jetzt die exe starte kommt Folgende Meldung: No graphic library has been loaded. This problem might have been caused, because the specified library has not been found or the library version is not compatible to the host Andorra 2D version. Use TAdSetupDlg or TAdDllExplorer to find all available graphic system plugins kann mir da bitte jemand raus helfen? mfg CJ |
Zitat |
FreePascal / Lazarus |
#9
Die Fehlermeldung weißt darauf hin, dass du keine Plugin-DLL angegeben hast bzw. diese nicht im Verzeichnis deiner Anwendung gefunden wird.
Wenn du also eine Zeile wie AdDraw.DllName := 'AndorraDX93D.dll'; hast, solltest du dich darum kümmern, dass diese DLL auch im Anwendungsverzeichnis zu finden ist. Außerdem gibt es neuere Versionen der Tutorials hier: http://andorra.sourceforge.net/index...tion=tutorials
Andreas
|
Zitat |
Delphi 2007 Enterprise |
#10
also das Tutorial sagt ich solle folgende dlls in den ordner kopieren
* AdDraws: enthält den Hauptkern * AdClasses: enthält noch einige Typen- und Klassendeklarationen, sowie Hilfsfunktionen, die oft benötigt werden. * AdTypes: enthält Typendeklarationen doch ich hab keine solche dlls, das sind alles .pas also Units ? |
Zitat |
Ansicht |
Linear-Darstellung |
Zur Hybrid-Darstellung wechseln |
Zur Baum-Darstellung wechseln |
ForumregelnEs 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
|
|
Nützliche Links |
Heutige Beiträge |
Sitemap |
Suchen |
Code-Library |
Wer ist online |
Alle Foren als gelesen markieren |
Gehe zu... |
LinkBack |
LinkBack URL |
About LinkBacks |