DirectX9 initialisierungsproblem

[turboPASCAL]

Kannst du deinen Quelltext bitte mal in Delphi-Tags setzen ?


Erster Fehler:

Die gleichen Namen in der Uses-Klausel

Code:

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, [b][color=#ff0000]direct3d9[/color][/b], d3dx9;

und als Variable

Code:

var
  Form1: TForm1;
  [b][color=#ff0000]direct3d9[/color][/b]: IDirect3d9;
  d3ddev9: idirect3ddevice9;

Lösung: Variable umbenennen.

Delphi-Quellcode:

var
  Form1: TForm1;
  direct3d9_: IDirect3d9; // <--<<
  d3ddev9: idirect3ddevice9;

Zweiter Fehler:

Delphi-Quellcode:

direct3d9_.CreateDevice(
    D3DADAPTER_DEFAULT,
    D3DDEVTYPE_HAL,
    Handle,
    D3DCREATE_SOFTWARE_VERTEXPROCESSING,
    @d3dpp, // <--<< sollte glaube ich ein Pointer sein
    d3ddev9);