Кто знает как работать с 3D графикой в Delphi?
Например делать 3D игры.
Если не трудно, то подскажите как.
Заранее благодарен

Это сообщение отредактировал(а) Goganchic - 19.6.2004, 07:45

Качаешь библиотеку GLScene http://glscene.org, и начинаеш работать. Все просто, понятно, целая куча примеров, но немного кривоватый хелп.

Вот тебе пример OpenGL, только он не трехмерный(баловался месяцев 5 назад) Как за трехмерку возьмусь переделаю

Код

unit Unit1; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, OpenGL, ExtCtrls; type  TForm1 = class(TForm)    Timer1: TTimer;    procedure FormCreate(Sender: TObject);    procedure FormDestroy(Sender: TObject);    procedure FormPaint(Sender: TObject);    procedure Timer1Timer(Sender: TObject);  private    hrc : HGLRC;    Rotate : double;  public    procedure SetDCPixelFormat(dc : HDC);  end; var  Form1: TForm1; implementation {$R *.dfm} { TForm1 } procedure TForm1.SetDCPixelFormat(dc: HDC); var  pfd : TPixelFormatDescriptor;  nPixelFormat : integer; begin  nPixelFormat := 0;  ZeroMemory(@pfd, SizeOf(TPixelFormatDescriptor));  pfd.dwFlags := PFD_DOUBLEBUFFER;  nPixelFormat := ChoosePixelFormat(dc, @pfd);  SetPixelFormat(dc, nPixelFormat, @pfd); end; procedure TForm1.FormCreate(Sender: TObject); begin  Rotate := 0.0;  SetDcPixelFormat(Canvas.Handle);  hrc := wglCreateContext(Canvas.Handle); end; procedure TForm1.FormDestroy(Sender: TObject); begin  wglDeleteContext(hrc); end; procedure TForm1.FormPaint(Sender: TObject); var  i, j : integer; begin  wglMakeCurrent(Canvas.Handle, hrc);  glClearColor(0.5, 0.5, 0.75, 1.0);  glClear(GL_COLOR_BUFFER_BIT);  glViewport(0, 0, ClientWidth, ClientHeight);  glLoadIdentity;  glRotatef(Rotate, 0.0, 0.0, 1.0);  for j:= 0 to 35 do  begin    glRotatef(45.0 / 18.0, 0.0, 0.0, 1.0);    glbegin(GL_LINE_LOOP);      glColor3f(j / 35.0, j / 35.0, j / 35.0);      for i:= 0 to 5 do        glVertex2f(j / 72.0 * cos(2 * Pi * i / 6),                   j / 72.0 * sin(2 * Pi * i / 6));    glEnd();  end;  glRotatef(-45 / 18 * 36, 0.0, 0.0, 1.0);  SwapBuffers(Canvas.Handle);  wglMakeCurrent(0, 0); end; procedure TForm1.Timer1Timer(Sender: TObject); begin  Rotate := Rotate + 5.0;  FormPaint(Self); end;

Цитата(_vova_ @ 19.6.2004, 08:12)

Качаешь библиотеку GLScene  http://glscene.org, и начинаеш работать. Все просто, понятно, целая куча примеров, но немного кривоватый хелп.

Этот сайт что-то не грузится.

без проблем грузится
на всякий случай вот прямая ссылка:
http://glscene.sourceforge.net/index.php

_hunter, спасибо за ссылку, только я не понял: там хелп в проге есть или обязательно нужно FAQ читать. Есть одно неудобство: сайт на английском языке
<Spawn> вот твой код с моими вопросами:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, OpenGL{что это за Unit? Вроде стандартный}, ExtCtrls;

