OpenGL (вот что есть на данный момент)

[Lucky13]

Цитата:

Сообщение от Eldar9x

Lucky13, покажите Ваш код целиком

Код выложен, см. пост выше, я его не менял и он у меня выдает ошибку.

Для вывода в чужое окно:

// hWnd = ViewPopt.hWnd();
hWnd = WinApi::FindWindow('TForm1','Form1'); //вывод в окно, созданное Delphi

[Lucky13]

Выкладываю программу на C++, которая выводит куб в основное окно Ax. Остается только найти 10 отличий с аксаптой.

[Dronas]

Цитата:

Сообщение от Lucky13

Выкладываю программу на C++, которая выводит куб в основное окно Ax. Остается только найти 10 отличий с аксаптой.

В принципе их как бы нет, нет, конечно их много, только они не существенны, я вот всё думаю о glViewport(0,0,width,height), но это вряд ли.

[Lucky13]

Цитата:

Сообщение от Dronas

В принципе их как бы нет, нет, конечно их много, только они не существенны, я вот всё думаю о glViewport(0,0,width,height), но это вряд ли.

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

Интересно вот это:

PHP код:

    m_GLPixelIndex = ChoosePixelFormat( hDC, &pfd);
    if(m_GLPixelIndex==0) // Let's choose a default index.
    {
     m_GLPixelIndex = 1;    
     if(DescribePixelFormat(hDC,m_GLPixelIndex,sizeof(PIXELFORMATDESCRIPTOR),&pfd)==0)
       return 0;
    }


    if (SetPixelFormat( hDC, m_GLPixelIndex, &pfd)==FALSE)
        return 0; 


Если ChoosePixelFormat вернул 0, то PixelIndex = 1 и вызвать DescribePixelFormat!!!???.

[Dronas]

Вот, кое что подправил, ошибки должны в инфо выводиться, в инфо чисто, окно чёрное!

Lucky, твоя прога перезапустила винду при повторной попытке запуска

[Lucky13]

Цитата:

Сообщение от Dronas

Вот, кое что подправил, ошибки должны в инфо выводиться, в инфо чисто, окно чёрное!

А у меня ошибка "g_hRC == 0", окно белое. GetLastError = 2000 (после wglCreateContext).

Опытным путем установлено:
1. Приложение на С выводит в главное окно Ax
2. Приложение на С выводит в окно главного меню Ax, но картинку видно только при закрытии окна (видимо Axapta затирает)
3. Приложение на С НЕ выводит в окно созданное пользователем.

Что бы это могло значить? Вывод в компонент типа Window не проверял.

[Lucky13]

Цитата:

Сообщение от Dronas

Lucky, твоя прога перезапустила винду при повторной попытке запуска

Забыл предупредить, запускать только из MSVS чтобы в случае чего корректно снять, прога жутко глючная и неотлаженная. Сделана только чтобы проверить факт вывода в окно

[Dronas]

Вывод есть, проверено, мне кажется у меня беда всё же с ClearColor

Запусти формочку из моего проекта.

[Lucky13]

Цитата:

Сообщение от Dronas

Запусти формочку из моего проекта.

Запускал, ошибка g_hRC == 0

[Dronas]

А это?

Есть одна засада, не плохо бы перезапустить машину после экспериментов с OpenGL.

[Dronas]

в

OpenGL_Initialize

...
//g_hWnd  =   Frame.hWnd();
g_hWnd  =   WinApi::findWindow("AxaptaClientClassName", "");
g_hWnd  =   WinApi::findWindowEx(g_hWnd, 0, "", "");
...

Сделал по примеру как у Lucky, стало главное окно краситься чёрным

[Lucky13]

Цитата:

Сообщение от Dronas

А это?

Есть одна засада, не плохо бы перезапустить машину после экспериментов с OpenGL.

Машину перезапустить не могу, сервер она у меня

Цитата:

Сообщение от Dronas

в

OpenGL_Initialize

...
//g_hWnd  =   Frame.hWnd();
g_hWnd  =   WinApi::findWindow("AxaptaClientClassName", "");
g_hWnd  =   WinApi::findWindowEx(g_hWnd, 0, "", "");
...

Сделал по примеру как у Lucky, стало главное окно краситься чёрным

А нарисовать что-нибудь получается или хотя бы в зеленый цвет покрасить.

[Dronas]

Цитата:

Сообщение от Lucky13

Машину перезапустить не могу, сервер она у меня

Во-во, контекст правильно не удалён, поэтому заново и не создаётся.

Цитата:

Сообщение от Lucky13

А нарисовать что-нибудь получается или хотя бы в зеленый цвет покрасить.

В том-то и дело, что нет, я об этом и говорю уже на протяжении всей ветки, а вы всё возвращает "ок", всё ок , грешу на glClearColor.

[Dronas]

Работает, но вот этот цирк мне не понятен

static int glClearColor(real red, real green, real blue, real alpha)
{
    DLL             _winApiDLL      = new DLL("OPENGL32.dll");
    DLLFunction     _glClearColor   = new DLLFunction(_winApiDLL, 'glClearColor');

    COMVariant r = new COMVariant();
    COMVariant g = new COMVariant();
    COMVariant b = new COMVariant();
    COMVariant a = new COMVariant();

    r.float(red);
    g.float(green);
    b.float(blue);
    a.float(alpha);

    _glClearColor.returns(ExtTypes::void);

    _glClearColor.arg(ExtTypes::DWord, ExtTypes::DWord, ExtTypes::DWord, ExtTypes::DWord);

    return _glClearColor.call(r.int(), g.int(), b.int(), a.int());
}

[Lucky13]

Вот так как было по-моему неправильно.

    _glClearColor.call(r.float(red), g.float(green), b.float(blue), a.float(alpha));

float в классе COMVariant - это property, а если в property передать параметр, то оно вернет 0;

return _glClearColor.call(r.int(), g.int(), b.int(), a.int());

а если поставить r.float() - будет работать?

[Dronas]

Если float, то не будет, с интом вроде ничё.

[Dronas]

Теперь встал вопрос, что на ней делать?

[Lucky13]

Цитата:

Сообщение от Dronas

Если float, то не будет, с интом вроде ничё.

Здесь советуют писать int, да будет так. Пусть это будет фича аксапты.

[Dronas]

Оттеда и слямзено

[Dronas]

Всё, ужо и треугольники рисуются

Интересно, шейдеры . . .