www.opengl-delphi.dk

Det skal stå inde under type lige før din form er erklæret... Har du gjort det?

ja dettror jeg den ser sådan ud
type
  TForm1 = class(TForm)
  TNewContext = record
  dc: hdc;
  rc: hglrc;

Vil du ikke nok hjælpe mig

Nope...

type
  TNewContext = record
    dc: hdc;
    rc: hglrc;
  end;
  TForm1 = class(TForm)

Nu står der "undeclared indentifier 'glmatrixmode'", "undeclared indentifier 'gl_projection'" og "undeclared indentifier 'glfrustum'".

Du til skal tilføje OpenGL under uses:

uses
  Windows, Forms, ........, OpenGL;

//..... er selvfølgelig alle de andre units der er tilføjet! ;)

Det blir da bedre men når jeg prøver programet kommer en dialog box frem hvor der står "Acces violation at address 00000000. read of address 00000000"

Hvor kommer den acces violation? Hvornår?

når formen kommer frem i midten af skårmen

Altså OnCreate, eller OnShow, eller hvornår?

Har du fuldt alle tutorials? Du skal starte fra den første, og så så småt begynde på de næste...

nå der står også "File not found 'open.dcu'"

det er den første jeg er igang med.

Du har kun tilføjet "open"... Du skal skrive "opengl"!

først kommer det der vindue med "cpu" som titlen frem og så "debugger exception notification" og så acces violation.

min uses ser sådan ud:
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, opengl;

vil du ikke have hele koden

Jojo... Smid hele lortet ind! :)

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, opengl;

type

  TNewContext = record
  dc: hdc;
  rc: hglrc;
  end;
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormPaint(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  NC : TNewContext;

implementation

{$R *.dfm}

function SetupOpenGL(dc : hdc; rc : hglrc; form : Tform; zNear, zFar : single) : TNewContext;
var
pfd: TPixelFormatDescriptor;
i : integer;
begin
fillchar(pfd,SizeOf(pfd),0);
with pfd do
begin
nsize := sizeof(pfd);
nversion := 1;
dwflags := pfd_support_opengl or pfd_draw_to_window or pfd_doublebuffer;
ipixeltype := pfd_type_rgba;
ccolorbits := 24;
cdepthbits := 32;
cstencilbits := 0;
ilayertype := pfd_main_plane;
end;
dc := getdc(form.handle);
i := choosepixelformat(dc,@pfd);
if i = 0 then
exit;
if not setpixelformat(dc,i,@pfd) then
exit;
rc := wglcreatecontext(dc);
if rc = 0 then
exit;
if not wglmakecurrent(dc,rc) then
exit;
glmatrixmode(gl_projection);
with form do
glfrustum(-1.0, +1.0, -(clientheight/clientwidth), clientheight/clientwidth, zNear, zFar);
result.dc := dc;
result.rc := rc;
end;

procedure ReleaseOpenGL(MyContext : TNewContext; MyForm : TForm);
begin
with MyContext do
begin
wglmakecurrent(dc,0);
wgldeletecontext(rc);
releasedc(MyForm.handle,dc);
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  with NC do
NC := SetupOpenGL(dc,rc,form1,2,30);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
ReleaseOpenGL(NC,form1);

end;

procedure TForm1.FormPaint(Sender: TObject);
begin
SwapBuffers(NC.dc);
end;

end.

er du her stadig

Du får lige min unit... Jeg nåede lige længere! ;)


unit uTest;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, OpenGL;

type
  TNewContext = record
    dc: hdc;
    rc: hglrc;
  end;
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormPaint(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  NC : TNewContext;
 
implementation

{$R *.DFM}

function SetupOpenGL(dc: hdc; rc: hglrc; Form: Tform; zNear, zFar: Single): TNewContext;
var
  pfd: TPixelFormatDescriptor;
  I : integer;
begin
  FillChar(pfd, SizeOf(pfd), 0);
  with pfd do
  begin
    nSize := sizeof(pfd);
    nVersion := 1;
    dwFlags := PFD_SUPPORT_OPENGL or PFD_DRAW_TO_WINDOW or PFD_DOUBLEBUFFER;
    iPixelType := PFD_TYPE_RGBA;
    cColorBits := 24;
    cDepthBits := 32;
    cStencilBits := 0;
    iLayerType := PFD_MAIN_PLANE;
  end;
  dc := GetDC(Form.Handle);
  I := ChoosePixelFormat(dc, @pfd);
  if I = 0 then Exit;
  if not SetPixelFormat(dc, I, @pfd) then Exit;
  rc := wglCreateContext(dc);
  if rc = 0 then Exit;
  if not wglMakeCurrent(dc, rc) then Exit;
  glMatrixMode(GL_PROJECTION);
  with Form do
    glFrustum(-1.0, +1.0, -(ClientHeight/ClientWidth), ClientHeight/ClientWidth, zNear, zFar);
  Result.dc := dc;
  Result.rc := rc;
end;

procedure ReleaseOpenGL(MyContext: TNewContext; MyForm: TForm);
begin
  with MyContext do
  begin
    wglMakeCurrent(dc, 0);
    wglDeleteContext(rc);
    ReleaseDC(MyForm.Handle, dc);
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  with NC do
    NC := SetupOpenGL(dc, rc, Form1, 2, 30);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  ReleaseOpenGL(NC, Form1);
end;

procedure TForm1.FormPaint(Sender: TObject);
begin
  glClearColor(0.0,0.0,0.0,0.0);
  glClear(gl_Color_Buffer_Bit);

  glPushMatrix;

  glTranslatef(-0.3,0.0,-10.0);
  glRotatef(45,+1.0,0.0,0.0);
  glRotatef(45,0.0,+1.0,0.0);
  glRotatef(45,0.0,0.0,+1.0);
  glScalef(+4.0,+2.0,0.0);

  glBegin(gl_Polygon);
  glVertex3f(-0.5,-0.5,0.0);
  glVertex3f(-0.5,+0.5,0.0);
  glVertex3f(+0.5,+0.5,0.0);
  glVertex3f(+0.5,-0.5,0.0);
  glEnd;

  glPopMatrix;

  SwapBuffers(NC.dc);
end;

end.

der sker det samme

er du der

Kan du ikke sende mig filerne på kasper.t@mail.dk

Sendt! :)

Beklager det tog så lang tid... Var lige ude og spise! ;)

Det virker stadig ikke, jeg tror jeg prøver at geninstaller Delphi

Hehe... Nok en god ide! :)

Hvilken Delphi-version har du?

Delphi 6

Jah, men standard, Prof eller Enterprise?

Du skal huske at læse ALLE tutorials'ene igennem...
De er lavet således, at man ikke kan forstå den sidste, hvis man ikke har læst og forstået den første del af den.

Start fra en ende af!

Jeg er nemlig ikke sikker på at OpenGL er med i standard udgaven, men jeg kan selvfølgelig tage fejl!

>>cpjg
Davs! Hvor langt er du efterhånden med dine tutorials? Har du fundet noget nyt og spændende? :)

Jeg fået det til at virke, jeg skulle bare geninsteller Delphi.

Hermandsen lav et svar så du kan få dine point.

Svar!