type
TForm1 = class(TForm)
Timer1: TTimer;{Какой интервал у таймера?}
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure FormPaint(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
hrc : HGLRC{Что это за тип?};
Rotate : double;
public
procedure SetDCPixelFormat(dc : HDC);{Что за процедура?}
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.SetDCPixelFormat(dc: HDC);
var
pfd : TPixelFormatDescriptor{Что это за тип?};
nPixelFormat : integer;
begin
nPixelFormat := 0;
ZeroMemory(@pfd, SizeOf(TPixelFormatDescriptor));
pfd.dwFlags := PFD_DOUBLEBUFFER;
nPixelFormat := ChoosePixelFormat(dc, @pfd);
SetPixelFormat(dc, nPixelFormat, @pfd);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Rotate := 0.0;
SetDcPixelFormat(Canvas.Handle);
hrc := wglCreateContext(Canvas.Handle);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
wglDeleteContext(hrc);
end;

procedure TForm1.FormPaint(Sender: TObject);
var
i, j : integer;
begin
wglMakeCurrent(Canvas.Handle, hrc);

glClearColor(0.5, 0.5, 0.75, 1.0);
glClear(GL_COLOR_BUFFER_BIT);

glViewport(0, 0, ClientWidth, ClientHeight);

glLoadIdentity;

glRotatef(Rotate, 0.0, 0.0, 1.0);
for j:= 0 to 35 do
begin
glRotatef(45.0 / 18.0, 0.0, 0.0, 1.0);
glbegin(GL_LINE_LOOP);
glColor3f(j / 35.0, j / 35.0, j / 35.0);
for i:= 0 to 5 do
glVertex2f(j / 72.0 * cos(2 * Pi * i / 6),
j / 72.0 * sin(2 * Pi * i / 6));
glEnd();
end;

glRotatef(-45 / 18 * 36, 0.0, 0.0, 1.0);

SwapBuffers(Canvas.Handle);

wglMakeCurrent(0, 0);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Rotate := Rotate + 5.0;
FormPaint(Self);
end;
end.

OpenGL - это стандартный юнит. У тебя какая Дельфи? Если не будет его, то просто скачай тогда из инета. Тип HGLRC(что то типа Handle OpenGL Rendering Context) из этого юнита.
procedure SetDCPixelFormat(dc : HDC); - нужна для настройки формата пиксела.
TPixelFormatDescriptor - структура, описывающая формат пиксела - лежит в Windows.pas
Интервал сам поставь какой хочешь - я 30 ставил

Это сообщение отредактировал(а) <Spawn> - 20.6.2004, 10:32

Ну, в общем скачал я GLScene.
Вроде ничего: пока что сижу и перевожу FAQ
10 листов английского текста
Еще раз спасибо за ссылку

Добавлено @ 19:05
<Spawn>, не знаю почему, но твой код , не работает

Goganchic Всмысле не работет? Как это проявляется? Какая у тебя видеокарта? Возможно дело в ней, если ни чего не отображется - тогда нужно копать в параметрх установки формата пиксела.

М	Убедительная просьба оформлять код с помощью тэга code. (кнопка #). В дальнейшем код, не оформленный таким образом будет удаляться!

<Spawn>, я ввожу все как ты сказал, (до этого создаю форму и таймер на ней) Нажимаю <Run> и появляется пустая форма, и ничего не происходит.
Delphi у меня Шестая , а Видюшка GeForce 2 MX 400 64Mb

Мало вставить то код) Ты хоть таймеру назначил событие Timer1Timer в ObjectInspector? И OnCreate, OnPaint для формы?

Это сообщение отредактировал(а) <Spawn> - 21.6.2004, 16:49

<Spawn>, ошибку свою я понял, все работает (блин, как же это я так лопухнулся). Демка прикольная. Спасибо.

Подвопрос к _vova_ где взять CG.DLL относящийся к библиотеке scene?

Значит так <Spawn>, все ф-ии, процедуры и свойства из OpenGL и некоторые из модуля Windows мне неизвестны. Опиши их, пожалуйста.
1. procedure SetDCPixelFormat(dc : HDC)
2. TPixelFormatDescriptor
3. function ChoosePixelFormat(dc:HDC; p2:pixelFormatDescriptor)
4. procedure SetDcPixelFormat(DC:HDC)
5. function wglCreateContext(DC:HDC)
6. function wglDeleteContext(p1:HGLRC)
7. function wglMakeCurrent(DC:HDC; p1:HGLRC)
8. procedure glClearColor(red:single;green: single;blue: single;alpha: single)
9. procedure glClear(mask:cardinal)
10. procedure glViewport(x:integer; y:integer; Width:integer; Height:integer)
11. procedure glLoadIdentity
12. procedure glRotatef(alpha:single; x:single; y:single; z:single)
13. procedure glbegin(mode:cardinal);
14. procedure glColor3f(red:single;green: single;blue: single);
15. procedure glVertex2f(x: single; y: single)
16. function SwapBuffers(dc : HDC)

Goganchic я тут некоторые вместо, <Spawn> , опишу если позволите

Цитата

5. function wglCreateContext(DC:HDC)

создает контекст для работы с OpenGL входной параметр контекст устройства куда должно выводиться изображение.

Цитата

6. function wglDeleteContext(p1:HGLRC)

удаляет контекст OpenGL в качества параметра используется указатель полученный функцией п.5.

Цитата

14. procedure glColor3f(red:single;green: single;blue: single);

Установка цвета рисования цвет задается в RGB значения параметров от 0 до 1 вещественные.

Остальные на память не помню, сам сейчас той же темой занимаюсь
А вообще вот здесь поройся. Там и примеры есть и пару статей прочитаешь.

Это сообщение отредактировал(а) Dr.Drunk - 22.6.2004, 12:55

SetDCPixelFormat - необходима для настройи формата пиксела
TPixelFormatDescriptor - уже писал, это структура, которая содежит указания для попытки установки формата пиксела при вызове ChoosePixelFormat\SetPixelFormat
ChoosePixelFormat - проверяет поддерживает ли система выбраный формат пиксела
SetPixelFormat - устанавливает формат пиксела, передавя в функцию его индекс, полученый в результате работы ChoosePixelFormat
wglMakeCurrent - устанавливает текущий контекст воспроизведения
glClearColor - цвет фона
glClear - очистка буфера цвета
glViewport - устанавливает локальное окно просмотра, то есть это область в которую будет проецироваться реальное изображение(глобальное окно рисования можно для двумерки установить при помощи gluOrtho2D)
glLoadIdentity - загрузка первоначального состояния матрицы(за метсто нее можно использовать glPushMatrix и glPopMatrix)
glRotatef - осуществляет поворот системы координат
glBegin...glEnd - блок, в котором производится вывод примитивов на контекст устройства. Параметр glBegin указывает какое примитивы будут составлены из введенных данных
glVertex2f - добавляет двумерную вершину, для посторения примитива.
SwapBuffers - меняет содержание внутреннего буфера рисования с буфером отображающемся на экране. Данная фукция включена сюда, поскольку при инициализации формата пиксела была указана двойная буферизация -> сначала рисование производится на внутреннем буфере, потом результат отображется на экране. Это сделано для обхода мерцания картинки, при рисовании примитивов.

Это сообщение отредактировал(а) <Spawn> - 22.6.2004, 13:20

Ответ RAdmin:

Цитата

Подвопрос к _vova_ где взять CG.DLL относящийся к библиотеке scene?

у меня его нет. Все и так без него работает

Ну спасибо, за ответ. Теперь я совсем умный.Ну спасибо, за ответ. Теперь я совсем умный стал.

DelphiGFX

Это сообщение отредактировал(а) foRaver - 22.6.2004, 20:16

Не забывайте про поисковики. В сети много информации по этому вопросу.