1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, dglopengl, StdCtrls, textures;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  MyTex : glUInt;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
mytex := LoadTexture('C:\explosion.tga');
glEnable(GL_TEXTURE_2D);
glBindTexture(GL_TEXTURE_2D, MyTex);
glEnable(GL_ALPHA_TEST);
glAlphaFunc(GL_GREATER, 0.1);
glBegin(GL_QUADS);
 glTexCoord2f(0,0); glVertex3f(-12/2, -12/2, -12);
 glTexCoord2f(1,0); glVertex3f(+12/2, -12/2, -12);
 glTexCoord2f(1,1); glVertex3f(+12/2, +12/2, -12);
 glTexCoord2f(0,1); glVertex3f(-12/2, +12/2, -12);
glEnd;
end;

end.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

Thread Start: Thread ID: 3240. Process Project1.exe (552)
Process Start: C:\Dokumente und Einstellungen\Pdd_2\Eigene Dateien\OpenGL\1. Projekt\Project1.exe. Base Address: $00400000. Process Project1.exe (552)
Module Load: Project1.exe. Has Debug Info. Base Address: $00400000. Process Project1.exe (552)
Module Load: ntdll.dll. No Debug Info. Base Address: $77F40000. Process Project1.exe (552)
Module Load: KERNEL32.dll. No Debug Info. Base Address: $77E40000. Process Project1.exe (552)
Module Load: USER32.dll. No Debug Info. Base Address: $77D10000. Process Project1.exe (552)
Module Load: GDI32.dll. No Debug Info. Base Address: $77C40000. Process Project1.exe (552)
Module Load: ADVAPI32.dll. No Debug Info. Base Address: $77DA0000. Process Project1.exe (552)
Module Load: RPCRT4.dll. No Debug Info. Base Address: $78000000. Process Project1.exe (552)
Module Load: OLEAUT32.dll. No Debug Info. Base Address: $770F0000. Process Project1.exe (552)
Module Load: msvcrt.dll. No Debug Info. Base Address: $77BE0000. Process Project1.exe (552)
Module Load: ole32.dll. No Debug Info. Base Address: $77180000. Process Project1.exe (552)
Module Load: VERSION.dll. No Debug Info. Base Address: $77BD0000. Process Project1.exe (552)
Module Load: COMCTL32.dll. No Debug Info. Base Address: $77310000. Process Project1.exe (552)
Module Load: UxTheme.dll. No Debug Info. Base Address: $5B0F0000. Process Project1.exe (552)
Module Load: MSCTF.dll. No Debug Info. Base Address: $746A0000. Process Project1.exe (552)
First chance exception at $77E53887. Exception class EAccessViolation with message 'Access violation at address 00000000. Read of address 00000000'. Process Project1.exe (552)					

1:

MyTex := glUInt.Create;