Оригинал Поиск Дополнительно Вход
ДомойОсновная Компоненты FreePascal Начинающим KOL Игры Corba Media Журнал WinAPI Сети Прочее Базы .Net
Конференция "Игры" » Проблемы с OpenGL [Delphi, Windows]
 
  • HARIER (25.05.07 20:43) [0]
    Почему дёргается экран. Когда передвигаю мышку или нажимаю любую клавишу.
    Такое творится только при разрешении 1024 х 768.
    Почему? Внизу код.

    ===================== Unit =================================

    interface

    uses
     Windows,
     Messages,
     OpenGL,
     ANSORO_UTILITS;

    const
     ENGINE_NAME = 'HARIER';
     ENGINE_VERSION = '0.1';

    type
     TOnRender = procedure;
     TOnUpdate = procedure;
     TOnInit = procedure;

    type
     TEngine = class
       h_Msg : TMSG;
       h_Wnd : hWnd;
       h_wc:  TWndClassEX;
       h_DC : HDC;
       h_RC: HGLRC;
       PFD: TPixelFormatDescriptor;
       nPFD: integer;
     private
       FOnRender: TOnRender;
       FOnUpdate: TOnUpdate;
       FOnInit  : TOnInit;
     public
       constructor Create;
       destructor  Destroy;
     public
     // SYSTEM
       procedure Init(name: PChar; width, height: integer; bpp: byte; FullScreen: Boolean = false);
       procedure SetFullScreen(width, height: integer; bpp: byte);
       procedure Quit;
       procedure Loop;
     // OPENGL
       procedure InitGL;
       procedure SetPFD;

       property OnRender: TOnRender read FOnRender write FOnRender;
       property OnUpdate: TOnUpdate read FOnUpdate write FOnupdate;
       property OnInit: TOnInit read FOnInit write FOnInit;
     private
       eFullScreen: boolean;
       eWidth,eHeight: integer;
       eBpp: Byte;
       eFinished: Boolean;
     end;

    procedure InitEngine;

    var
     engine: TEngine;

    implementation

    procedure InitEngine;
    begin
     engine := TEngine.Create;
    end;

    constructor TEngine.Create;
    begin
     eFinished := false;
    end;

    function WndProc(h_wnd:hWND; events: Integer; wparam: wparam; lparam: lparam):lresult;stdcall;
    begin
     case events of
       WM_CREATE:  begin  end;
       WM_DESTROY: begin PostQuitMessage(0); Result:= 0; exit; end;
       WM_PAINT:   begin
                   glClear(GL_DEPTH_BUFFER_BIT OR GL_COLOR_BUFFER_BIT);
                   glClearColor(0,1,0,0);
                  // ValidateRect(h_wnd,nil); result := 0; exit;
                 end;

     end;
     Result := DefWindowProc(h_wnd, events, wparam, lparam);
    end;

    procedure TEngine.SetPFD;
    begin
     FillChar(pfd, sizeof(pfd), 0);
     pfd.nVersion := 1;
     pfd.nSize := sizeof(pfd);
     pfd.dwFlags := PFD_DOUBLEBUFFER or PFD_DRAW_TO_WINDOW or PFD_SUPPORT_OPENGL;
     pfd.iPixelType := PFD_TYPE_RGBA;
     pfd.cColorBits := eBpp;
     pfd.cStencilBits := 0;
     pfd.cDepthBits   := 32;
     nPFD := ChoosePixelFormat(h_dc, @pfd);
     SetPixelFormat( H_DC, nPFD, @pfd );
    end;

    procedure TEngine.InitGL;
    begin
     SetPFD;
     h_rc := wglCreateContext(h_dc);
     wglMakeCurrent(h_dc, h_rc);
     glClear(GL_DEPTH_BUFFER_BIT OR GL_COLOR_BUFFER_BIT);
     glClearColor(0,1,0,0);
    end;

    procedure TEngine.SetFullScreen(width: Integer; height: Integer; bpp: Byte);
    var
     dm: DevMode;
     hr: HRESULT;
     DC: hdc;
    begin
     FillChar(dm, SizeOf(dm),0);
     dm.dmSize := SizeOf(DevMode);
     dm.dmFields := DM_PELSWIDTH OR DM_PELSHEIGHT OR DM_BITSPERPEL OR DM_DISPLAYFREQUENCY;
     dm.dmPelsWidth := width;
     dm.dmPelsHeight:= height;
     dm.dmBitsPerPel := bpp;
     dm.dmDisplayFrequency := 75;
     HR :=  ChangeDisplaySettings(dm, CDS_FULLSCREEN);
    end;

    procedure TEngine.Init(name: PChar; width: Integer; height: Integer; bpp: Byte; FullScreen: Boolean = False);
    var
     dwExStyle : DWord;
     dwStyle   : DWord;
    begin
     eWidth := width;
     eHeight:= height;
     eBpp   := bpp;

     ZeroMemory(@h_wc,SizeOf(h_wc));
     h_wc.style        := CS_HREDRAW OR CS_VREDRAW OR CS_OWNDC;
     h_wc.cbSize       := sizeof(h_wc);
     h_wc.lpfnWndProc  := @WndProc;
     h_wc.hInstance    := hInstance;
     h_wc.hbrBackground:= COLOR_BTNFACE+1;
     h_wc.hCursor      := LoadCursor(0,IDC_ARROW);
     h_wc.lpszClassName:= ENGINE_NAME;

     WINDOWS.RegisterClassEx(h_wc);

     if FullScreen then
     begin
       eFullScreen := true;
       dwExStyle   := WS_OVERLAPPED or WS_EX_TOPMOST;   // поверх всех окон
       dwStyle     := WS_POPUP OR WS_CLIPCHILDREN OR WS_CLIPSIBLINGS;
       SetFullScreen(width,height,bpp);
     end
     else
     begin
       eFullScreen := false;
       dwExStyle   := WS_OVERLAPPED or WS_EX_TOPMOST;   // поверх всех окон
       dwStyle     := WS_SYSMENU OR WS_MINIMIZEBOX OR WS_CLIPCHILDREN OR WS_CLIPSIBLINGS;
     end;

     h_wnd := CreateWindowEX(dwExStyle,ENGINE_NAME,name,dwStyle,0,0,Width,Height,0,0,hInstance ,nil);
     h_dc  := GetDC(h_wnd);

     InitGL;

     ShowWindow(h_wnd,SW_SHOW);
     SetForegroundWindow(h_Wnd);

    end;

    procedure TEngine.Loop;
    begin
     while GetMessage(h_msg,0,0,0) do
     begin
       DispatchMessage(h_msg);
       TranslateMessage(h_msg);
        SwapBuffers(h_dc);
     end;
     
    end;

    procedure TEngine.Quit;
    begin
     eFinished := true;
    end;

    destructor TEngine.Destroy;
    begin

     Quit;

     DestroyWindow(h_wnd);
     UnRegisterClass(ENGINE_NAME,hInstance);

     wglDeleteContext(h_rc);
     ReleaseDC(h_wnd,h_dc);

     wglMakeCurrent(0, 0);
     wglDeleteContext(h_RC);
     ReleaseDC(h_Wnd, h_DC);

     if eFullscreen then ChangeDisplaySettings(TDevMode(nil^), CDS_FULLSCREEN);

    end;

    ===================== Application =================================
    program APP;

    uses
     Windows,
     OpenGL,
     ENGINE in 'ANSORO_ENGINE.pas',
     UTILITS in 'ANSORO_UTILITS.pas';

    begin
     InitEngine;
     engine.Init('APP',1024,768,32,true);
     engine.Loop;
    end.
  • @!!ex © (25.05.07 21:30) [1]
    Частота не поддерживаемая этим разрешением. Отсюда и косяк.
    Попробуй не трогать частоту. ;)
  • Rial © (25.05.07 22:53) [2]
    Зачем вообще принудительно менять разрешение ?..
    Если что то уже настроено, значит пользователю
    так удобно :)
  • homm © (25.05.07 23:09) [3]
    > [2] Rial ©

    +1
    Конечно, если не даеться выбор разрешений по вкусу :)
  • HARIER (26.05.07 00:28) [4]
    убрал частоту не помогло.
    Я двигаю мышку и тогда начинает перерисоваться экран .
    Странно. Серый потом зелёный. если не двигаю мышку то нормально.
    Такое только в полноекранном режиме.
  • HARIER (26.05.07 00:31) [5]
    Rial ©   (25.05.07 22:53) [2]

    Объясни что ты имел ввиду. Я чегото непонял :-)
  • Домик (26.05.07 02:11) [6]
    > Rial ©   (25.05.07 22:53) [2]

    У меня, к примеру, разрешение рабочего стола 1600x1200. Не каждая 3D игра будет производительна в таком разрешение, а 2D игрушки даже таких разрешений, как правило, не знают...
  • @!!ex © (26.05.07 09:46) [7]
    Может быть косяки видеокарты.
    ПРишли ехешник, мы потестим на своих машинах.
  • HARIER (26.05.07 10:28) [8]
    А где я могу его выложить?
  • HARIER (26.05.07 17:03) [9]
    Вообще я думаю что то я всётаки на портачил так пробовал исходники
    с сайта Sulaco . Его исходники идут нормально.

    Еще вопрос. Что лучше использовать.

     PGL_WindowInit = ^TGL_WindowInit;
     TGL_WindowInit = record              // Window Creation Info
       application:  PApplication;        // Application Structure
       title:        PAnsiChar;           // Window Title
       width:        Integer;             // Width
       height:       Integer;             // Height
       bitsPerPixel: Integer;             // Bits Per Pixel
       isFullScreen: Boolean;             // FullScreen?
     end;  

    или

     TGL_WindowInit = class              // Window Creation Info
       application:  PApplication;        // Application Structure
       title:        PAnsiChar;           // Window Title
       width:        Integer;             // Width
       height:       Integer;             // Height
       bitsPerPixel: Integer;             // Bits Per Pixel
       isFullScreen: Boolean;             // FullScreen?
     end;
  • @!!ex © (26.05.07 17:12) [10]
    нафиг класс?
  • ElectriC © (26.05.07 17:18) [11]
    ИМХО, лучше так:

    >var
    >  GL_WindowInit : packed record             // Window Creation Info
    >   application:  PApplication;        // Application Structure
    >   title:        PAnsiChar;           // Window Title
    >   width:        Integer;             // Width
    >   height:       Integer;             // Height
    >   bitsPerPixel: Integer;             // Bits Per Pixel
    >   isFullScreen: Boolean;             // FullScreen?
    > end;
  • @!!ex © (26.05.07 18:30) [12]
    Почему запаковынный рекорд луычше? Медленней же работает.
  • ElectriC © (26.05.07 19:55) [13]

    > Почему запаковынный рекорд луычше? Медленней же работает.

    Ну поставь обычный)))
  • HARIER (26.05.07 20:04) [14]
    А вообще Записи не нужно ни конструктора ни деструтора.
    Может біть она всётаки лучше.
    Что лучше делать класс движка или запись?
  • ElectriC © (26.05.07 20:20) [15]

    > А вообще Записи не нужно ни конструктора ни деструтора.

    Нет.

    > Что лучше делать класс движка или запись?

    Ну я б лучше делал запись => быстрее и экономнее ;)))
  • Rial © (26.05.07 20:23) [16]
    > [14] HARIER   (26.05.07 20:04)
    > Что лучше делать класс движка или запись?

    В начале нужно сделать что угодно, работающее без сбоев
    и глюков. А вообще, запись - это метод представления данных,
    а класс - это нечто большее.
    С одной стороны, для отладки проще обойтись записями,
    потом все это завернуть в красивую обертку, обеспечивающую
    целостность данных.
    Возможно, наступит такой момент, когда классы в итоге будут
    ощутимо замедлять работу... но это маловероятно.


    > [5] HARIER   (26.05.07 00:31)
    > Rial ©   (25.05.07 22:53) [2]
    > Объясни что ты имел ввиду. Я чегото непонял :-)

    У меня стоит разрешение 1024*768, частота обновление 75Гц...
    если какая то программа принудительно меняет его- это
    80% шанс отправиться в корзину ежеминутно.
  • @!!ex © (26.05.07 20:26) [17]
    > У меня стоит разрешение 1024*768, частота обновление 75Гц...
    > если какая то программа принудительно меняет его- это
    > 80% шанс отправиться в корзину ежеминутно.

    Практически любая игра меняет разрешение...
    НЕ играешь чтоли совсем? :))
  • Rial © (26.05.07 21:19) [18]
    > [11] ElectriC ©   (26.05.07 17:18)
    > ИМХО, лучше так:
    > >var
    > >  GL_WindowInit : packed record             // Window Creation
    > Info
    > >   application:  PApplication;        // Application Structure
    > >   title:        PAnsiChar;           // Window Title
    > >   width:        Integer;             // Width
    > >   height:       Integer;             // Height
    > >   bitsPerPixel: Integer;             // Bits Per Pixel
    > >   isFullScreen: Boolean;             // FullScreen?
    > > end;

    Конкретно в данном случае вставка слова "packed" не играет
    никакой роли. Почему? - можно почитать о правилах выравнивания полей.
    Конечно, когда составляешь свою структуру записи, лучше
    сразу выбирать такой порядок полей, чтобы размер записи был
    минимальным.
    А необходимоть в "packed" в основном возникает при переносе
    кода с других языков.


    > [17] @!!ex ©   (26.05.07 20:26)
    > НЕ играешь чтоли совсем? :))

    Нет...
  • HARIER (27.05.07 03:00) [19]
    Мучался весь день. И ни чего не получилось.
    Мне нужно написать модуль который создаёт окно и контекст.
    Первый пример я делал по книге. Своими мозгами. А второй по
    исходникам с Sulaco. И что получилось выдаются ошибки:
    Невозможно создать класс, создать окно ....
    У меня уже голова не варит. Как нужно правильно сделать.
    Получается что своими мозгами заработало но с глюками, а
    метом Копировать Вставить вообще не работает.

    Я думаю вы уже много раз писали подобное :-)
    Помогите пожалуйста...

    unit ENGINE;

    interface

    uses
     Windows,
     Messages,
     OpenGL,
     UTILITS;

    const
     ENGINE_NAME = 'ANSORO';
     ENGINE_VERSION = '1.0';

    type
     TOnRender = procedure;
     TOnUpdate = procedure;
     TOnInit = procedure;

    {    FOnRender: TOnRender;
       FOnUpdate: TOnUpdate;
       FOnInit  : TOnInit;
    }

    {
       property OnRender: TOnRender read FOnRender write FOnRender;
       property OnUpdate: TOnUpdate read FOnUpdate write FOnupdate;
       property OnInit: TOnInit read FOnInit write FOnInit;
    }
    ENG = ^Tengine;
    TEngine = class
      h_wnd: HWND;
      h_msg: TMsg;
      h_wc:  TWndClassEX;
      h_dc:  HDC;
      h_rc:  HGLRC;

      eFullScreen: Boolean;
      eWidth,
      eHeight: Integer;
    public
      procedure InitEngine(name: PChar; width, height: integer; bpp: integer; FullScreen: Boolean = false);
      procedure Loop;
      procedure Quit;

      procedure glInit;
      procedure glKillWnd(Fullscreen : Boolean);
    private
      constructor Create;
      destructor  Destroy;
    end;

    procedure EngineInit;

    var
     engine: TEngine;

     eFinished: Boolean;

    implementation

    procedure EngineInit;
    begin
     engine := TEngine.Create;
    end;

    constructor TEngine.Create;
    begin
     eFinished := false;
    end;

    ////////////////////////////////////////////////////////////////////////////////
    ///                         Private unit function
    ////////////////////////////////////////////////////////////////////////////////

    procedure TEngine.glInit;
    begin
     glClearColor(0.0, 0.0, 0.0, 0.0);     // Black Background
    end;

    procedure glResizeWnd(Width, Height : Integer);
    begin
     // This Function will be handled in a later chapter

     if (Height = 0) then                // prevent divide by zero exception
       Height := 1;
     glViewport(0, 0, Width, Height);    // Set the viewport for the OpenGL window
     glMatrixMode(GL_PROJECTION);        // Change Matrix Mode to Projection
     glLoadIdentity();                   // Reset View
     gluPerspective(45.0, Width/Height, 1.0, 100.0);  // Do the perspective calculations. Last value = max clipping depth

     glMatrixMode(GL_MODELVIEW);         // Return to the modelview matrix
     glLoadIdentity();                   // Reset View
    end;

    function WndProc(hWnd: HWND; Msg: UINT;  wParam: WPARAM;  lParam: LPARAM): LRESULT; stdcall;
    begin
     case (Msg) of
       WM_CREATE:
         begin
    //        eFinished := false;
         end;
       WM_CLOSE:
         begin
           PostQuitMessage(0);
           Result := 0
         end;
       WM_KEYDOWN:       // Set the pressed key (wparam) to equal true so we can check if its pressed
         begin
    //        keys[wParam] := True;
           Result := 0;
         end;
       WM_KEYUP:         // Set the released key (wparam) to equal false so we can check if its pressed
         begin
    //        keys[wParam] := False;
           Result := 0;
         end;
       WM_SIZE:          // Resize the window with the new width and height
         begin
           glResizeWnd(LOWORD(lParam),HIWORD(lParam));
           Result := 0;
         end;
       else
         Result := DefWindowProc(hWnd, Msg, wParam, lParam);    // Default result if nothing happens
     end;
    end;

  • HARIER (27.05.07 03:05) [20]

    procedure TEngine.glKillWnd(Fullscreen : Boolean);
    begin
     if Fullscreen then             // Change back to non fullscreen
     begin
       ChangeDisplaySettings(devmode(nil^), 0);
       ShowCursor(True);
     end;

     // Makes current rendering context not current, and releases the device
     // context that is used by the rendering context.
     if (not wglMakeCurrent(h_DC, 0)) then
       MessageBox(0, 'Release of DC and RC failed!', 'Error', MB_OK or MB_ICONERROR);

     // Attempts to delete the rendering context
     if (not wglDeleteContext(h_rc)) then
     begin
       MessageBox(0, 'Release of rendering context failed!', 'Error', MB_OK or MB_ICONERROR);
       h_RC:= 0;
     end;

     // Attemps to release the device context
     if ((h_DC > 0) and (ReleaseDC(h_Wnd, h_DC) = 0)) then
     begin
       MessageBox(0, 'Release of device context failed!', 'Error', MB_OK or MB_ICONERROR);
       h_DC := 0;
     end;

     // Attempts to destroy the window
     if ((h_Wnd <> 0) and (not DestroyWindow(h_Wnd))) then
     begin
       MessageBox(0, 'Unable to destroy window!', 'Error', MB_OK or MB_ICONERROR);
       h_Wnd := 0;
     end;

     // Attempts to unregister the window class
     if (not UnRegisterClass(ENGINE_NAME, hInstance)) then
     begin
       MessageBox(0, 'Unable to unregister window class!', 'Error', MB_OK or MB_ICONERROR);
       hInstance := 0;
     end;
    end;

    ////////////////////////////////////////////////////////////////////////////////
    ///                         Public unit function
    ////////////////////////////////////////////////////////////////////////////////

    procedure TEngine.InitEngine(name: PAnsiChar; width: Integer; height: Integer; bpp: Integer; FullScreen: Boolean = False);
    var
    dwStyle : DWORD;              // Window styles
     dwExStyle : DWORD;            // Extended window styles
     dmScreenSettings : DEVMODE;   // Screen settings (fullscreen, etc...)
     PixelFormat : GLuint;         // Settings for the OpenGL rendering
    //  h_Instance : HINST;           // Current instance
     pfd : TPIXELFORMATDESCRIPTOR;  // Settings for the OpenGL window
    begin
    // h_Instance := GetModuleHandle(nil);       //Grab An Instance For Our Window
     ZeroMemory(@h_wc, SizeOf(h_wC));  // Clear the window class structure

     with h_wc do                    // Set up the window class
     begin
       style         := CS_HREDRAW or    // Redraws entire window if length changes
                        CS_VREDRAW or    // Redraws entire window if height changes
                        CS_OWNDC;        // Unique device context for the window
       lpfnWndProc   := @WndProc;        // Set the window procedure to our func WndProc
    //    hInstance     := h_Instance;
       hCursor       := LoadCursor(0, IDC_ARROW);
       lpszClassName := ENGINE_NAME;
     end;
    RegisterClassEX(h_wc);

     eFullScreen :=  FullScreen;

     // Change to fullscreen if so desired
     if Fullscreen then
     begin
       ZeroMemory(@dmScreenSettings, SizeOf(dmScreenSettings));
       with dmScreenSettings do begin              // Set parameters for the screen setting
         dmSize       := SizeOf(dmScreenSettings);
         dmPelsWidth  := Width;                    // Window width
         dmPelsHeight := Height;                   // Window height
         dmBitsPerPel := bpp;               // Window color depth
         dmFields     := DM_PELSWIDTH or DM_PELSHEIGHT or DM_BITSPERPEL;
       end;

       // Try to change screen mode to fullscreen
       if (ChangeDisplaySettings(dmScreenSettings, CDS_FULLSCREEN) = DISP_CHANGE_FAILED) then
       begin
         MessageBox(0, 'Unable to switch to fullscreen!', 'Error', MB_OK or MB_ICONERROR);
         Fullscreen := False;
       end;
     end;

     // If we are still in fullscreen then
     if (Fullscreen) then
     begin
       dwStyle := WS_POPUP or                // Creates a popup window
                  WS_CLIPCHILDREN            // Doesn't draw within child windows
                  or WS_CLIPSIBLINGS;        // Doesn'    t draw within sibling windows
       dwExStyle := WS_EX_APPWINDOW;         // Top level window
       ShowCursor(False);                    // Turn of the cursor (gets in the way)
     end
     else
     begin
       dwStyle := WS_OVERLAPPEDWINDOW or     // Creates an overlapping window
                  WS_CLIPCHILDREN or         // Doesn't draw within child windows
                  WS_CLIPSIBLINGS;           // Doesn'    t draw within sibling windows
       dwExStyle := WS_EX_APPWINDOW or       // Top level window
                    WS_EX_WINDOWEDGE;        // Border with a raised edge
     end;

     // Attempt to create the actual window
     h_Wnd := CreateWindowEx(dwExStyle,      // Extended window styles
                             ENGINE_NAME,       // Class name
                             NAME,      // Window title (caption)
                             dwStyle,        // Window styles
                             0, 0,           // Window position
                             Width, Height,  // Size of window
                             0,              // No parent window
                             0                          ,              // No menu
                             hInstance,     // Instance
                             nil);           // Pass nothing to WM_CREATE
     if h_Wnd = 0 then
     begin
       glKillWnd(Fullscreen);                // Undo all the settings we've changed
       MessageBox(0, '    Unable to create window!', 'Error', MB_OK or MB_ICONERROR);
       Exit;
     end;

     // Try to get a device context
     h_DC := GetDC(h_Wnd);
     if (h_DC = 0) then
     begin
       glKillWnd(Fullscreen);
       MessageBox(0, '    Unable to get a device context!', 'Error', MB_OK or MB_ICONERROR);
       Exit;
     end;

  • ElectriC © (27.05.07 03:08) [21]
    Приведи листинг основного файла (.dpr).
  • HARIER (27.05.07 03:08) [22]


     // Settings for the OpenGL window
     with pfd do
     begin
       nSize           := SizeOf(TPIXELFORMATDESCRIPTOR); // Size Of This Pixel Format Descriptor
       nVersion        := 1;                    // The version of this data structure
       dwFlags         := PFD_DRAW_TO_WINDOW    // Buffer supports drawing to window
                          or PFD_SUPPORT_OPENGL // Buffer supports OpenGL drawing
                          or PFD_DOUBLEBUFFER;  // Supports double buffering
       iPixelType      := PFD_TYPE_RGBA;        // RGBA color format
       cColorBits      := BPP;           // OpenGL color depth
       cRedBits        := 0;                    // Number of red bitplanes
       cRedShift       := 0;                    // Shift count for red bitplanes
       cGreenBits      := 0;                    // Number of green bitplanes
       cGreenShift     := 0;                    // Shift count for green bitplanes
       cBlueBits       := 0;                    // Number of blue bitplanes
       cBlueShift      := 0;                    // Shift count for blue bitplanes
       cAlphaBits      := 0;                    // Not supported
       cAlphaShift     := 0;                    // Not supported
       cAccumBits      := 0;                    // No accumulation buffer
       cAccumRedBits   := 0;                    // Number of red bits in a-buffer
       cAccumGreenBits := 0;                    // Number of green bits in a-buffer
       cAccumBlueBits  := 0;                    // Number of blue bits in a-buffer
       cAccumAlphaBits := 0;                    // Number of alpha bits in a-buffer
       cDepthBits      := 16;                   // Specifies the depth of the depth buffer
       cStencilBits    := 0;                    // Turn off stencil buffer
       cAuxBuffers     := 0;                    // Not supported
       iLayerType      := PFD_MAIN_PLANE;       // Ignored
       bReserved       := 0;                    // Number of overlay and underlay planes
       dwLayerMask     := 0;                    // Ignored
       dwVisibleMask   := 0;                    // Transparent color of underlay plane
       dwDamageMask    := 0;                     // Ignored
     end;

     // Attempts to find the pixel format supported by a device context that is the best match to a given pixel format specification.
     PixelFormat := ChoosePixelFormat(h_DC, @pfd);
     if (PixelFormat = 0) then
     begin
       glKillWnd(Fullscreen);
       MessageBox(0, 'Unable to find a suitable pixel format', 'Error', MB_OK or MB_ICONERROR);
       Exit;
     end;

     // Sets the specified device context's pixel format to the format specified by the PixelFormat.
     if (not SetPixelFormat(h_DC, PixelFormat, @pfd)) then
     begin
       glKillWnd(Fullscreen);
       MessageBox(0, '    Unable to set the pixel format', 'Error', MB_OK or MB_ICONERROR);
       Exit;
     end;

     // Create a OpenGL rendering context
     h_RC := wglCreateContext(h_DC);
     if (h_RC = 0) then
     begin
       glKillWnd(Fullscreen);
       MessageBox(0, '    Unable to create an OpenGL rendering context', 'Error', MB_OK or MB_ICONERROR);
       Exit;
     end;

     // Makes the specified OpenGL rendering context the calling thread'    s current rendering context
     if (not wglMakeCurrent(h_DC, h_RC)) then
     begin
       glKillWnd(Fullscreen);
       MessageBox(0, 'Unable to activate OpenGL rendering context', 'Error', MB_OK or MB_ICONERROR);
       Exit;
     end;

     // Settings to ensure that the window is the topmost window
     ShowWindow(h_Wnd, SW_SHOW);
     SetForegroundWindow(h_Wnd);
     SetFocus(h_Wnd);

     // Ensure the OpenGL window is resized properly
     glResizeWnd(Width, Height);
     glInit(); // Initialise any OpenGL States and variables
    end;

    procedure TEngine.Loop;
    begin

     while GetMessage(h_msg, 0,0,0) do

         begin                               // Else translate and dispatch the message to this window
          TranslateMessage(h_msg);
           DispatchMessage(h_msg);
         end;

    end;

    procedure TEngine.Quit;
    begin
     eFinished := true;
    end;

    destructor TEngine.Destroy;
    begin
      glKillWnd(eFullscreen);
    end;

    end.

  • ElectriC © (27.05.07 03:09) [23]
    Приведи исходник .dpr файла.
  • HARIER (27.05.07 03:12) [24]
    код файла dpr

    program game;

    uses
     Windows,
     OpenGL,
     ENGINE in 'ENGINE.pas',
     GAME_ENGINE in 'GAME_ENGINE.pas',
     UTILITS in 'UTILITS.pas';

    begin
     EngineInit;
     engine.InitEngine('name',1024,768,32,false);
     engine.Loop;
    end.


  • ElectriC © (27.05.07 03:14) [25]
    вообще-то в loop нужно писать, ИМХО:

    ...
    Msg : MSG;
    ...
    ZeroMemory(@Msg, SizeOf(MSG));

        while True do
         If (PeekMessage(Msg, 0, 0, 0, PM_NOREMOVE)) then
          begin
            If not GetMessage(Msg, 0, 0, 0) then Exit;
            TranslateMessage (Msg);
            DispatchMessage  (Msg);
          end
         else
         If Active then //Активность приложения
          begin
             //тут рисуем OpenGL сцену
          end else WaitMessage;
  • HARIER (27.05.07 03:20) [26]
    ElectriC ©   (27.05.07 03:14) [25]

    Учту. :-)

    Посмотри на код может я чтото еще не праввильно делаю.
    Напиши что имено. Я исправлю.

    Завтра с утра начну заново писать.

    Как думаешь лучше смотреть на исходники или в книгу.
  • ElectriC © (27.05.07 03:26) [27]

    > HARIER

    Совет - не спеши!!! Обдумай всё заранее!!!
    Когда я писал движок > http://slil.ru/24404040/874845188/School_54.rar <    (хотя и сейчас продолжаю писать) смотрел больше на исходники, а в меньше
    степени - на книги (Хотя старался совмещать и то и другое).
    Я погляжу, что можно сделать!
  • ElectriC © (27.05.07 03:48) [28]
    1. Могу предположить что [25] поможет!
      Так-как в твоём случае перерисовка экрана присходит тока тогда, когда
      курсор мыши ползает по экрану!
    2. ValidateRect(h_wnd,nil); - не нужен!
    3. WM_CREATE: begin//  eFinished := false; end; - не нужен!
  • HARIER (28.05.07 01:08) [29]
    Так ни чего и не получилось.
    Посмотрел свои старые проекты делал 3D сцены в любых видеорежимах.
    Всё идёт очень быстро и без глюков.

    Я На грани дипресии :-(

    Мне нужно сдать игру до 1 октября. Может можно написать игру в одном DPR файле как вы думаете.
    ДУмаю может оставить все функии по инициализации окна и графики.
    в главном файле DPR. Как вы считаете?

    Тогда у меня вдальнейшем может возникнуть другая проблема, Когда мне
    например надо будет писать Спрайтовый модуль и тп. То как мне вних
    использовать такие важные переменные как h_wnd, h_dc ...

    Пожалуйста посоветуйте мне как поступить.

    Внизу привёл пример одного из своих проектов:



    program Example14;

    uses
     Windows,
     Messages,
     OpenGL;

    const
     APP_NAME = 'Example14'; // Название приложения

     mat_specular : array [0..3] of GLfloat = ( 1.0, 1.0, 1.0, 1.0 );   // Интенсивность зеркального света
     mat_shininess : GLfloat = 100.0;                                    // Яркость света
     light_position : array [0..3] of GLfloat = ( 0.0, 0.0, 1.0, 0.0 ); // Позиция света
     white_light : array [0..3] of GLfloat = ( 1.0, 0.9, 0.8, 0.0 );    // Цвет света
     light_ambient: array [0..3] of GLfloat = ( 0.5, 0.0, 0.8, 0.0 );    // Цвет фона

     fog_color: array [0..3] of GLfloat = ( 0.9, 0.9, 0.8, 0.0 );    // Цвет тумана

    var
     h_wnd: HWND;
     h_wc:  TWndClassEx;
     h_dc:  HDC;
     h_rc:  HGLRC;
     msg :  TMsg;

     keys: array[0..255] of Boolean;

     finished : Boolean;
     i: integer;
     fogMode : GLint;   // Режим тумана

     rot: real;

     sph: gluQuadricObj;

     roll, pitch, heading, planex, planey, planez: GLFloat;
     distance, twist, elevation, azimuth: GLfloat;

     // UPS
       ups_time_old: integer;
       ups_time: integer;
     // FPS
       fps_time: Integer;
       fps_cur:  Integer;
       _FPS: integer;
       Time, Time_delta: integer;

    {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
    { Функция переводит Integer -> String                                          }
    {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
    function IntToStr(n: integer):String;
    begin
     STR(n, Result);
    end;

    {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
    { Камера пилота                                                                }
    {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
    procedure PilotView(roll, pitch, heading, planex, planey, planez: GLFloat);
    begin
     glRotatef(roll,0,0,1);
     glRotatef(roll,0,0,1);
     glRotatef(roll,0,0,1);
     glTranslatef(-planex, -planey, -planez);
    end;

    {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
    { Камера полярная                                                                }
    {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
    procedure PolarView(distance, twist, elevation, azimuth: GLfloat);
    begin
     glTranslatef(0,0,-distance);
     glRotatef(-twist, 0,0,1);
     glRotatef(-elevation, 1,0,0);
     glRotatef(azimuth, 0,0,1);
    end;

    procedure LST(x,y: integer);
    begin
     fogMode := GL_EXP2;
     glFogi(GL_FOG_MODE, fogMode);
     glFogfv(GL_FOG_COLOR, @fog_color);
     glFogf(GL_FOG_DENSITY, 0.05);
     glHint(GL_FOG_HINT, GL_NICEST);
     glFogf(GL_FOG_START, -10.0);
     glFogf(GL_FOG_END, 10.0);
     gluSphere(sph, 1.0, 100, 100);
    end;

    {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
    { Процедура рисования сцены                                                    }
    {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
    procedure Draw();
    begin
     glLoadIdentity();                 // Очистить матрицу
     glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);     // Очистить буфер цвета

     glTranslatef(1.0,1.0,-15.0);
     glOrtho(0.0, 1.0, 0.0, 1.0, -1.0, 1.0); // Установить ортогональную проекции
     glColor3f(1.0,0.0,0.0);

     gluLookAt(0,0,5,0,0,0,0,1,0);
         {
            Parameters:
                 eyex, eyey, eyez
             The position of the eye point.
                 centerx, centery, centerz
             The position of the reference point.
                 upx, upy, upz
             The direction of the up vector.
         }

    PilotView(roll, pitch, heading, planex, planey, planez);
    PolarView(distance, twist, elevation, azimuth);

    glEnable(GL_FOG);

    glRotatef(rot,1,1,1);
    glTranslatef(1,0,0);
    glPushMatrix;
      glCallList(1);
    glPopMatrix;

    glRotatef(rot,1,0,0);
    glTranslatef(1,0,0);
    glPushMatrix;
      glCallList(1);
    glPopMatrix;

    glRotatef(rot,1,1,0);
    glTranslatef(0,1,0);
    glPushMatrix;
      glCallList(1);
    glPopMatrix;

    glRotatef(rot,1,1,0);
    glTranslatef(-1,0,0);
    glPushMatrix;
      glCallList(1);
    glPopMatrix;

    glFlush;
    end;

    {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
    { Процедура обновления                                                         }
    {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
    procedure Update;
    begin

    rot := rot+0.1;

     //roll, pitch, heading, planex, planey, planez: GLFloat
     if keys[vk_left] then
     begin
       roll    := roll    + 0.001;
       pitch   := pitch   + 0.001;
       heading := heading + 0.001;
       planex  := planex  + 0.001;
       planey  := planey  + 0.001;
       planez  := planez  + 0.001;
     end;

     if keys[vk_right] then
     begin
       roll    := roll    - 0.001;
       pitch   := pitch   - 0.001;
       heading := heading - 0.001;
       planex  := planex  - 0.001;
       planey  := planey  - 0.001;
       planez  := planez  - 0.001;
     end;

     // distance, twist, elevation, azimuth
     if keys[49] then
     begin
       distance  := distance   + 0.01;
       twist     := twist      + 0.01;
       elevation := elevation  + 0.01;
       azimuth   := azimuth    + 0.01;
     end;

     if keys[50] then
     begin
       distance  := distance   - 0.01;
       twist     := twist      - 0.01;
       elevation := elevation  - 0.01;
       azimuth   := azimuth    - 0.01;
     end;

     if keys[51] then   fogMode := GL_EXP;
     if keys[52] then   fogMode := GL_EXP2;
     if keys[53] then   fogMode := GL_LINEAR;

     if keys[27] then finished := true; // Завершаем программу если нажата клавиша esc
    end;


  • HARIER (28.05.07 01:10) [30]


    {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
    { Процедура инициализации                                                      }
    {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
    procedure Init;
    begin
     glClearColor(1.0,1.0,1.0,1.0);   // Устанавливаем цвет очистки белый
     glShadeModel(GL_smooth);           // Позволяет применить цвет интерполированным

     // Создание новых объектов
     sph := gluNewQuadric();
     gluQuadricNormals(sph, GLU_SMOOTH);
     gluQuadricTexture(sph, GL_TRUE);

     glMaterialfv(GL_FRONT, GL_SPECULAR, @mat_specular);
     glMaterialfv(GL_FRONT, GL_SHININESS, @mat_shininess);

     glLightfv(GL_LIGHT0, GL_DIFFUSE, @white_light);
     glLightfv(GL_LIGHT0, GL_AMBIENT, @light_ambient);

     glLightf(GL_LIGHT0, GL_SPOT_CUTOFF , 100);
     glLightfv(GL_LIGHT0, GL_SPOT_DIRECTION, @light_position);

     glEnable(GL_LIGHTING);
     glEnable(GL_LIGHT0);
     glEnable(GL_DEPTH_TEST);

     glNewList(1,GL_COMPILE);
        LST(1,1);
     glEndList();

    end;

    {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
    { Процедура уничтожения программы                                              }
    {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
    procedure DestroyWnd(Fullscreen : Boolean);
    begin
     if Fullscreen then
     begin
       ChangeDisplaySettings(devmode(nil^), 0);
       ShowCursor(True);
     end;
    wglMakeCurrent(h_DC, 0);
    wglDeleteContext(h_RC);
    ReleaseDC(h_Wnd, h_DC);
    DestroyWindow(h_Wnd);
    UnRegisterClass('OpenGL', hInstance);
    end;

    {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
    { Процедура отвечающая за измененние размеров окна                             }
    {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
    procedure Resize(Width, Height : Integer);
    begin
     glViewport(0, 0, Width, Height);    // Установить порт просмотра OpenGL
     glMatrixMode(GL_PROJECTION);        // Установить проекционную матрицу
     glLoadIdentity();                   // Очистить матрицу
     gluPerspective(45.0, Width/Height, 1.0, 100.0);  // Установить перспективу
     glMatrixMode(GL_MODELVIEW);         // Установить матрицу отображения
     glLoadIdentity();                   // Очистить матрицу
    end;

    {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
    { Процедура перехода в полноекраный режим                                      }
    {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
    procedure DoFullScreen(width,height,bits: integer);
    var
     dm: DevMode;
     hr: HRESULT;
     DC: HDC;
    begin
     FillChar(dm, SizeOF(dm), 0);         // Заполнить структуру dm нулями
     dm.dmSize := SizeOf(DevMode);        // Устанавливаем размер dm
     dm.dmFields:= DM_PELSWIDTH or DM_PELSHEIGHT or DM_BITSPERPEL or DM_DISPLAYFREQUENCY;
     dm.dmPelsWidth := width;             // Ширина окна
     dm.dmPelsHeight := height;           // Высота окна
     dm.dmBitsPerPel := bits;             // Глубина цвета
     dm.dmDisplayFrequency := 75;         // Частота обновления экрана
     hr := ChangeDisplaySettings(dm,CDS_FULLSCREEN); // включить полноекранный режим
    end;

    {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
    { Главная процедура обработки сообщений                                        }
    {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
    function WndProc(hwnd: HWND; msg: integer; wparam: WPARAM; lparam: LPARAM):LResult; stdcall;
    begin
     case msg of
       WM_CREATE:  begin end;
       WM_DESTROY: begin PostQuitMessage(0); Result := 0; end;
       WM_SIZE:    begin Resize(LOWORD(lparam), HIWORD(lparam)); Result := 0; end;
       WM_KEYDOWN: begin keys[wparam] := true; result := 0;  end;
       WM_KEYUP:   begin keys[wparam] := false; result := 0;  end;
     else
       Result := DefWindowProc(hwnd, msg, wparam, lparam);
     end;
    end;

  • HARIER (28.05.07 01:11) [31]


    {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
    { Процедура создаёт окно и инициализирует OpenGL                               }
    {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
    procedure CreateAPP(width, height: integer; FullScreen: Boolean = false);
    var
     pfd: TPixelFormatDescriptor;
     nPixelFormat: Integer;
     dwStyle : DWORD;              // Window styles
     dwExStyle : DWORD;            // Extended window styles
    begin
     // Заполнить структуру h_wc нулями
     FillChar(h_wc, SizeOf(h_wc), 0);
     // Установка основных параметров класса
     h_wc.cbSize := SizeOf(h_wc);
     h_wc.style  := CS_OWNDC or CS_VREDRAW or CS_HREDRAW;  // позволяет перерисовывывать окно
     h_wc.lpfnWndProc := @WndProc;                         // указатель на процедуру обработки сообщений
     h_wc.hInstance    := HInstance;                       // экземпляр приложения
     h_wc.lpszMenuName := nil;                             // отсутствие меню (nil)
     h_wc.hCursor      := LoadCursor(0, IDC_ARROW);        // устанавливаем стандартный курсор
    //  h_wc.hbrBackground := COLOR_BTNFACE+1;                // цвет окна
     h_wc.lpszClassName := 'OpenGL';                       // имя класса
     // Регистрация класса окна в системе
     WINDOWS.RegisterClassEx(h_wc);
     // Создаётся окно
     if (Fullscreen) then
     begin
       dwStyle := WS_POPUP or WS_CLIPCHILDREN or WS_CLIPSIBLINGS;
       dwExStyle := WS_EX_APPWINDOW;
       ShowCursor(False);
     end
     else
     begin
       dwStyle := WS_OVERLAPPEDWINDOW or WS_CLIPCHILDREN or WS_CLIPSIBLINGS;
       dwExStyle := WS_EX_APPWINDOW or WS_EX_WINDOWEDGE;
     end;

     // Создать окно
     h_Wnd := CreateWindowEx(dwExStyle,'OpenGL',APP_NAME, dwStyle, 0, 0, Width, Height, 0, 0, hInstance, nil);
     h_dc := GetDC(h_wnd); // Получить контекст окна

     // Настройка формата пикселей
     with pfd do
     begin
       nSize := SizeOf(TPixelFormatDescriptor); // размер структуры
       nVersion := 1;                            // номер версии
       dwFlags := PFD_DOUBLEBUFFER or PFD_DRAW_TO_WINDOW or PFD_SUPPORT_OPENGL; // множество битовых флагов, определяющих устройство и интерфейс
       iPixelType := PFD_TYPE_RGBA; // режим для изображения цветов
       cColorBits := 32;            // число битовых плоскостей в каждом буфере цвета
       cRedBits := 0;               // число битовых плоскостей красного в каждом буфере RGBA
       cRedShift := 0;              // смещение от начала числа битовых плоскостей красного в каждом буфере RGBA
       cGreenBits := 0;             // число битовых плоскостей зелёного в каждом буфере RGBA
       cGreenShift := 0;            // смещение от начала числа битовых плоскостей зелёного в каждом буфере RGBA
       cBlueBits := 0;              // число битовых плоскостей синего в каждом буфере RGBA
       cBlueShift := 0;             // смещение от начала числа битовых плоскостей синего в каждом буфере RGBA
       cAlphaBits := 0;             // число битовых плоскостей альфа в каждом буфере RGBA
       cAlphaShift := 0;            // смещение от начала числа битовых плоскостей альфа в каждом буфере RGBA
       cAccumBits := 0;             // общее число битовых плоскостей в буфере аккумулятора
       cAccumRedBits := 0;          // число битовых плоскостей красного в буфере аккумулятора
       cAccumGreenBits := 0;        // число битовых плоскостей зелёного в буфере аккумулятора
       cAccumBlueBits := 0;         // число битовых плоскостей синего в буфере аккумулятора
       cAccumAlphaBits := 0;        // число битовых плоскостей альфа в буфере аккумулятора
       cDepthBits := 32;            // размер буфера глубины (ось z)
       cStencilBits := 0;           // размер буфера трафарета
       cAuxBuffers := 0;            // число вспомогательных буферов
       iLayerType := PFD_MAIN_PLANE;// тип плоскости
       bReserved := 0;              // число плоскостей переднего и заднего плана
       dwLayerMask := 0;            // игнорируется
       dwVisibleMask := 0;          // индекс или цвет прозрачности нижней плоскости
       dwDamageMask := 0;           // игнорируется
     end;

     nPixelFormat := ChoosePixelFormat( H_DC, @pfd ); // запрос системе - поддерживается ли выбранный формат пикселей
     SetPixelFormat( H_DC, nPixelFormat, @pfd );      // устанавливаем формат пикселей в контексте устройства

     h_rc := wglCreateContext(h_dc);
     wglMakeCurrent(h_dc, h_rc);

     // Установить полноекранный режим
     if FullScreen then DoFullScreen(width, height, 32);

     // Отображается окно
     ShowWindow(h_wnd, SW_SHOW);
     SetForegroundWindow(h_Wnd);
     SetFocus(h_Wnd);
     Resize(width,height);
     Init;
    end;

    {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
    { Процедура получает системное время                                           }
    {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
    function GetTime: integer;
    var
     T: LARGE_INTEGER;
     F: LARGE_INTEGER;
    begin
     // Сверхточный таймер
     QueryPerformanceFrequency(Int64(F));
     QueryPerformanceCounter(Int64(T));
     Result:= Trunc(1000 * T.QuadPart / F.QuadPart);
    end;

    {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
    { Процедура сбрасывает значение таймера                                        }
    {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
    procedure ResetTimer;
    begin
     ups_time_old := GetTime;
    end;

    {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
    { Функция получает FPS                                                         }
    {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
    function FPS: integer;
    begin
     Result := _FPS;
    end;

    {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
    { Главный цикл сообщений                                                       }
    {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
    procedure Loop(UPS: Integer);
    begin
     ups_time_old := GetTime - 1000 div UPS;
     ups_time := GetTime;
     fps_time := GetTime;

     while not finished do
     begin
       while PeekMessage(msg,0,0,0,PM_REMOVE) do
       begin
         if msg.message = WM_QUIT then finished := true else begin
           TranslateMessage(msg);
           DispatchMessage(msg);
         end;
       end;
       while GetTime - ups_time_old >= (1000 div ups) do
       begin
       Update;
       inc(ups_time_old, 1000 div ups);
       end;
       Draw;
       SwapBuffers(h_dc);
       if fps_time <= GetTime then
       begin
         fps_time := GetTime + 1000;
         _FPS := fps_cur;
         fps_cur := 0;
       end;
       inc(fps_cur);
       SetWindowText(h_Wnd, PChar(APP_NAME + '   [' + intToStr(_FPS) + ' FPS]'));
     end;
    DestroyWND(false);
    end;

    begin
     CreateAPP(1024,768, true);
     Loop(500);
    end.

  • @!!ex © (28.05.07 07:43) [32]
    > Мне нужно сдать игру до 1 октября. Может можно написать
    > игру в одном DPR файле как вы думаете.
    > ДУмаю может оставить все функии по инициализации окна и
    > графики.
    > в главном файле DPR. Как вы считаете?

    Нельзя писать игру в одном DPR.
    Я в свое время написал один такой проект и понял что оно нафиг не надо, там черт ногму сломит.
    Модульности рулит.


    > Тогда у меня вдальнейшем может возникнуть другая проблема,
    > Когда мне
    > например надо будет писать Спрайтовый модуль и тп. То как
    > мне вних
    > использовать такие важные переменные как h_wnd, h_dc ...

    ДЛя глобальных переменных лично я использую отдельный модуль.
  • HARIER (28.05.07 10:08) [33]
    @!!ex ©   (28.05.07 07:43) [32]

    Так что ты мне посоветуеш делать ...
  • @!!ex © (28.05.07 10:18) [34]
    > HARIER   (28.05.07 10:08)

    Мне бы кто посоветовал. $)
  • Rial © (28.05.07 12:35) [35]
    > [33] HARIER   (28.05.07 10:08)
    > Так что ты мне посоветуеш делать ...

    На конкретный вопрос - конкретный ответ...
    В чем именно проблема то ?
  • ElectriC © (28.05.07 15:28) [36]
    Да раздели код движка по модулям (привожу код своего движ):
    1. Допустим главный модуль Engine:
    Туда напиши:
    var
      Engine : record
         Han        : THandle;                 // Хэндл движка
         WC         : TWndClassEx;          // Класс окна движка
         MSG        : MSG;                     // Сообщения окна движка
         WinParam     : packed record     // Структура параметров окна движка
           Width, Height : Word;     // Ширина /Высота
           Hz, Bits      : Byte;       // Частота/Бит
         end;
        ...
      end;
    2. WinApi - модуль создания окна, обработка сообщений, посланных Windows:
    uses Engine;
    ...
    function InitWin : HRESULT;
    begin
     Result := E_FAIL;

     with Engine do with WC do
      begin
        ZeroMemory(@WC, SizeOf(TWndClassEx));
          cbSize        := SizeOf(WC);
          lpszClassName := 'Engine';
          lpfnWndProc   := @WinProc;
          style         := CS_VREDRAW or CS_HREDRAW;
          hInstance     := Han;
          hIcon         := LoadIcon(Han, nil);
          hIconSm       := LoadIcon(Han, nil);
          hCursor       := LoadCursor(0, IDC_ARROW);
          hbrBackground := COLOR_WINDOW + 3;
          lpszMenuName  := nil; cbClsExtra := 0; cbWndExtra := 0;

        If RegisterClassEx(SLWC) = 0 then Exit;

        Han := CreateWindowEx(0, lpszClassName, 'Engine', WS_POPUP,
                                0, 0, 100, 100, 0, 0, hInstance, nil);

        If Han = 0 then Exit;

        ShowWindow  (Han, SW_SHOW); UpdateWindow(Han);
      end;

     Result := S_OK;
    end;
    ...
    P.S. Строй движок по такому принципу!!!
  • HARIER (28.05.07 19:14) [37]
    У меня такие вопросы.

    1. Допустим у меня такие модули
      Engine  - таймер , установка процесов..
      Window  - создание окна
      GL -    Создание контекста.

    Как их обьеденить?

    2. Как привильно создавать классы что бы не выскакивала Runtime error?

    3. Тоесть В каждом модуле класс модуля как этот класс использовать в других модулях.
  • @!!ex © (28.05.07 19:30) [38]
    > Как привильно создавать классы что бы не выскакивала Runtime
    > error?

    У меня не выскакивает... Что  я делаю не так7 :)))


    > Тоесть В каждом модуле класс модуля как этот класс использовать
    > в других модулях.

    Не понял вопроса.

    Вот у меня есть класс, например:
     TEffects = class
     public
       Player:^x_vector;
       Constructor Create;
       Procedure   Add(Effect:PSimpleEffect; Position:x_vector; LifeTime:integer; HalfSize:single; const Velocity:x_vector; Color:x_vector; GlobalMove:boolean = false); overload;
       Procedure   AddLinked(Effect:PSimpleEffect; Position:px_vector; LifeTime:integer; HalfSize:single; const Color:x_vector);
       Procedure   Add(Effect:PSimpleEffect; Position:x_vector; LifeTime:integer; HalfSize:single; const Velocity,Accelerate:x_vector; const Color, ChangeColor:x_vector; Source:boolean; VelocityLink:px_vector; GlobalMove:boolean = false); overload;
       Procedure   Update(dt:integer);
       Procedure   Draw();
       Procedure   Clear;
       Procedure   GlobalMove(const Vector:x_Vector);
     protected
       Items:array of TAliveEffect;
       Size:integer;
       Count:integer;
     end;

    Описанный в модуле Effects.
    Использую я его очень просто:
    var
     Effects:TEffects;
    ...
     Effects:=TEffects.Create;
     Effects.Player:=@PlayerPosition;  //Для поворота спрайтов к камере.
    ...
     Effects.Update(dt);
    ...
     Effects.Draw;
    ...
     Effects.Free;
  • HARIER (29.05.07 00:38) [39]
    Где имено создовать класс. так чтобы его можно было использовать в модулях движка.
  • @!!ex_ (29.05.07 07:51) [40]
    У меня есть главный класс движка, который рулит всем. Вот в нем я и создаю почти все объекты.
  • HARIER (29.05.07 13:03) [41]
    Нашел почему глюк. :)
    Я не очищал буфера в glClear во время рисования :)
 
Конференция "Игры" » Проблемы с OpenGL [Delphi, Windows]
ДомойОсновная Компоненты FreePascal Начинающим KOL Игры Corba Media Журнал WinAPI Сети Прочее Базы .Net
Есть новые Нет новых   [119219   +38][b:0][p:0.021]