Пишу модуль (gl3.pas) cтолкнулся с проблемой

[Warn]

Пишу модуль (gl3.pas) на основе OpenGL 3.3 Core Context Functionality
Cтолкнулся с проблемой, не получается получить указатели на ф-ии gl33 core.
К примеру.

procedure load_core_procs();
begin
  glActiveTexture:= gl_proc('glActiveTexture');
  glAttachShader:= gl_proc('glAttachShader');

  glBeginConditionalRender:= gl_proc('glBeginConditionalRender') ;
  glBeginQuery:= gl_proc('glBeginQuery');
  glBeginTransformFeedback:= gl_proc('glBeginTransformFeedback');
  glBindAttribLocation:= gl_proc('glBindAttribLocation');
  glBindBuffer:= gl_proc('glBindBuffer');
  glBindBufferBase:= gl_proc('glBindBufferBase');
  glBindBufferRange:= gl_proc('glBindBufferRange');
  glBindFragDataLocation:= gl_proc('glBindFragDataLocation');
  glBindFragDataLocationIndexed:= gl_proc('glBindFragDataLocationIndexed');
  glBindFramebuffer:= gl_proc('glBindFramebuffer');
  glBindRenderbuffer:= gl_proc('glBindRenderbuffer');
  glBindSampler:= gl_proc('glBindSampler');
  glBindTexture:= gl_proc('glBindTexture');
  glBindVertexArray:= gl_proc('glBindVertexArray');
  glBlendColor:= gl_proc('glBlendColor');
  glBlendEquation:= gl_proc('glBlendEquation');
  glBlendEquationSeparate:= gl_proc('glBlendEquationSeparate');
  glBlendFunc:= gl_proc('glBlendFunc');
...

Тогда как, на wgl – функции указатели получил.

procedure load_wgl_procs();
begin
  wglGetProcAddress	:= gl_proc('wglGetProcAddress');
  wglCreateContext 	:= gl_proc('wglCreateContext');
  wglDeleteContext	:= gl_proc('wglDeleteContext');
  wglMakeCurrent	:= gl_proc('wglMakeCurrent');
end;

Дрова 100% держат gl33. В чем может быть проблема?

может что-то я упустил в коде ф-й?

procedure load_lib();
begin
	if (gl_lib_handle<>0) then exit;
  gl_lib_handle := LoadLibraryA(PAnsiChar(OPENGL_LIBNAME));
  if (gl_lib_handle <>0) then gl_lib_is_loaded := true;

end;

procedure free_lib();
begin
  if (gl_lib_handle = 0) then exit;
  FreeLibrary(HMODULE(gl_lib_handle));
  gl_lib_handle:=0;
  gl_lib_is_loaded :=false;
end;

function gl_proc (const proc_name: PAnsiChar ):pointer;
begin
    result := GetProcAddress(HMODULE(gl_lib_handle), proc_name);

    if result <> nil then
    	exit;

    if Addr(wglGetProcAddress) <> nil then
      result := wglGetProcAddress(proc_name);
end;

[Warn]

Разобрался.
Нужно было после получения адресов ф-й wgl создать контекст gl и только потом пытаться получать адреса ф-й ядра.

[Warn]

Вновь возник вопрос.
Делегирую обработку сообщений от функции обработки сообщений

function WindowCallBack (const HWND, MSG, WPARAM, LPARAM : Longint ):Longint; stdcall;
var
	AppInst : PGLApp;
begin

  AppInst := PGLApp(Pointer(GetWindowLongPtrA(HWND, GWLP_USERDATA)));


  if (AppInst <> nil)
  then begin
  	Result := AppInst.MsgProc(HWND, MSG, WPARAM, LPARAM);
    exit;
  end;

  Result := DefWindowProc(HWND, MSG, WPARAM, LPARAM);
end;

К методу класса…

function TGLApp.MsgProc (const HWND, MSG, WPARAM, LPARAM : Longint ):Longint;
begin
case (msg) of
  	WM_QUIT, WM_DESTROY, WM_CLOSE :
    	begin
      	SetWindowLongA(HWND, GWL_USERDATA, 0);
      	PostQuitMessage(0);
        //IsActive := False;
    	end;
    // Секция кода обработки нажатий клавиш
    WM_KEYFIRST .. WM_KEYLAST:
    	begin

    	end;
    // Секция кода обработки событий мыши
    WM_MOUSEFIRST .. WM_MOUSELAST:
    	begin
      end;
    WM_ACTIVATE:
    	begin
      	IsActive := Boolean(LOWORD(WPARAM));
      end;
  end;

  Result := DefWindowProc(HWND, MSG, WPARAM, LPARAM);
end;

При этом возникает непонятная ошибка, если я не комментирую строчки с переменной IsActive (в function TGLApp.MsgProc). Т.е. ошибка возникает когда происходит обращение в полям класса. IsActive – это Boolean переменная в protected секции. Я не понимаю почему класс в нутрии своего метода MsgProc не может обращаться к своейже переменной IsActive ? wtf Oo?

Класс

type	TGLApp = class
protected
  Wc				: TWndClass;
  Msg 				: TMsg;
  AppInstance 			: HWnd;
  WindowHandle 			: HWnd;
  Width				: Integer;
  Height 			: Integer;
  IsActive			: Boolean;
  IsPaused			: Boolean;
  IsContextCreated		: Boolean;
  X, Y 				: Integer;
  rcView 			: TRect;
  WindowDC			: HDC;
  GLContext			: HGLRC;
  PixelBits			: Cardinal;
  DepthBits			: Cardinal;
  StencilBits			: Cardinal;
  WindowName			: PAnsiChar;

  function CreateWindowAndGLContext() : GLBoolean;

