Что-то не так в исходничке, однако :-(

← →
Николай Быков © (2002-11-16 18:56) [0]

Вот заколебался я уже над ним и решил вам показать, может что-нибудь скажите.
unit uMainFrm; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, OpenGL; type TMainFrm = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); private { Private declarations } public { Public declarations } end; var MainFrm: TMainFrm; bmp:TBitmap; cx,cy:integer; arbmp:array [0..89,0..89]of BYTE; dc:HDC; hrc:HGLRC; implementation {$R *.dfm} procedure TMainFrm.Button1Click(Sender: TObject); var i,j:integer; begin wglMakeCurrent(dc,hrc); glViewPort(0,ClientHeight,ClientWidth,ClientHeight); glPointSize(20); bmp:=TBitmap.Create; bmp.LoadFromFile("tank.bmp"); for i:=0 to bmp.Width-1 do for j:=0 to bmp.Height-1 do arbmp[i,j]:=bmp.canvas.pixels[i,j]; {

← →
Николай Быков © (2002-11-16 19:30) [1]

UP.

← →
Николай Быков © (2002-11-16 21:01) [2]

UР.

← →
Shadow © (2002-11-16 21:02) [3]

Николай Быков DOWN

← →
Николай Быков © (2002-11-17 05:39) [4]

UP.

← →
Viktor Kushnir © (2002-11-17 08:59) [5]

Офигенно, но нельзя ли повторить комментарии в тексте программы в виндовой кодировке?

← →
Николай Быков © (2002-11-17 10:24) [6]

{ВОТ ЗДЕСЬ КАКОЙ_ТО КОСЯК!!!!!!!!!!!!!!!}
glDrawPixels(90,90,GL_RGB,GL_BYTE,@arbmp);
glBitmap(90,90,0,0,100,00,@arbmp);
{А КАК ЕГО ИСПРАВИТЬ? Х... ЗНАЕТ!}

← →
Николай Быков © (2002-11-17 10:39) [7]

Хорошо. Если лень разбираться в исходнике, то просто ответьте на вопрос:
Как вывести изображение BitMap на форму средствами OpenGL
Я вот нашел в хелпе две процедуры (в исходнике написаны), но похоже я что-то не так делаю, потому вместо картинки выводится какая-то фигня

← →
Николай Быков © (2002-11-17 11:47) [8]

АП

← →
Николай Быков © (2002-11-17 12:17) [9]

UP.

← →
Николай Быков © (2002-11-17 16:28) [10]

АП

← →
Shadow © (2002-11-17 17:19) [11]

>arbmp:array [0..89,0..89]of BYTE;
>glBitmap(90,90,0,0,100,00,@arbmp);
Ты уверен,что все правильно?

← →
Николай Быков © (2002-11-17 17:36) [12]

Нет! Не уверен, иначе бы не писал в этот форум

← →
Shadow © (2002-11-17 18:15) [13]

Так какого хера запутался в строчках?!

← →
Николай Быков © (2002-11-17 18:19) [14]

Ты про че?
Я говорю, что пробовал так и так, но ничего не получилось.
Спрашиваю что я не так делаю?

← →
Shadow © (2002-11-17 18:25) [15]

Ты уверен, что именно в этом месте ошибка?

← →
Николай Быков © (2002-11-17 18:32) [16]

> Shadow © (17.11.02 18:25)
> Ты уверен, что именно в этом

Ну я и привел весь исходник на случай если не в это ошибка.
Ты лучше помоги, а не трепись просто так. это другой разлдел форума

arbmp[i,j]//сюда надо присвоить байт := bmp.canvas.pixels[i,j]; // а это возвращает значение TColor т.е 4байта

и не забудь битмап в конце procedure TMainFrm.Button1Click(Sender: TObject); уничтожить
удачи

>>glViewPort(0,ClientHeight,ClientWidth,ClientHeight);
glViewPort(0, 0,ClientWidth,ClientHeight);

как насчет
glViewPort(0, 0,ClientWidth,ClientHeight);?
пробовал
glDrawPixels(90,90,GL_RGB,GL_BYTE,@arbmp);(90,90,GL_RGB, GL_INT,@arbmp);?

если используешь glDrawPixels(90,90,GL_RGB,GL_BYTE,@arbmp);, то неплхо бы задать начальную позицию при помощи glRasterPos

и ваще что конкретно не получается? что на экран выводится?

> k © (18.11.02 14:29)

Да пробовал

> Андрей Прокофьев © (18.11.02 14:15)

Да пробовал

ИМХО косяк не в этом, хотябы потому, что все-таки рисуется изображение, просто оно не такое, как надо. там рисуется вместо нормальной картинки черный квадрат с вкраплениями зеленого булого и еще всяких разных цветов

что-то с форматом цвета.. экспериментируй.

наконец еще попробуй RGB типа float - читай док по glDrawPixels

Что-то не так в исходничке, однако :-( Найти похожие ветки