FreePascal.ru

Всем спасибо. Начинаю потихоньку "въезжать" в тему.

Добавлено спустя 1 минуту 47 секунд:
А где можно найти каки-нибудь простые примеры по этой теме?

Одним паскалем жив не будешь. Согласен на все 100.
Однако, например мне удалось загрузить шейдер, но как им можно управлять из Лазаруса?
В моём понимании шейдер - это код, описывающий вид и поведение графического объекта, который загружается напрямую в GPU. Но как с ним взаимодействовать через ...

Для работы с OpenGL использую OpenGLControl. А можно ли каким-то образом использовать шейдеры в Лазарусе?
Вызывает сомнение то, что шейдеры пишутся на C-подобном языке (разумеется скорее всего Лазарус его не поймёт), однако для чего тогда в модуле GLext (в функции function Load_GL_EXT_vertex_array ...

Нашёл вот здесь http://releyt.ru/skzi-verba-ow-skachat.html, но требуется регистрация по телефону. К сожалению, из Узбекистана СМС отправить невозможно. Если кто-нибудь сможет, выложите на Yandex-диск.

А где можно бесплатно скачать wbotho.dll?

Есть вот такая программа http://acerfans.ru/faq/1307-kompyuternye-seti-lokalnaya-set-cherez-internet.html, которая позволяет организовать сеть без знания IP собеседников. Собственно поэтому и возник вопрос, как они это делают?

Здравствуйте!
Может кому-то приходилось решать подобную задачу: к интернету подключены главный ПК и терминалы (в качестве терминалов могут быть ПК или устройства на микроконтроллерах. С последними будет сложнее, т.к. может не оказаться готовых библиотек). Необходимо с терменалов передавать на ...

Компонент Cportlaz v1.0.0 работает в синхронном и асинхронном режимах, причём создаёт свой поток https://sourceforge.net/projects/cportlaz/. Есть Help.

Там пример без использования VBO буфера (это у меня проблем не вызывает).

Добавлено спустя 21 час 35 минут 20 секунд:
Получилось вот таким образом:
Тему можно закрывать.

Всё компилируется, текстура вреде бы загружается в VBO, но не отрисовывается. Что я делаю не так? К стати, если инициализируется OpenGL ниже версии 3.0, то glGenerateMipmap(GL_TEXTURE_2D); даёт ошибку.
Код прилагаю.

Я вот так решил:
procedure TForm1.IdleFunc(Sender: TObject; var Done: boolean);
begin
Done:=true; // true - метод вызывается при наличиии сообщений, false - постоянно.
if flagRepainGL then OpenGLControl1.Invalidate;
end;
а после отрисовки сбрасываю флаг flagRepainGL.
А ...

Одна проблема решена, появилась вторая: на 4-х ядерном процессоре простой квадрат загружает одно ядро на 50%, второе - на 75%, если использую ваш вариант. Пытался у компонента OpenGLControl1 свойство AutoResizeViewport устанавливать в false - опять же не определяется версия OpenGL. Отключаю Idle ...

Fedan , очень понравился ваш вариант. OpenGL я изучал по книге "OpenGL в Delphi" М.Краснов. 2000 г., а VBO по этой подборке статей: http://vbomesh.blogspot.com/2012/02/vbo-opengl.html . Применительно к моим задачам мне необходимо будет отображать объёмные детали и иметь возможность ...

Пример у вас получился на много меньше, чем у меня. Однако, попробовал запустить его, но не получилось. Версии менял от 1.5 до 3.0, но ничего не получилось. (У меня стоит Lazarus 1.6, FPC-3.0). 11.03.png
У меня значительно больше кода. Если можно оптимизировать, то было бы очень не плохо ...

glGetString(GL_VERSION) возвращает: "3.0.0 - Build 8.15.10.2342".

Добавлено спустя 15 минут 1 секунду:
Надо разбираться почему false возвращает.
Load_GL_VERSION_3_0(); запускал в TForm1.FormCreate, когда запустил в TForm1.OpenGLControl1Paint вернула "true", но даже если здесь делаю ...