PMG https://forum.pmg.org.ru/ |
|
Инициализация Glut в Delphi https://forum.pmg.org.ru/viewtopic.php?f=1&t=8028 |
Страница 1 из 1 |
Автор: | Willka [ 03 авг 2010 00:58 ] |
Заголовок сообщения: | Инициализация Glut в Delphi |
Приветствую всех профи и просто читателей этого форума ! Занимаюсь в делфи я OpenGl-ом ну ту пришлось немного разобраться с глутом, а именно с его инициализацией в проектах делфи. В с++ примерах видел кучу примеров на этот счет, но немного с переводом кода между с++ и делфи не срастается и зашел в тупик и не знаю как выбраться из него уже голова кипит вот в интернете кто-то выложил готовый и рабочий пример в делфи, но у меня почему-то он не работает Код: program Project3; {$APPTYPE CONSOLE} uses SysUtils, Glut, OpenGL, GL; var argc: PInteger; argv: PPChar; procedure display; begin glClear(GL_COLOR_BUFFER_BIT); glBegin(GL_POINTS); glColor3f(0.0,0.0,0.0); glVertex2f(0.25,0.25); glEnd; end; begin glutInit(@argc,@argv); glutInitDisplayMode(GLUT_SINGLE or GLUT_RGB); glutInitWindowSize(240,240); glutInitWindowPosition(100,100); glutCreateWindow('Test'); glClearColor(1.0,1.0,1.0,1.0); glMatrixMode(GL_PROJECTION); glLoadIdentity; glOrtho(0.0,1.0,0.0,1.0,1.0,1.0); glutDisplayFunc(@display); glutMainLoop; glFlush; end. вот в консоль выпрыгивает такая ошибка 00000000 там пишет "не может быть прочитан какой-то процесс с названием 00000000 в какой-то библиотеке с названием 00000000" и вообще непонятно что к чему вот все вот это. На одном другом форуме жду ответа уже 2 суток никто ничего не ответил до сих пор, но я не думаю что с этой проблемой никто еще до меня не сталкивался... а целый язык учить, можно сказать с нуля, мне тоже не очень охото-это я о с++ помогите разобраться пожалуйста... |
Автор: | _Dok_ [ 03 авг 2010 08:09 ] |
Заголовок сообщения: | Re: Инициализация Glut в Delphi |
Willka писал(а): uses SysUtils, Glut, OpenGL, GL; Я не силён в OpenGL, так занимался когда-то давно... Но ты уверен, что у тебя есть библиотеки, модули Glut и GL ? Я попытался запустить тот пример, что ты выложил, и он именно ругается, что не может найти Glut.dcu и GL.dcu. |
Автор: | Willka [ 04 авг 2010 01:48 ] |
Заголовок сообщения: | Re: Инициализация Glut в Delphi |
_Dok_ писал(а): Willka писал(а): uses SysUtils, Glut, OpenGL, GL; Я не силён в OpenGL, так занимался когда-то давно... Но ты уверен, что у тебя есть библиотеки, модули Glut и GL ? Я попытался запустить тот пример, что ты выложил, и он именно ругается, что не может найти Glut.dcu и GL.dcu. Естественно есть, я не такой уж и баран, извиняюсь конечно, за такое, но ... скачай с инета файлы: Glut.pas, GL.pas и закинь их в папку lib твоего делфи и проcто можешь в пустой проект написать Glut, GL в разделе uses и тупо скомпилировать, в папке lib появятся 2 новых файла .dcu дело тут в чем то другом... вот в с, с++ и даже паскале этот код работает как надо, а делфи это немного усовершенствованная версия паскаля... насколько я это так понимаю, так что и тут должно работать ![]() |
Автор: | _Dok_ [ 04 авг 2010 08:23 ] |
Заголовок сообщения: | Re: Инициализация Glut в Delphi |
Цитата: Естественно есть, я не такой уж и баран, извиняюсь конечно, за такое, но ... Я это и не утверждаю ![]() Я качать и смотреть небуду. Могу ещё посоветовать посмотреть книжку Краснова "Delphi и OpenGL" как так называется, или самое простое это Фленов "Библия Delphi", там есть и примеры и всё. |
Автор: | MagicWolf [ 04 авг 2010 19:49 ] |
Заголовок сообщения: | Re: Инициализация Glut в Delphi |
Попробуй http://nehe.gamedev.net/data/lessons/de ... sson01.zip - будет работать? http://www.codenet.ru/progr/opengl/delphi/ http://www.delphigl.com/ viewtopic.php?f=1&t=136 |
Автор: | Dion [ 10 сен 2010 22:41 ] |
Заголовок сообщения: | Re: Инициализация Glut в Delphi |
[quote="Willka"] Если ветка актуальна, то у тебя есть четыре ошибки. Код: var argc: Integer; argv: PChar; Код: procedure display; begin glutSwapBuffers; end; Код: Argc:= 1; Argv:= pchar('GlutWindow.exe'); glutInit(@argc,@argv); glutInitDisplayMode(GLUT_SINGLE or GLUT_RGB); glutInitWindowSize(240,240); glutInitWindowPosition(100,100); glutCreateWindow('Test'); glutDisplayFunc(@display); glutMainLoop; [b]// это бесконечный цикл. [/b] gl - не инициализирован, чтобы с ним работать. |
Страница 1 из 1 | Часовой пояс: UTC + 3 часа [ Летнее время ] |
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group http://www.phpbb.com/ |