public

  function MsgProc (const HWND, MSG, WPARAM, LPARAM : Longint ):Longint;

  // События для потомков
  procedure OnUpdate(const fTime:GLfloat);	virtual;
  procedure OnRendering();	virtual;
  procedure OnMouse();		virtual;
  procedure OnKeyboard(); virtual;
  procedure OnStartup();	virtual;
  procedure OnCleanup();	virtual;

  procedure DoAppEvents();
  //procedure Quit();

  constructor Create(); overload;
  constructor Create(const _W, _H, _Bpp, _Depth, _Stencil:integer; const _WindowName:PAnsiChar); overload;

  destructor Destroy();override;
end;
PGLApp = ^TGLApp;

[Пепел Феникса]

объекты итак хранятся через ссылку, не нужно брать указатель от ссылки.

[Warn]

Если про это

AppInst := PGLApp(Pointer(GetWindowLongPtrA(HW ND, GWLP_USERDATA)));

AppInst несовместим с integer который возвращает GetWindowLongPtrA, тут по другому не возможно Указатель на объект = указатель(адрес)

В отладке первоначально вижу класс в указателе AppInst, с реальными значениями переменных, все передается нормально, но вот потом после создания потомка класса(MyApp := MyGLApp.Create();), далее идет обработка сообщений (MyApp.DoAppEvents();), в AppInst поступает какойто мусор и он выполняет для мусорных данных TGLApp.MsgProc, тут все и начинается, на первом проходе обработчика сообщений.
Я тут подумал может обработчик обрабатывает "левые хендлы" окон и берет из них USERDATA и интерпретирует ее как класс, а далее пошло и поехало...?

program gl33test;

{$APPTYPE CONSOLE}

uses
  SysUtils, Windows, gl3, gl3.app;


type MyGLApp = class(TGLApp)
  procedure OnRendering();override;
  constructor Create();
  destructor Destroy();override;

end;

constructor MyGLApp.Create();
begin
	inherited Create();

end;

destructor MyGLApp.Destroy();
begin
	inherited Destroy();

end;

procedure MyGLApp.OnRendering();
begin
  glClear(GL_COLOR_BUFFER_BIT);
  glClearColor(1,0,0,0);

  SwapBuffers(WindowDC);
end;



var
	MyApp	:	MyGLApp;
begin
  MyApp := MyGLApp.Create();
  MyApp.DoAppEvents();
  MyApp.Destroy();
end.

Если прикрепляю инст класса за хендлом окна так

SetWindowLongA(WindowHandle, GWL_USERDATA, HMODULE(@self));

получаю валидные данные тут

 AppInst := PGLApp(GetWindowLongA(HWND, GWLP_USERDATA));

Если же без взятия адреса класса

SetWindowLongA(WindowHandle, GWL_USERDATA, HMODULE(self));

получаю мусор тут

AppInst := PGLApp(GetWindowLongA(HWND, GWLP_USERDATA));

[Пепел Феникса]

Указатель на объект = указатель(адрес)

нет.
TClass это уже указатель на объект типа TClass, итого у вас выходит указатель на указатель на объект.

AppInst несовместим с integer который возвращает GetWindowLongPtrA

приведение типов ставьте и все ок.

бывала же тема про делегирование в ООП, посмотрите.

[Warn]

Проблему решил.
Проблема была в том что строчка -

SetWindowLongA(WindowHandle, GWL_USERDATA, HMODULE(@self));

сидела в процедуре которую вызывал конструктор класса, и именно при таком размещении она вызывала (каким-то немыслимым образом) ошибки в WindowCallBack где AppInst был часто с мусорными данными, от сюда и ошибки в рунтайме.
т.е. так я понял, в конструкторе нельзя трогать и передавать куда либо @self, наверное, на этом этапе инст класса еще не определился со своим место положением в памяти

поэтому, вынес строчку из TGLApp.Create()->fn(); в самое начало TGLApp.DoAppEvents();
сохраняю так.

SetWindowLongA(WindowHandle, GWL_USERDATA, HMODULE(@self));

а беру так (с приведением типа).

function WindowCallBack (const HWND, MSG, WPARAM, LPARAM : Longint ):Longint; stdcall;
var
	AppInst : PGLApp;
begin
  AppInst := nil;
  AppInst := PGLApp(GetWindowLongA(HWND, GWLP_USERDATA));

  if (AppInst <> nil) then begin
  	Result := AppInst.MsgProc(HWND, MSG, WPARAM, LPARAM);
    exit;
  end else begin
  	Result := DefWindowProc(HWND, MSG, WPARAM, LPARAM);
    exit;
  end;

  result := 0;
end;

Все отлично работает, пока что)

Основной код программы.
Пока что инициализация gl33 core контекста

program gl33test;
{$APPTYPE CONSOLE}

uses
  SysUtils, Windows, gl3, gl3.app;

type MyGLApp = class(TGLApp)
  function OnRendering() : GLBoolean; override;
  function OnStartup(): GLboolean; override;
  function OnCleanup(): GLboolean; override;
end;

function MyGLApp.OnStartup(): GLboolean;
begin
  Writeln('Load user resouces');
  Result := TRUE;
end;

function MyGLApp.OnCleanup(): GLboolean;
begin
 WriteLn('Cleanup user resoures');
 Result := TRUE;
end;

function MyGLApp.OnRendering():GLBoolean;
begin
  glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
  glClearColor(0,0,1,0);


  glFlush();
  Result := SwapBuffers(WindowDC);
end;

var
  MyApp	 : MyGLApp;
begin
  MyApp := MyGLApp.Create();
  MyApp.DoAppEvents();
  MyApp.Destroy();
  readln;
end.